一个if循环的小问题

yywan0913 发表于 2014-2-9 16:14

学习中，谢谢！

求证1加1 发表于 2014-2-9 17:53
http://www.stat.ucla.edu/~dinov/courses_students.dir/04/Spring/Stat233.dir/STAT233_notes.dir/Rejec ...

努力学习中。
谢谢1加1版主！

kaifengedu 发表于 2014-2-9 20:06
建议用while循环：

努力学习中，多谢kaifeng兄！

1. > f<-function(a=2,low=0,up=2,logic=TRUE){
   
2. +  A<-array();i<-n<-0
   
3. +  repeat{
   
4. +   rnorm(1)->x
   
5. +   if(x>low&x<up){
   
6. +    A[i+1]<-x;i=i+1}
   
7. +   n=n+1
   
8. +   if(i==a) break
   
9. +  }
   
10. +  r=(i/n);t<-(pnorm(up)-pnorm(low));c<-abs(r-t)
    
11. +  p<-data.frame(n=n,a=i,r=r,t=t,c=c)
    
12. +  list(A[logic],p)
    
13. + }
    
14. > f()
    
15. [[1]]
    
16. [1] 1.7379671 0.7411203
    
17. 
    
18. [[2]]
    
19.   n a   r         t          c
    
20. 1 5 2 0.4 0.4772499 0.07724987

复制代码

asdasdaseee 发表于 2014-2-10 00:15

谢谢朋友，努力学习中！