Home About us Mathematical Epidemiology Rweb EPITools Statistics Notes Web Design Contact us Links |
> |
xmeans<-1:20 |
> |
for (j in 1:length(x)) { |
+ |
xmeans[i] <- mean(rbinom(10,size=51,prob=0.03)) |
+ |
} |
> |
xmeans |
> xmeans2<-1:20
> for (j in 1:length(x)) {
+ xmeans2[j] <- mean(rbinom(100,size=51,prob=0.03))
+ }
> xmeans2