求帮忙写个function

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

刚开始学习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)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：function CTI Fun TIO 求帮忙 function

> 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