This preview shows page 1. Sign up to view the full content.
Unformatted text preview: rownames(ExponentialSamples) <- paste("sample", 1:50, sep="") colnames(ExponentialSamples) <- paste("obs", 1:100, sep="") ExponentialSamples$mean <- rowMeans(ExponentialSamples[,1:100]) # Now let's look at the sample and the sample means. .. # histogram of one of the first sample hist(as.numeric(ExponentialSamples[1,-101])) #histogram of the sample means hist(ExponentialSamples[,101])...
View Full Document
This note was uploaded on 09/11/2011 for the course STAT 200 taught by Professor Agniel during the Spring '09 term at University of Illinois at Urbana–Champaign.
- Spring '09