print(getwd())
setwd("/Users/nmcc.student/Desktop")
 print(getwd())
data <- read.csv("test1.csv")
 print(data)
 m1 <- mean(data$no)
 print(m1)

 m2 <- median(data$no)
print(m2)
[1] 6
 m5 <- IQR(data$no)
 print(m5)
 m6 <- range(data$no)
 print(m6)
 m7 <- quantile(data$no)
 print(m7)