#Let's create a random, normal variable called "The Life Satisfaction" scale.
#In our population, it has a mean of 12.78 and a standard deviation of 3.81
#We have 182 participants

#Initialize an empty data frame

Wk07a<-data.frame(matrix(ncol = 0, nrow = 182))

#Create your random variable
#If you set a seed, you will generate the same random variable every time.
#For reproducible examples, like class slides, that is a good thing to do
#In your own work, you might not do that.

set.seed(135)
Wk07a$LifeSat<-rnorm(182, mean=12.78, sd=3.81)