12 lines
243 B
R
12 lines
243 B
R
arg = commandArgs(TRUE)
|
|
|
|
samples = rep(NA, 100000)
|
|
for ( i in 1:100000 ){ samples[i] = mean(rexp(40, 0.2)) }
|
|
|
|
jpeg(paste('plots/', arg, '.jpg', sep=""))
|
|
|
|
hist(samples, main="", prob=T)
|
|
lines(density(samples), col="darkblue", lwd=3)
|
|
|
|
dev.off()
|