#平均値

x <- c(65,72,87,96,100)
 mean(x)

​

#中央値

x <- c(87,88,45,100,67)
 median(x)

 

​#最頻値を求める→度数分布表で

x <- c(15,26,60,60,60,60,78,78,90)

table(x)

​