Δεδομένα
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)