Answer the following in Excel

R11

Use the code below to make a sample of data called "sampdata". Then, calculate the mean, median, standard deviation, and skew of those data.

set.seed(142) popdata <- rnorm(100,50,10) sampdata <- sample(popdata,35,replace=TRUE)

R12

Determine the proportion of scores that would be expected to fall within each of the intervals below. Assume the mean and standard deviation you used to create the popdata data.

Less than 47 Greater than 53 Between 48 and 51

R13

Use the code below to make a set of individual observations (original data) and a set of means calculated from repeated sampling from those individual observations (mysample). The means will be stored in a matrix (mymatrix). Generate a histrogram of the individual observations and another histogram from the means stored in the matrix. Describe the skewness in both. Finally, what is the name of the theorem that you demonstrated with this code?

set.seed(142) mymatrix <- matrix(nrow=500,ncol=1) originaldata <- rbeta(100,5000,0.5) for (i in 1:500) { mysample <- sample(originaldata,50,replace=TRUE) mymean <- mean(mysample) mymatrix[i,1] <- mymean }