> print(getwd())
[1] "C:/Users/nmcc.student/Desktop"
> setwd("/Users/nmcc.student/Desktop")
> print(getwd())
[1] "C:/Users/nmcc.student/Desktop"
> data <- read.csv("test1.csv")
> print(data)
  sno no
1   1  2
2   2  4
3   3  6
4   4  8
5   5 10
> m3 <- sd(data$no)
> print(m3)
[1] 3.162278
> m4 <- var(data$no)
> print(m4)