# calculate the mean and se of the mean of wage in the cps data
paste(
"The average wage is",
mean(cps$wagehr, na.rm = TRUE),
"with a margin of error of",
se_meanx(cps$wagehr, na.rm = TRUE)
)
Run the code above in your browser using DataLab