library(psych)
test <- read.csv("~/Downloads/test.csv")
df <- test
describe(df) vars n mean sd median trimmed mad min max range
PassengerId* 1 4277 2139.00 1234.81 2139 2139.00 1584.90 1 4277 4276
HomePlanet* 2 4277 2.65 0.84 2 2.58 0.00 1 4 3
CryoSleep* 3 4277 2.34 0.52 2 2.33 0.00 1 3 2
Cabin* 4 4277 1538.01 1007.33 1527 1524.82 1369.92 1 3266 3265
Destination* 5 4277 3.45 0.88 4 3.59 0.00 1 4 3
Age 6 4186 28.66 14.18 26 28.02 11.86 0 79 79
VIP* 7 4277 2.00 0.20 2 2.00 0.00 1 3 2
RoomService 8 4195 219.27 607.01 0 68.49 0.00 0 11567 11567
FoodCourt 9 4171 439.48 1527.66 0 87.59 0.00 0 25273 25273
ShoppingMall 10 4179 177.30 560.82 0 45.65 0.00 0 8292 8292
Spa 11 4176 303.05 1117.19 0 63.56 0.00 0 19844 19844
VRDeck 12 4197 310.71 1246.99 0 53.19 0.00 0 22272 22272
Name* 13 4277 2042.11 1230.80 2040 2040.73 1583.42 1 4177 4176
skew kurtosis se
PassengerId* 0.00 -1.20 18.88
HomePlanet* 0.53 -1.03 0.01
CryoSleep* 0.20 -0.95 0.01
Cabin* 0.06 -1.31 15.40
Destination* -1.20 -0.11 0.01
Age 0.48 0.22 0.22
VIP* -0.51 22.58 0.00
RoomService 5.55 53.12 9.37
FoodCourt 6.91 67.65 23.65
ShoppingMall 6.82 68.10 8.68
Spa 7.68 80.32 17.29
VRDeck 8.38 93.68 19.25
Name* 0.01 -1.21 18.82 variable_type = c("Categorical","Categorical","Categorical","Categorical",
"Categorical","Quantitative","Categorical","Quantitative","Quantitative","Quantitative","Quantitative","Quantitative","Categorical","Categorical")