有没有人在？求解惑啊！！！

同求问~~~

坐等答疑者啊！！！！

或者用repeat ……break语句？

size.norm2<-function(s,alpha,d,m){
      t0<-qt(alpha/2,m,lower.tail=FALSE)
     n0<-(t0*s/d)^2
      t1<-qt(alpha/2,n0,lower.tail=FALSE)
     n1<-(t1*s/d)^2
     while(abs(n1-n0)>0.5){
     n0<-(qt(alpha/2,n1,lower.tail=FALSE)*s/d)^2
     n1<-(qt(alpha/2,n0,lower.tail=FALSE)*s/d)^2
}
n1
}

给个例子你，这个是t分布求样本空间的问题， m可以先搞个大点的数 比如1000，再通过迭代，控制while(abs(..)>0)等等，repeat  if ...break应该可以的


你把具体的例子 发出 看看撒