产生离散型随机变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我已经生成了100个（0,1）区间上的均匀分布，然后我设定小于0.3的定位1,0.3到0.9定值为2,0.9到1定值为3，然后我写了一段程序。结果出来的说是空值。请各位大大帮我看看哪里出现了问题可以么？
程序如下
> DJ<-function(x1){
+     for(i in 1:100){
+    if (x1[i]<=0.3){
+        x1[i]<-1
+    }else if (x1[i]<=0.9){
+        x1[i]<-2
+    }else
+        x1[i]<-3
+ }
+ }

谢谢大家了。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：随机变量 离散型 均匀分布 程序

x1是已生成的100个值了吧？   做计算就不需要function了。
给你简化了下

1. x1=ifelse(x1<0.3,1,ifelse(x1>0.9,3,2))

复制代码

yywan0913 发表于 2014-6-2 21:33
x1是已生成的100个值了吧？   做计算就不需要function了。
给你简化了下

恩恩。我试了下。很好用。解决了我一个晚上的问题。谢谢你啦。QuQ

使用内置的sample函数，轻松实现随机抽样
x<-sample(c(1,2,3),1000,prob=c(0.3,0.6,0.1),replace=TRUE)
hist(x)
记得要加好评哦，亲

cut(x, c(0, .3, .9, 1))

yywan0913 发表于 2014-6-2 21:33
x1是已生成的100个值了吧？   做计算就不需要function了。
给你简化了下

还有个问题。这个函数的话我分成五个等级也可以么？

凉西123 发表于 2014-6-4 13:58
还有个问题。这个函数的话我分成五个等级也可以么？

无论多少都行

1. p=rnorm(1000)
   
2. x1=p[p>0&p<1][1:100]  #
   
3. DJ<-function(x){
   
4.       y=c()
   
5.     for(i in 1:length(x)){
   
6.     if(x[i]<=0.3)  y=c(y,1)
   
7.     else if(x[i]<=0.9)  y=c(y,2)
   
8.    else    y=c(y,3)
   
9.  }
   
10. y
    
11. }
    
12. DJ(x1)

复制代码

改了下你的源程序