Δεδομένα

score = c(12, 14, 17, 13, 19, 28, 20, 9, 3, 6, 5, 11, 12, 17, 16, 8, 6, 2)

1. Μέση τιμή

round(mean(score), 1)

2. Διάμεσος

median(score)

3. Επικρατούσα τιμή (https://stat.ethz.ch/pipermail/r-help/2011-March/273569.html)

smode=function(x){
    xtab=table(x)
    modes=xtab[max(xtab)==xtab]
    mag=as.numeric(modes[1]) #in case mult. modes, this is safer
    themodes=names(modes)
    mout=list(themodes=themodes,modeval=mag)
    return(mout)}

4. Εύρος

therange =  max(score) - min(score)
print(therange)

5. Ενδοτεταρτημοριακό εύρος (Interquartile range)

mystats = summary(score)
IR = mystats[5] - mystats[2]
print(IR)

6. Διασπορά (Variance)

6.1 Δειγματική διασπορά (Sample variance)

var(score)

6.2 Διασπορά πληθυσμού (Population variance)

sum((score-mean(score))^2)/length(score)

 
7. Τυπική απόκλιση (Standard variation)

7.1 Δειγματική τυπική απόκλιση (Sample StdVar)

sd (score)

7.2  Τυπική απόκλιση πληθυσμού (Population StdVar)

sqrt(sum((score-mean(score))^2)/length(score))

8. Συντελεστής μεταβλητότητας (Coefficient of variation - CV)

sd(score)/abs(mean(score))

9. Ασυμμετρία (Skewness)

library(moments)
skewness(score)

10. Κυρτότητα (Kurtosis)

library(moments)
kurtosis (score)