全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1026 1
2015-11-08
刚开始学习R,请教一下大家。

“有一个均匀的K面骰子,设X为表示第一次扔出K这一面的次数。

请写一个function 模拟这个情景。arguments 为 K 和 n.sim, n.sim 是模拟的次数。output 是一个vector of X, 其长度等于n.sim。

说一下我的思路,因为不知道每次模拟需要扔多少次得到K,所以用while loop,设X从1开始递增。然后定义 一个data frame,一列是n.sim, 一列是X,function return $X.   但是总写不对。。。”

附上截图,先谢过啦!(我code中用的小x)
附件列表
2.PNG

原图尺寸 26.81 KB

2.PNG

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2015-11-9 09:33:15
> roll<-function(k)
+ {
+   n.sim<-1
+   result<-sample(1:k,1)
+   while(result[n.sim]!=k)
+   {
+     n.sim<-n.sim+1
+     result<-c(result,sample(1:k,1))
+   }
+   result
+ }
> roll(6)
[1] 4 6
> roll(12)
[1]  3  6  2 12
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群