Harshit1694/Z_score.R

## Z_score.R
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
	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