### Application 2
### Voter participation by state in the 1844 Presidential Election

part <- c(67.5,65.6,65.7,59.3,39.8,
	76.1,73.6,81.6,75.5,85.0,
	80.3,54.5,79.1,94.0,80.3,
	89.6,44.7,82.7,89.7,83.6,
	84.9,76.3,74.7,68.8,79.3)
	
hist(part)
	
help(mean)

mean(part, trim = 0.2)

help(sample)

n <- 10

part.samp <- sample(part, n)
part.samp

mean(part.samp, trim = 0.2)

B <- 1000

part.samp.tmean <- numeric(B)

for(i in 1:B){
	part.samp <- sample(part,n)
	part.samp.tmean[i] <- mean(part.samp, trim = 0.2)
}

part.samp.tmean

mean(part.samp.tmean)
stdev(part.samp.tmean)

hist(part.samp.tmean)