mad min max range skew kurtosis
.99 -1.8 3.73 5.53 0.96 0.65
se Q0.25 Q0.5 Q0.75
0.16 -0.65 -0.12 0.67

Shapiro-Wilk normality testdata: shuju$实际.期望W = 0.93274, p-value = 0.001768

shapiro.test(shuju$实际.期望)
hist(shuju$`实际-期望`)
describe(shuju[,6], quant = c(0.25,0.5,0.75))
shuju<-data.frame(shuju)