if (FALSE) {
library(psych)
data(data.Students, package="CDM")
psych::describe(data.Students)
## var n mean sd median trimmed mad min max range skew kurtosis se
## urban 1 2400 0.31 0.46 0.0 0.27 0.00 0 1 1 0.81 -1.34 0.01
## female 2 2400 0.51 0.50 1.0 0.51 0.00 0 1 1 -0.03 -2.00 0.01
## act1 3 2248 0.65 0.73 0.5 0.56 0.74 0 2 2 0.64 -0.88 0.02
## act2 4 2230 0.47 0.69 0.0 0.34 0.00 0 2 2 1.13 -0.06 0.01
## act3 5 2218 0.33 0.60 0.0 0.21 0.00 0 2 2 1.62 1.48 0.01
## act4 6 2342 1.35 0.76 2.0 1.44 0.00 0 2 2 -0.69 -0.96 0.02
## act5 7 2223 0.52 0.74 0.0 0.40 0.00 0 2 2 1.05 -0.41 0.02
## sc1 8 2352 0.96 0.80 1.0 0.91 1.48 0 3 3 0.45 -0.39 0.02
## sc2 9 2347 0.90 0.88 1.0 0.81 1.48 0 3 3 0.66 -0.41 0.02
## sc3 10 2335 0.86 0.96 1.0 0.73 1.48 0 3 3 0.84 -0.35 0.02
## sc4 11 2337 1.29 0.90 1.0 1.24 1.48 0 3 3 0.24 -0.71 0.02
## mj1 12 2351 2.26 0.82 2.0 2.37 1.48 0 3 3 -0.94 0.28 0.02
## mj2 13 2345 1.89 0.91 2.0 1.95 1.48 0 3 3 -0.35 -0.80 0.02
## mj3 14 2334 1.47 1.02 1.0 1.47 1.48 0 3 3 0.10 -1.11 0.02
## mj4 15 2346 1.59 0.99 2.0 1.62 1.48 0 3 3 -0.03 -1.06 0.02
}
Run the code above in your browser using DataLab