$sampleSize = 7; for $i (1..1000){ for $j (1..$sampleSize){ $sum+=rand(); } $sum/=$sampleSize; $ssum+=$sum; } $ssum/=1000; print "$ssum\n"; #### for (i in 1:1000 ) { x2[i]=mean(runif(7, 0, 1)) } mean(x2)