Displaying 1 result from an estimated 1 matches for "3dmu".
Did you mean:
3dm2
2006 Apr 27
1
? bug in 'sample' (PR#8813)
...ze argument to be the same (or
eliminate this line altogether), I get reproducible results.=20=20
=20
I'm using R 2.2.0
=20
Thanks,
-Lori
=20
test.fun<-function(nsamp, mu,q, seed, nsim=3D2){
set.seed(seed)=20=20=20=20
mnsq<-rep(NA,nsim)
for (i in 1:nsim){
y<-rnorm(nsamp,mean=3Dmu)
yboot<-sample(y, size=3Dq, replace=3DT)
mnsq[i]<-(mean(y)^2)
}
return(mnsq)
}
=20
test.fun(50,0,30,12345)
test.fun(50,0,10,12345)
=20
Lori E. Dodd, Ph.D.
National Cancer Institute
Biometric Research Branch
6130 Executive Blvd, MSC 7434
Rockville, MD 20892=20
(For overnight del...