Library
library(readr)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(MASS)
##
## Attaching package: 'MASS'
## The following object is masked from 'package:dplyr':
##
## select
library(ggplot2)
library(stringr)
Import data CSV
obesity <- read_csv("ObesityDataSet_raw_and_data_sinthetic.csv")
## Rows: 2111 Columns: 17
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (9): Gender, family_history_with_overweight, FAVC, CAEC, SMOKE, SCC, CAL...
## dbl (8): Age, Height, Weight, FCVC, NCP, CH2O, FAF, TUE
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(obesity)
## # A tibble: 6 × 17
## Gender Age Height Weight family_history_with_overw…¹ FAVC FCVC NCP CAEC
## <chr> <dbl> <dbl> <dbl> <chr> <chr> <dbl> <dbl> <chr>
## 1 Female 21 1.62 64 yes no 2 3 Some…
## 2 Female 21 1.52 56 yes no 3 3 Some…
## 3 Male 23 1.8 77 yes no 2 3 Some…
## 4 Male 27 1.8 87 no no 3 3 Some…
## 5 Male 22 1.78 89.8 no no 2 1 Some…
## 6 Male 29 1.62 53 no yes 2 3 Some…
## # ℹ abbreviated name: ¹​family_history_with_overweight
## # ℹ 8 more variables: SMOKE <chr>, CH2O <dbl>, SCC <chr>, FAF <dbl>, TUE <dbl>,
## # CALC <chr>, MTRANS <chr>, NObeyesdad <chr>
Prepare a copy for exercise
OLR_data <- obesity
Ordering the dependent variable
OLR_data <- obesity %>%
mutate(
NObeyesdad = factor(
NObeyesdad,
levels = c(
"Insufficient_Weight",
"Normal_Weight",
"Overweight_Level_I",
"Overweight_Level_II",
"Obesity_Type_I",
"Obesity_Type_II",
"Obesity_Type_III"
),
ordered = TRUE
),
Gender = factor(Gender),
family_history_with_overweight = factor(family_history_with_overweight),
FAVC = factor(FAVC),
CAEC = factor(CAEC),
SMOKE = factor(SMOKE),
SCC = factor(SCC),
CALC = factor(CALC),
MTRANS = factor(MTRANS)
) %>%
na.omit()
Exploratory data analysis
summary(OLR_data)
## Gender Age Height Weight
## Female:1043 Min. :14.00 Min. :1.450 Min. : 39.00
## Male :1068 1st Qu.:19.95 1st Qu.:1.630 1st Qu.: 65.47
## Median :22.78 Median :1.700 Median : 83.00
## Mean :24.31 Mean :1.702 Mean : 86.59
## 3rd Qu.:26.00 3rd Qu.:1.768 3rd Qu.:107.43
## Max. :61.00 Max. :1.980 Max. :173.00
##
## family_history_with_overweight FAVC FCVC NCP
## no : 385 no : 245 Min. :1.000 Min. :1.000
## yes:1726 yes:1866 1st Qu.:2.000 1st Qu.:2.659
## Median :2.386 Median :3.000
## Mean :2.419 Mean :2.686
## 3rd Qu.:3.000 3rd Qu.:3.000
## Max. :3.000 Max. :4.000
##
## CAEC SMOKE CH2O SCC FAF
## Always : 53 no :2067 Min. :1.000 no :2015 Min. :0.0000
## Frequently: 242 yes: 44 1st Qu.:1.585 yes: 96 1st Qu.:0.1245
## no : 51 Median :2.000 Median :1.0000
## Sometimes :1765 Mean :2.008 Mean :1.0103
## 3rd Qu.:2.477 3rd Qu.:1.6667
## Max. :3.000 Max. :3.0000
##
## TUE CALC MTRANS
## Min. :0.0000 Always : 1 Automobile : 457
## 1st Qu.:0.0000 Frequently: 70 Bike : 7
## Median :0.6253 no : 639 Motorbike : 11
## Mean :0.6579 Sometimes :1401 Public_Transportation:1580
## 3rd Qu.:1.0000 Walking : 56
## Max. :2.0000
##
## NObeyesdad
## Insufficient_Weight:272
## Normal_Weight :287
## Overweight_Level_I :290
## Overweight_Level_II:290
## Obesity_Type_I :351
## Obesity_Type_II :297
## Obesity_Type_III :324
Frequency table
table(OLR_data$NObeyesdad, OLR_data$Gender)
##
## Female Male
## Insufficient_Weight 173 99
## Normal_Weight 141 146
## Overweight_Level_I 145 145
## Overweight_Level_II 103 187
## Obesity_Type_I 156 195
## Obesity_Type_II 2 295
## Obesity_Type_III 323 1
table(OLR_data$NObeyesdad,
OLR_data$family_history_with_overweight)
##
## no yes
## Insufficient_Weight 146 126
## Normal_Weight 132 155
## Overweight_Level_I 81 209
## Overweight_Level_II 18 272
## Obesity_Type_I 7 344
## Obesity_Type_II 1 296
## Obesity_Type_III 0 324
Build ordinal logistic regression model
OLRmodel <- polr(
NObeyesdad ~ Gender + Age + family_history_with_overweight +
FAVC + FCVC + NCP + CAEC + SMOKE + CH2O +
SCC + FAF + TUE + CALC + MTRANS,
data = OLR_data,
Hess = TRUE,
method = "logistic"
)
summary(OLRmodel)
## Call:
## polr(formula = NObeyesdad ~ Gender + Age + family_history_with_overweight +
## FAVC + FCVC + NCP + CAEC + SMOKE + CH2O + SCC + FAF + TUE +
## CALC + MTRANS, data = OLR_data, Hess = TRUE, method = "logistic")
##
## Coefficients:
## Value Std. Error t value
## GenderMale -0.1106 0.086912 -1.2728
## Age 0.1170 0.009333 12.5319
## family_history_with_overweightyes 2.3027 0.129845 17.7340
## FAVCyes 0.6643 0.134295 4.9463
## FCVC 1.0277 0.084817 12.1168
## NCP 0.1696 0.052900 3.2060
## CAECFrequently -1.6843 0.287969 -5.8488
## CAECno 0.8210 0.362462 2.2650
## CAECSometimes 1.0790 0.256997 4.1985
## SMOKEyes -0.1939 0.283199 -0.6847
## CH2O 0.2653 0.069466 3.8196
## SCCyes -0.6468 0.213419 -3.0308
## FAF -0.3640 0.051155 -7.1156
## TUE -0.1333 0.069832 -1.9089
## CALCFrequently -1.4410 1.560628 -0.9234
## CALCno -1.7404 1.548230 -1.1241
## CALCSometimes -1.1218 1.549043 -0.7242
## MTRANSBike 0.8375 0.665257 1.2588
## MTRANSMotorbike 1.9973 0.642615 3.1081
## MTRANSPublic_Transportation 1.7497 0.135541 12.9091
## MTRANSWalking 0.8222 0.293420 2.8020
##
## Intercepts:
## Value Std. Error t value
## Insufficient_Weight|Normal_Weight 5.8361 1.6269 3.5872
## Normal_Weight|Overweight_Level_I 7.3123 1.6284 4.4904
## Overweight_Level_I|Overweight_Level_II 8.4377 1.6316 5.1714
## Overweight_Level_II|Obesity_Type_I 9.3202 1.6338 5.7047
## Obesity_Type_I|Obesity_Type_II 10.3920 1.6368 6.3491
## Obesity_Type_II|Obesity_Type_III 11.6078 1.6404 7.0762
##
## Residual Deviance: 6617.152
## AIC: 6671.152
Only intercept model
OIM <- polr(
NObeyesdad ~ 1,
data = OLR_data,
Hess = TRUE,
method = "logistic"
)
summary(OIM)
## Call:
## polr(formula = NObeyesdad ~ 1, data = OLR_data, Hess = TRUE,
## method = "logistic")
##
## No coefficients
##
## Intercepts:
## Value Std. Error t value
## Insufficient_Weight|Normal_Weight -1.9112 0.0650 -29.4193
## Normal_Weight|Overweight_Level_I -1.0212 0.0493 -20.7013
## Overweight_Level_I|Overweight_Level_II -0.3964 0.0444 -8.9303
## Overweight_Level_II|Obesity_Type_I 0.1585 0.0437 3.6309
## Obesity_Type_I|Obesity_Type_II 0.8752 0.0478 18.3232
## Obesity_Type_II|Obesity_Type_III 1.7075 0.0604 28.2790
##
## Residual Deviance: 8201.628
## AIC: 8213.628
Check the Overall Model Fit
anova(OIM, OLRmodel)
## Likelihood ratio tests of ordinal regression models
##
## Response: NObeyesdad
## Model
## 1 1
## 2 Gender + Age + family_history_with_overweight + FAVC + FCVC + NCP + CAEC + SMOKE + CH2O + SCC + FAF + TUE + CALC + MTRANS
## Resid. df Resid. Dev Test Df LR stat. Pr(Chi)
## 1 2105 8201.628
## 2 2084 6617.152 1 vs 2 21 1584.476 0
Prediksi
predictOLR <- predict(OLRmodel, newdata = OLR_data)
predictOLR
## [1] Overweight_Level_I Overweight_Level_II Overweight_Level_I
## [4] Normal_Weight Normal_Weight Normal_Weight
## [7] Obesity_Type_III Insufficient_Weight Obesity_Type_II
## [10] Obesity_Type_I Overweight_Level_I Insufficient_Weight
## [13] Overweight_Level_I Normal_Weight Obesity_Type_II
## [16] Overweight_Level_I Obesity_Type_I Insufficient_Weight
## [19] Normal_Weight Obesity_Type_I Normal_Weight
## [22] Obesity_Type_III Obesity_Type_I Overweight_Level_I
## [25] Obesity_Type_I Insufficient_Weight Normal_Weight
## [28] Insufficient_Weight Obesity_Type_I Insufficient_Weight
## [31] Insufficient_Weight Obesity_Type_I Normal_Weight
## [34] Overweight_Level_II Insufficient_Weight Overweight_Level_I
## [37] Insufficient_Weight Normal_Weight Obesity_Type_I
## [40] Obesity_Type_I Obesity_Type_I Insufficient_Weight
## [43] Overweight_Level_I Obesity_Type_I Insufficient_Weight
## [46] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [49] Obesity_Type_I Overweight_Level_I Obesity_Type_II
## [52] Insufficient_Weight Normal_Weight Overweight_Level_I
## [55] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [58] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [61] Obesity_Type_I Normal_Weight Normal_Weight
## [64] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [67] Normal_Weight Normal_Weight Normal_Weight
## [70] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [73] Overweight_Level_I Overweight_Level_I Normal_Weight
## [76] Obesity_Type_I Overweight_Level_I Obesity_Type_II
## [79] Obesity_Type_I Obesity_Type_I Normal_Weight
## [82] Overweight_Level_I Overweight_Level_I Insufficient_Weight
## [85] Overweight_Level_I Obesity_Type_I Insufficient_Weight
## [88] Obesity_Type_I Insufficient_Weight Obesity_Type_I
## [91] Insufficient_Weight Overweight_Level_I Obesity_Type_I
## [94] Insufficient_Weight Overweight_Level_I Normal_Weight
## [97] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [100] Insufficient_Weight Overweight_Level_I Insufficient_Weight
## [103] Insufficient_Weight Overweight_Level_I Obesity_Type_II
## [106] Normal_Weight Normal_Weight Normal_Weight
## [109] Normal_Weight Obesity_Type_I Obesity_Type_III
## [112] Obesity_Type_I Normal_Weight Normal_Weight
## [115] Normal_Weight Normal_Weight Normal_Weight
## [118] Insufficient_Weight Obesity_Type_I Insufficient_Weight
## [121] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [124] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [127] Normal_Weight Normal_Weight Overweight_Level_I
## [130] Obesity_Type_I Insufficient_Weight Insufficient_Weight
## [133] Normal_Weight Obesity_Type_III Obesity_Type_I
## [136] Overweight_Level_I Obesity_Type_I Obesity_Type_III
## [139] Normal_Weight Insufficient_Weight Overweight_Level_I
## [142] Normal_Weight Insufficient_Weight Overweight_Level_I
## [145] Overweight_Level_I Normal_Weight Insufficient_Weight
## [148] Obesity_Type_II Normal_Weight Obesity_Type_I
## [151] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [154] Overweight_Level_I Obesity_Type_II Normal_Weight
## [157] Normal_Weight Normal_Weight Obesity_Type_III
## [160] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [163] Obesity_Type_I Insufficient_Weight Normal_Weight
## [166] Obesity_Type_I Overweight_Level_I Normal_Weight
## [169] Obesity_Type_I Normal_Weight Normal_Weight
## [172] Normal_Weight Normal_Weight Insufficient_Weight
## [175] Normal_Weight Obesity_Type_III Overweight_Level_I
## [178] Normal_Weight Normal_Weight Normal_Weight
## [181] Normal_Weight Normal_Weight Insufficient_Weight
## [184] Obesity_Type_I Normal_Weight Normal_Weight
## [187] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [190] Obesity_Type_II Normal_Weight Normal_Weight
## [193] Normal_Weight Insufficient_Weight Normal_Weight
## [196] Obesity_Type_I Overweight_Level_I Obesity_Type_III
## [199] Insufficient_Weight Obesity_Type_I Obesity_Type_I
## [202] Obesity_Type_I Obesity_Type_III Overweight_Level_I
## [205] Normal_Weight Obesity_Type_I Insufficient_Weight
## [208] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [211] Normal_Weight Insufficient_Weight Obesity_Type_I
## [214] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [217] Insufficient_Weight Insufficient_Weight Normal_Weight
## [220] Obesity_Type_I Insufficient_Weight Obesity_Type_I
## [223] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [226] Obesity_Type_I Insufficient_Weight Overweight_Level_I
## [229] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [232] Obesity_Type_III Obesity_Type_III Obesity_Type_I
## [235] Overweight_Level_I Normal_Weight Insufficient_Weight
## [238] Obesity_Type_I Normal_Weight Overweight_Level_I
## [241] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [244] Obesity_Type_I Overweight_Level_I Insufficient_Weight
## [247] Obesity_Type_I Insufficient_Weight Normal_Weight
## [250] Overweight_Level_I Obesity_Type_I Normal_Weight
## [253] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [256] Insufficient_Weight Obesity_Type_I Insufficient_Weight
## [259] Insufficient_Weight Insufficient_Weight Normal_Weight
## [262] Insufficient_Weight Normal_Weight Insufficient_Weight
## [265] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [268] Insufficient_Weight Insufficient_Weight Obesity_Type_I
## [271] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [274] Overweight_Level_I Normal_Weight Overweight_Level_I
## [277] Insufficient_Weight Insufficient_Weight Obesity_Type_III
## [280] Normal_Weight Insufficient_Weight Normal_Weight
## [283] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [286] Overweight_Level_I Normal_Weight Overweight_Level_I
## [289] Normal_Weight Insufficient_Weight Insufficient_Weight
## [292] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [295] Overweight_Level_I Insufficient_Weight Overweight_Level_I
## [298] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [301] Overweight_Level_I Normal_Weight Normal_Weight
## [304] Insufficient_Weight Overweight_Level_I Obesity_Type_I
## [307] Overweight_Level_I Normal_Weight Normal_Weight
## [310] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [313] Insufficient_Weight Normal_Weight Normal_Weight
## [316] Normal_Weight Insufficient_Weight Normal_Weight
## [319] Overweight_Level_I Normal_Weight Overweight_Level_I
## [322] Insufficient_Weight Insufficient_Weight Normal_Weight
## [325] Obesity_Type_III Normal_Weight Obesity_Type_I
## [328] Overweight_Level_I Overweight_Level_I Obesity_Type_II
## [331] Insufficient_Weight Overweight_Level_I Overweight_Level_I
## [334] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [337] Normal_Weight Insufficient_Weight Normal_Weight
## [340] Insufficient_Weight Overweight_Level_I Normal_Weight
## [343] Obesity_Type_III Normal_Weight Normal_Weight
## [346] Insufficient_Weight Overweight_Level_I Overweight_Level_I
## [349] Normal_Weight Overweight_Level_I Insufficient_Weight
## [352] Insufficient_Weight Insufficient_Weight Normal_Weight
## [355] Insufficient_Weight Overweight_Level_I Insufficient_Weight
## [358] Insufficient_Weight Overweight_Level_I Obesity_Type_II
## [361] Insufficient_Weight Obesity_Type_III Obesity_Type_II
## [364] Insufficient_Weight Overweight_Level_I Obesity_Type_I
## [367] Overweight_Level_I Insufficient_Weight Obesity_Type_I
## [370] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [373] Insufficient_Weight Normal_Weight Insufficient_Weight
## [376] Normal_Weight Obesity_Type_I Insufficient_Weight
## [379] Insufficient_Weight Obesity_Type_I Normal_Weight
## [382] Normal_Weight Normal_Weight Normal_Weight
## [385] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [388] Obesity_Type_I Overweight_Level_I Normal_Weight
## [391] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [394] Insufficient_Weight Overweight_Level_I Overweight_Level_I
## [397] Obesity_Type_I Insufficient_Weight Obesity_Type_I
## [400] Insufficient_Weight Overweight_Level_I Normal_Weight
## [403] Normal_Weight Obesity_Type_I Insufficient_Weight
## [406] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [409] Obesity_Type_I Obesity_Type_III Insufficient_Weight
## [412] Normal_Weight Insufficient_Weight Normal_Weight
## [415] Normal_Weight Overweight_Level_I Insufficient_Weight
## [418] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [421] Overweight_Level_I Overweight_Level_I Insufficient_Weight
## [424] Obesity_Type_I Normal_Weight Overweight_Level_I
## [427] Insufficient_Weight Normal_Weight Insufficient_Weight
## [430] Insufficient_Weight Normal_Weight Insufficient_Weight
## [433] Insufficient_Weight Obesity_Type_I Insufficient_Weight
## [436] Overweight_Level_I Insufficient_Weight Normal_Weight
## [439] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [442] Normal_Weight Obesity_Type_I Obesity_Type_I
## [445] Overweight_Level_I Normal_Weight Normal_Weight
## [448] Obesity_Type_I Obesity_Type_III Overweight_Level_I
## [451] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [454] Normal_Weight Normal_Weight Insufficient_Weight
## [457] Normal_Weight Normal_Weight Insufficient_Weight
## [460] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [463] Normal_Weight Overweight_Level_I Insufficient_Weight
## [466] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [469] Insufficient_Weight Normal_Weight Insufficient_Weight
## [472] Overweight_Level_I Insufficient_Weight Insufficient_Weight
## [475] Insufficient_Weight Insufficient_Weight Obesity_Type_I
## [478] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [481] Normal_Weight Obesity_Type_I Normal_Weight
## [484] Normal_Weight Obesity_Type_I Normal_Weight
## [487] Normal_Weight Overweight_Level_I Obesity_Type_I
## [490] Insufficient_Weight Overweight_Level_I Normal_Weight
## [493] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [496] Overweight_Level_I Obesity_Type_I Normal_Weight
## [499] Obesity_Type_III Obesity_Type_I Obesity_Type_III
## [502] Obesity_Type_II Obesity_Type_III Obesity_Type_II
## [505] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [508] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [511] Normal_Weight Normal_Weight Normal_Weight
## [514] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [517] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [520] Normal_Weight Normal_Weight Normal_Weight
## [523] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [526] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [529] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [532] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [535] Normal_Weight Normal_Weight Normal_Weight
## [538] Normal_Weight Normal_Weight Normal_Weight
## [541] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [544] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [547] Insufficient_Weight Insufficient_Weight Normal_Weight
## [550] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [553] Normal_Weight Normal_Weight Normal_Weight
## [556] Normal_Weight Normal_Weight Overweight_Level_I
## [559] Normal_Weight Normal_Weight Normal_Weight
## [562] Normal_Weight Normal_Weight Normal_Weight
## [565] Normal_Weight Normal_Weight Normal_Weight
## [568] Overweight_Level_I Normal_Weight Normal_Weight
## [571] Overweight_Level_I Normal_Weight Overweight_Level_I
## [574] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [577] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [580] Normal_Weight Normal_Weight Normal_Weight
## [583] Normal_Weight Overweight_Level_I Insufficient_Weight
## [586] Normal_Weight Insufficient_Weight Normal_Weight
## [589] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [592] Normal_Weight Overweight_Level_I Normal_Weight
## [595] Overweight_Level_I Normal_Weight Normal_Weight
## [598] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [601] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [604] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [607] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [610] Overweight_Level_I Overweight_Level_I Insufficient_Weight
## [613] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [616] Insufficient_Weight Insufficient_Weight Obesity_Type_I
## [619] Normal_Weight Normal_Weight Normal_Weight
## [622] Insufficient_Weight Insufficient_Weight Obesity_Type_I
## [625] Normal_Weight Overweight_Level_I Normal_Weight
## [628] Normal_Weight Normal_Weight Normal_Weight
## [631] Normal_Weight Insufficient_Weight Insufficient_Weight
## [634] Normal_Weight Normal_Weight Normal_Weight
## [637] Normal_Weight Overweight_Level_I Overweight_Level_I
## [640] Obesity_Type_I Insufficient_Weight Insufficient_Weight
## [643] Obesity_Type_I Obesity_Type_I Normal_Weight
## [646] Normal_Weight Normal_Weight Normal_Weight
## [649] Normal_Weight Insufficient_Weight Insufficient_Weight
## [652] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [655] Insufficient_Weight Overweight_Level_I Overweight_Level_I
## [658] Normal_Weight Insufficient_Weight Insufficient_Weight
## [661] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [664] Insufficient_Weight Overweight_Level_I Normal_Weight
## [667] Insufficient_Weight Obesity_Type_I Obesity_Type_I
## [670] Normal_Weight Obesity_Type_II Normal_Weight
## [673] Obesity_Type_II Overweight_Level_I Normal_Weight
## [676] Overweight_Level_I Normal_Weight Normal_Weight
## [679] Normal_Weight Normal_Weight Overweight_Level_I
## [682] Normal_Weight Insufficient_Weight Insufficient_Weight
## [685] Normal_Weight Normal_Weight Normal_Weight
## [688] Overweight_Level_I Normal_Weight Normal_Weight
## [691] Normal_Weight Overweight_Level_I Obesity_Type_I
## [694] Obesity_Type_II Normal_Weight Normal_Weight
## [697] Normal_Weight Normal_Weight Normal_Weight
## [700] Normal_Weight Overweight_Level_I Normal_Weight
## [703] Normal_Weight Normal_Weight Obesity_Type_I
## [706] Normal_Weight Overweight_Level_I Normal_Weight
## [709] Insufficient_Weight Normal_Weight Insufficient_Weight
## [712] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [715] Insufficient_Weight Normal_Weight Normal_Weight
## [718] Normal_Weight Normal_Weight Overweight_Level_I
## [721] Insufficient_Weight Normal_Weight Normal_Weight
## [724] Insufficient_Weight Normal_Weight Insufficient_Weight
## [727] Insufficient_Weight Normal_Weight Overweight_Level_I
## [730] Normal_Weight Overweight_Level_I Normal_Weight
## [733] Normal_Weight Obesity_Type_I Overweight_Level_I
## [736] Obesity_Type_I Insufficient_Weight Insufficient_Weight
## [739] Insufficient_Weight Insufficient_Weight Insufficient_Weight
## [742] Insufficient_Weight Overweight_Level_I Obesity_Type_I
## [745] Obesity_Type_I Insufficient_Weight Normal_Weight
## [748] Insufficient_Weight Obesity_Type_I Insufficient_Weight
## [751] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [754] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [757] Obesity_Type_I Obesity_Type_I Normal_Weight
## [760] Normal_Weight Obesity_Type_III Obesity_Type_I
## [763] Normal_Weight Normal_Weight Normal_Weight
## [766] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [769] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [772] Normal_Weight Obesity_Type_I Obesity_Type_I
## [775] Obesity_Type_II Overweight_Level_I Obesity_Type_I
## [778] Overweight_Level_I Obesity_Type_II Obesity_Type_II
## [781] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [784] Obesity_Type_III Insufficient_Weight Overweight_Level_I
## [787] Normal_Weight Obesity_Type_II Overweight_Level_I
## [790] Obesity_Type_I Normal_Weight Normal_Weight
## [793] Obesity_Type_I Normal_Weight Obesity_Type_I
## [796] Normal_Weight Obesity_Type_I Obesity_Type_I
## [799] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [802] Obesity_Type_I Normal_Weight Insufficient_Weight
## [805] Insufficient_Weight Normal_Weight Normal_Weight
## [808] Insufficient_Weight Obesity_Type_I Obesity_Type_I
## [811] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [814] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [817] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [820] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [823] Obesity_Type_I Obesity_Type_I Normal_Weight
## [826] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [829] Obesity_Type_I Obesity_Type_I Normal_Weight
## [832] Normal_Weight Normal_Weight Normal_Weight
## [835] Normal_Weight Obesity_Type_I Obesity_Type_I
## [838] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [841] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [844] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [847] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [850] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [853] Obesity_Type_I Normal_Weight Obesity_Type_I
## [856] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [859] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [862] Normal_Weight Obesity_Type_I Obesity_Type_I
## [865] Obesity_Type_II Insufficient_Weight Normal_Weight
## [868] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [871] Obesity_Type_I Overweight_Level_I Normal_Weight
## [874] Obesity_Type_III Obesity_Type_I Normal_Weight
## [877] Normal_Weight Overweight_Level_I Obesity_Type_I
## [880] Normal_Weight Normal_Weight Obesity_Type_I
## [883] Normal_Weight Obesity_Type_I Overweight_Level_I
## [886] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [889] Obesity_Type_I Overweight_Level_II Overweight_Level_II
## [892] Obesity_Type_I Insufficient_Weight Insufficient_Weight
## [895] Insufficient_Weight Normal_Weight Normal_Weight
## [898] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [901] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [904] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [907] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [910] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [913] Obesity_Type_I Normal_Weight Normal_Weight
## [916] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [919] Obesity_Type_I Obesity_Type_I Normal_Weight
## [922] Normal_Weight Normal_Weight Normal_Weight
## [925] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [928] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [931] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [934] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [937] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [940] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [943] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [946] Obesity_Type_I Obesity_Type_II Overweight_Level_I
## [949] Obesity_Type_I Obesity_Type_III Obesity_Type_II
## [952] Insufficient_Weight Insufficient_Weight Overweight_Level_I
## [955] Overweight_Level_I Obesity_Type_III Overweight_Level_I
## [958] Obesity_Type_III Normal_Weight Overweight_Level_I
## [961] Normal_Weight Overweight_Level_I Overweight_Level_I
## [964] Normal_Weight Obesity_Type_I Obesity_Type_I
## [967] Insufficient_Weight Obesity_Type_I Obesity_Type_I
## [970] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [973] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [976] Obesity_Type_I Normal_Weight Obesity_Type_I
## [979] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [982] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [985] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [988] Obesity_Type_III Obesity_Type_I Overweight_Level_I
## [991] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [994] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [997] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1000] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1003] Obesity_Type_II Obesity_Type_I Overweight_Level_I
## [1006] Obesity_Type_I Overweight_Level_II Obesity_Type_I
## [1009] Obesity_Type_III Obesity_Type_I Obesity_Type_III
## [1012] Overweight_Level_I Obesity_Type_II Obesity_Type_I
## [1015] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1018] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1021] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1024] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1027] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1030] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1033] Obesity_Type_I Overweight_Level_I Obesity_Type_III
## [1036] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1039] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1042] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [1045] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1048] Overweight_Level_I Overweight_Level_I Obesity_Type_II
## [1051] Obesity_Type_II Obesity_Type_I Overweight_Level_I
## [1054] Obesity_Type_I Obesity_Type_II Obesity_Type_III
## [1057] Obesity_Type_I Obesity_Type_II Overweight_Level_I
## [1060] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1063] Obesity_Type_II Obesity_Type_III Obesity_Type_I
## [1066] Overweight_Level_I Obesity_Type_II Obesity_Type_I
## [1069] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1072] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [1075] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1078] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1081] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1084] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1087] Overweight_Level_I Obesity_Type_I Obesity_Type_III
## [1090] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1093] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1096] Obesity_Type_I Obesity_Type_III Obesity_Type_I
## [1099] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1102] Obesity_Type_II Overweight_Level_I Overweight_Level_II
## [1105] Obesity_Type_III Obesity_Type_I Overweight_Level_I
## [1108] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1111] Obesity_Type_III Obesity_Type_I Obesity_Type_II
## [1114] Obesity_Type_I Overweight_Level_I Obesity_Type_II
## [1117] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1120] Obesity_Type_I Obesity_Type_III Obesity_Type_II
## [1123] Obesity_Type_I Obesity_Type_II Overweight_Level_I
## [1126] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1129] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1132] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1135] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1138] Overweight_Level_II Overweight_Level_I Obesity_Type_I
## [1141] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1144] Obesity_Type_II Obesity_Type_II Obesity_Type_III
## [1147] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1150] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1153] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1156] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1159] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1162] Overweight_Level_I Obesity_Type_II Overweight_Level_I
## [1165] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [1168] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1171] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1174] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1177] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1180] Obesity_Type_III Obesity_Type_I Obesity_Type_II
## [1183] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1186] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [1189] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1192] Obesity_Type_II Overweight_Level_I Overweight_Level_I
## [1195] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1198] Overweight_Level_I Obesity_Type_II Obesity_Type_III
## [1201] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1204] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1207] Obesity_Type_III Obesity_Type_I Obesity_Type_II
## [1210] Obesity_Type_III Obesity_Type_III Overweight_Level_II
## [1213] Obesity_Type_I Obesity_Type_III Obesity_Type_II
## [1216] Obesity_Type_II Obesity_Type_III Overweight_Level_II
## [1219] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1222] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1225] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1228] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1231] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1234] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1237] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [1240] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1243] Obesity_Type_II Overweight_Level_II Obesity_Type_I
## [1246] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1249] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1252] Overweight_Level_I Obesity_Type_II Obesity_Type_III
## [1255] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1258] Overweight_Level_I Overweight_Level_I Obesity_Type_III
## [1261] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1264] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1267] Obesity_Type_II Obesity_Type_III Obesity_Type_I
## [1270] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1273] Normal_Weight Obesity_Type_I Overweight_Level_I
## [1276] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1279] Overweight_Level_I Obesity_Type_III Obesity_Type_III
## [1282] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1285] Obesity_Type_I Obesity_Type_III Obesity_Type_II
## [1288] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1291] Overweight_Level_II Obesity_Type_I Obesity_Type_I
## [1294] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1297] Obesity_Type_II Overweight_Level_I Overweight_Level_I
## [1300] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1303] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1306] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1309] Obesity_Type_I Obesity_Type_II Obesity_Type_III
## [1312] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1315] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1318] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1321] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1324] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1327] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1330] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1333] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1336] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1339] Obesity_Type_I Obesity_Type_II Obesity_Type_II
## [1342] Obesity_Type_I Obesity_Type_II Overweight_Level_I
## [1345] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1348] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1351] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1354] Obesity_Type_I Overweight_Level_I Obesity_Type_II
## [1357] Obesity_Type_II Overweight_Level_I Overweight_Level_I
## [1360] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1363] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1366] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1369] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1372] Overweight_Level_I Overweight_Level_I Obesity_Type_III
## [1375] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1378] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1381] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1384] Overweight_Level_I Obesity_Type_I Obesity_Type_II
## [1387] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1390] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1393] Obesity_Type_II Overweight_Level_I Overweight_Level_I
## [1396] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1399] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1402] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1405] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [1408] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1411] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1414] Obesity_Type_II Obesity_Type_II Normal_Weight
## [1417] Normal_Weight Obesity_Type_I Obesity_Type_II
## [1420] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1423] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1426] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [1429] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1432] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1435] Overweight_Level_I Obesity_Type_I Obesity_Type_III
## [1438] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1441] Obesity_Type_II Overweight_Level_II Obesity_Type_I
## [1444] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1447] Obesity_Type_I Overweight_Level_I Overweight_Level_I
## [1450] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1453] Obesity_Type_I Obesity_Type_I Overweight_Level_II
## [1456] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1459] Obesity_Type_I Obesity_Type_II Obesity_Type_II
## [1462] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1465] Obesity_Type_I Obesity_Type_III Obesity_Type_II
## [1468] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [1471] Overweight_Level_I Obesity_Type_II Overweight_Level_I
## [1474] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1477] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1480] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1483] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1486] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1489] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1492] Overweight_Level_I Overweight_Level_I Overweight_Level_I
## [1495] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1498] Obesity_Type_I Overweight_Level_I Normal_Weight
## [1501] Normal_Weight Overweight_Level_I Obesity_Type_I
## [1504] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1507] Obesity_Type_I Obesity_Type_I Overweight_Level_II
## [1510] Overweight_Level_I Obesity_Type_I Overweight_Level_I
## [1513] Overweight_Level_I Obesity_Type_I Normal_Weight
## [1516] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1519] Obesity_Type_III Overweight_Level_I Obesity_Type_I
## [1522] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1525] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1528] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1531] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1534] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1537] Normal_Weight Obesity_Type_III Obesity_Type_II
## [1540] Obesity_Type_III Obesity_Type_III Obesity_Type_I
## [1543] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1546] Obesity_Type_II Obesity_Type_III Obesity_Type_II
## [1549] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1552] Obesity_Type_I Overweight_Level_I Obesity_Type_III
## [1555] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1558] Obesity_Type_I Overweight_Level_I Obesity_Type_II
## [1561] Obesity_Type_I Overweight_Level_I Obesity_Type_I
## [1564] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1567] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1570] Obesity_Type_III Obesity_Type_III Obesity_Type_I
## [1573] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1576] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1579] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1582] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1585] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1588] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1591] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1594] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1597] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1600] Obesity_Type_I Obesity_Type_II Overweight_Level_II
## [1603] Overweight_Level_I Obesity_Type_I Obesity_Type_I
## [1606] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1609] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1612] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1615] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1618] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1621] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1624] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1627] Obesity_Type_I Obesity_Type_I Overweight_Level_I
## [1630] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1633] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1636] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1639] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1642] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1645] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1648] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1651] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1654] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1657] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1660] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1663] Obesity_Type_III Obesity_Type_I Obesity_Type_II
## [1666] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1669] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1672] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1675] Obesity_Type_II Obesity_Type_III Obesity_Type_II
## [1678] Obesity_Type_III Obesity_Type_III Obesity_Type_I
## [1681] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1684] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1687] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1690] Obesity_Type_III Obesity_Type_III Obesity_Type_I
## [1693] Obesity_Type_I Obesity_Type_II Obesity_Type_I
## [1696] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1699] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1702] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1705] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1708] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1711] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1714] Overweight_Level_II Overweight_Level_I Obesity_Type_II
## [1717] Obesity_Type_II Obesity_Type_II Obesity_Type_I
## [1720] Overweight_Level_I Overweight_Level_I Obesity_Type_I
## [1723] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1726] Obesity_Type_III Obesity_Type_II Obesity_Type_III
## [1729] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1732] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1735] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1738] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1741] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1744] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1747] Obesity_Type_II Obesity_Type_I Obesity_Type_I
## [1750] Overweight_Level_I Obesity_Type_I Obesity_Type_III
## [1753] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1756] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1759] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1762] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1765] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1768] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1771] Obesity_Type_I Obesity_Type_II Obesity_Type_II
## [1774] Obesity_Type_I Obesity_Type_I Obesity_Type_I
## [1777] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1780] Obesity_Type_II Obesity_Type_I Obesity_Type_II
## [1783] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1786] Obesity_Type_II Obesity_Type_I Obesity_Type_III
## [1789] Obesity_Type_III Obesity_Type_II Obesity_Type_III
## [1792] Obesity_Type_I Obesity_Type_I Obesity_Type_II
## [1795] Obesity_Type_III Obesity_Type_I Obesity_Type_I
## [1798] Obesity_Type_I Obesity_Type_I Obesity_Type_III
## [1801] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1804] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1807] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1810] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1813] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1816] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1819] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1822] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1825] Obesity_Type_III Obesity_Type_II Obesity_Type_I
## [1828] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1831] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1834] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1837] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1840] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1843] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1846] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1849] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1852] Obesity_Type_II Obesity_Type_III Obesity_Type_II
## [1855] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1858] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1861] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1864] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1867] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1870] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1873] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1876] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1879] Obesity_Type_II Obesity_Type_II Obesity_Type_III
## [1882] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1885] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1888] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1891] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1894] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1897] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1900] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1903] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1906] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1909] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1912] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1915] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1918] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1921] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1924] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1927] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1930] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1933] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1936] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1939] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1942] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1945] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1948] Obesity_Type_II Obesity_Type_III Obesity_Type_II
## [1951] Obesity_Type_II Obesity_Type_II Obesity_Type_III
## [1954] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1957] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1960] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1963] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [1966] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1969] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1972] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1975] Obesity_Type_I Obesity_Type_III Obesity_Type_III
## [1978] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1981] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [1984] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1987] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [1990] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1993] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [1996] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [1999] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [2002] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2005] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2008] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2011] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2014] Obesity_Type_II Obesity_Type_II Obesity_Type_III
## [2017] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2020] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2023] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2026] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [2029] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [2032] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2035] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2038] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2041] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2044] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2047] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [2050] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [2053] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [2056] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2059] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2062] Obesity_Type_III Obesity_Type_III Obesity_Type_II
## [2065] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [2068] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2071] Obesity_Type_III Obesity_Type_II Obesity_Type_II
## [2074] Obesity_Type_III Obesity_Type_II Obesity_Type_III
## [2077] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [2080] Obesity_Type_II Obesity_Type_II Obesity_Type_III
## [2083] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2086] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2089] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2092] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2095] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2098] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2101] Obesity_Type_III Obesity_Type_III Obesity_Type_III
## [2104] Obesity_Type_II Obesity_Type_II Obesity_Type_II
## [2107] Obesity_Type_II Obesity_Type_III Obesity_Type_III
## [2110] Obesity_Type_III Obesity_Type_III
## 7 Levels: Insufficient_Weight Normal_Weight ... Obesity_Type_III
cTab <- table(
Actual = OLR_data$NObeyesdad,
Predicted = predictOLR
)
Test the goodness of fit
chisq.test(table(
Actual = OLR_data$NObeyesdad,
Predicted = predictOLR
))
## Warning in chisq.test(table(Actual = OLR_data$NObeyesdad, Predicted =
## predictOLR)): Chi-squared approximation may be incorrect
##
## Pearson's Chi-squared test
##
## data: table(Actual = OLR_data$NObeyesdad, Predicted = predictOLR)
## X-squared = 1890.5, df = 36, p-value < 2.2e-16
Confusion table
cTab <- table(Actual = OLR_data$NObeyesdad, Predicted = predictOLR)
cTab
## Predicted
## Actual Insufficient_Weight Normal_Weight Overweight_Level_I
## Insufficient_Weight 101 100 41
## Normal_Weight 106 74 52
## Overweight_Level_I 29 58 47
## Overweight_Level_II 11 15 66
## Obesity_Type_I 5 13 75
## Obesity_Type_II 1 4 11
## Obesity_Type_III 0 1 0
## Predicted
## Actual Overweight_Level_II Obesity_Type_I Obesity_Type_II
## Insufficient_Weight 0 27 3
## Normal_Weight 1 39 6
## Overweight_Level_I 2 120 22
## Overweight_Level_II 4 138 31
## Obesity_Type_I 7 169 52
## Obesity_Type_II 2 130 79
## Obesity_Type_III 0 6 83
## Predicted
## Actual Obesity_Type_III
## Insufficient_Weight 0
## Normal_Weight 9
## Overweight_Level_I 12
## Overweight_Level_II 25
## Obesity_Type_I 30
## Obesity_Type_II 70
## Obesity_Type_III 234
Misclassification error
mean(as.character(OLR_data$NObeyesdad) != as.character(predictOLR))
## [1] 0.6646139
Classification rate
CCR <- sum(diag(cTab)) / sum(cTab)
CCR
## [1] 0.3353861
Koefisien dan p-value
OLRestimates <- coef(summary(OLRmodel))
p <- pnorm(abs(OLRestimates[, "t value"]), lower.tail = FALSE) * 2
OLRestimates_P <- cbind(OLRestimates, "p value" = p)
OLRestimates_P
## Value Std. Error t value
## GenderMale -0.1106187 0.086912270 -1.2727626
## Age 0.1169590 0.009332865 12.5319478
## family_history_with_overweightyes 2.3026716 0.129844977 17.7340060
## FAVCyes 0.6642573 0.134294862 4.9462603
## FCVC 1.0277053 0.084816882 12.1167534
## NCP 0.1695983 0.052900423 3.2059911
## CAECFrequently -1.6842880 0.287969140 -5.8488489
## CAECno 0.8209921 0.362461556 2.2650459
## CAECSometimes 1.0789993 0.256997442 4.1984826
## SMOKEyes -0.1939064 0.283199323 -0.6846992
## CH2O 0.2653329 0.069466181 3.8195978
## SCCyes -0.6468314 0.213419372 -3.0307997
## FAF -0.3639953 0.051154547 -7.1155995
## TUE -0.1333018 0.069831756 -1.9088997
## CALCFrequently -1.4410219 1.560628088 -0.9233602
## CALCno -1.7403855 1.548230131 -1.1241129
## CALCSometimes -1.1217932 1.549043119 -0.7241846
## MTRANSBike 0.8374583 0.665257150 1.2588489
## MTRANSMotorbike 1.9973387 0.642614715 3.1081434
## MTRANSPublic_Transportation 1.7497061 0.135540870 12.9090665
## MTRANSWalking 0.8221669 0.293420242 2.8020117
## Insufficient_Weight|Normal_Weight 5.8360561 1.626888677 3.5872498
## Normal_Weight|Overweight_Level_I 7.3122671 1.628434383 4.4903664
## Overweight_Level_I|Overweight_Level_II 8.4377477 1.631603086 5.1714463
## Overweight_Level_II|Obesity_Type_I 9.3202024 1.633781705 5.7046803
## Obesity_Type_I|Obesity_Type_II 10.3920000 1.636767316 6.3491004
## Obesity_Type_II|Obesity_Type_III 11.6078448 1.640401699 7.0762209
## p value
## GenderMale 2.031023e-01
## Age 4.992134e-36
## family_history_with_overweightyes 2.291124e-70
## FAVCyes 7.565279e-07
## FCVC 8.610280e-34
## NCP 1.345981e-03
## CAECFrequently 4.949864e-09
## CAECno 2.350986e-02
## CAECSometimes 2.687095e-05
## SMOKEyes 4.935337e-01
## CH2O 1.336694e-04
## SCCyes 2.439070e-03
## FAF 1.114274e-12
## TUE 5.627504e-02
## CALCFrequently 3.558195e-01
## CALCno 2.609651e-01
## CALCSometimes 4.689524e-01
## MTRANSBike 2.080849e-01
## MTRANSMotorbike 1.882667e-03
## MTRANSPublic_Transportation 4.001222e-38
## MTRANSWalking 5.078504e-03
## Insufficient_Weight|Normal_Weight 3.341841e-04
## Normal_Weight|Overweight_Level_I 7.110076e-06
## Overweight_Level_I|Overweight_Level_II 2.322891e-07
## Overweight_Level_II|Obesity_Type_I 1.165616e-08
## Obesity_Type_I|Obesity_Type_II 2.165777e-10
## Obesity_Type_II|Obesity_Type_III 1.481387e-12
Data baru untuk prediksi
newpatient <- data.frame(
Gender = factor("Female", levels = levels(OLR_data$Gender)),
Age = 21,
family_history_with_overweight = factor("yes", levels = levels(OLR_data$family_history_with_overweight)),
FAVC = factor("no", levels = levels(OLR_data$FAVC)),
FCVC = 2,
NCP = 3,
CAEC = factor("Sometimes", levels = levels(OLR_data$CAEC)),
SMOKE = factor("no", levels = levels(OLR_data$SMOKE)),
CH2O = 2,
SCC = factor("no", levels = levels(OLR_data$SCC)),
FAF = 1,
TUE = 0,
CALC = factor("no", levels = levels(OLR_data$CALC)),
MTRANS = factor("Public_Transportation", levels = levels(OLR_data$MTRANS))
)
predict(OLRmodel, newpatient)
## [1] Overweight_Level_I
## 7 Levels: Insufficient_Weight Normal_Weight ... Obesity_Type_III
predict(OLRmodel, newpatient, type = "probs")
## Insufficient_Weight Normal_Weight Overweight_Level_I Overweight_Level_II
## 0.06054291 0.15944466 0.24500526 0.21248315
## Obesity_Type_I Obesity_Type_II Obesity_Type_III
## 0.18236792 0.09406018 0.04609591
Distribusi Kategori Obesitas
ggplot(OLR_data, aes(x = NObeyesdad)) +
geom_bar(fill = "skyblue") +
labs(
title = "Distribusi Kategori Obesitas",
x = "Kategori Obesitas",
y = "Jumlah"
) +
theme_minimal() +
theme(
axis.text.x = element_text(angle = 45, hjust = 1)
)
