hey there i was wondering if you could help me with question 1c and 1d using r-studio…

my answer for 1a)

> pop<-rnorm(100000, , )

> mean(pop)

[1] 79.992

> sd(pop)

[1] 15.00779

1b)

> samp<-sample(pop, )

> mean(samp)

[1] 78.1924

> sd(samp)

[1] 15.37323

 1c)

> pop2<-rnorm(samp, ,)

> mean(pop2)

[1] 91.45689

> sd(pop2)

[1] 16.79536