Pengunaan_aplikasi<-c(22,25,19,30,24,21,45,23,20,26,24,22,18,27,23) {mean(Pengunaan_aplikasi)} {median(Pengunaan_aplikasi) modus<-function(x){ u<-unique(x) u[which.max(tabulate(match(x,u)))] } {modus(Pengunaan_aplikasi)}

diff(range(Pengunaan_aplikasi)) quantile(Pengunaan_aplikasi, probs = c(0.25,0.75), type=6) IQR(Pengunaan_aplikasi, type= 6) library(moments) skewness(Pengunaan_aplikasi) kurtosis(Pengunaan_aplikasi)