Skip to content

Instantly share code, notes, and snippets.

@Harshit1694
Last active July 15, 2019 12:10
Embed
What would you like to do?
data <- read.csv(file.choose())
#POPULATION PARAMETERS
pop_sd <- sd(data$Screen_size.in.cm.)*sqrt((length(data$Screen_size.in.cm.)-1)/(length(data$Screen_size.in.cm.)))
pop_mean <- mean(data$Screen_size.in.cm.)
z <- (9.5 - pop_mean) / pop_sd
z
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment