install.packages(“rmarkdown”)

setwd("C:/Users/hmon1/Desktop/10A Homework") #this is where you downloaded the HW3.csv file

pop<-read.csv("HW3.csv")

set.seed(48183130) #use your student ID instead of 12345678

data1<-data.frame(X=pop[sample(1:nrow(pop), 50, replace=FALSE),])
mean1X<-mean(data1$X)
mean1X

## [1] 4.36

set.seed(48183230) #add 100 to your student ID
data2<-data.frame(X=pop[sample(1:nrow(pop), 50, replace=FALSE),])
mean2X<-mean(data2$X)
mean2X

## [1] 3.64

set.seed(48184130) #add 1000 to your student ID
data3<-data.frame(X=pop[sample(1:nrow(pop), 50, replace=FALSE),])
mean3X<-mean(data3$X)
mean3X

## [1] 5.2