bp <- read.csv("https://pengdsci.github.io/datasets/HighBP/nhanes.csv")
missing_summary <- summary(bp)
print(missing_summary)
##        X              obs             psu           stratum     
##  Min.   :    3   Min.   :    9   Min.   :1.000   Min.   : 1.00  
##  1st Qu.: 4036   1st Qu.:10596   1st Qu.:1.000   1st Qu.:12.00  
##  Median : 8164   Median :21445   Median :1.000   Median :22.00  
##  Mean   : 8342   Mean   :26459   Mean   :1.491   Mean   :22.97  
##  3rd Qu.:12628   3rd Qu.:42533   3rd Qu.:2.000   3rd Qu.:33.00  
##  Max.   :17027   Max.   :53589   Max.   :2.000   Max.   :49.00  
##   stat.weight            age             sex             race      
##  Min.   :   225.9   Min.   :20.00   Min.   :0.000   Min.   :1.000  
##  1st Qu.:  2496.1   1st Qu.:34.00   1st Qu.:0.000   1st Qu.:1.000  
##  Median :  4974.7   Median :47.00   Median :1.000   Median :1.000  
##  Mean   : 11416.5   Mean   :49.37   Mean   :0.598   Mean   :1.327  
##  3rd Qu.: 16990.0   3rd Qu.:64.00   3rd Qu.:1.000   3rd Qu.:2.000  
##  Max.   :131094.3   Max.   :90.00   Max.   :1.000   Max.   :3.000  
##   body.weight        height         avg.sbp         avg.dbp          past.smk
##  Min.   : 73.4   Min.   :51.40   Min.   : 80.0   Min.   : 20.00   Min.   :1  
##  1st Qu.:141.2   1st Qu.:63.80   1st Qu.:113.0   1st Qu.: 68.00   1st Qu.:1  
##  Median :164.5   Median :66.40   Median :124.0   Median : 75.00   Median :1  
##  Mean   :168.4   Mean   :66.35   Mean   :126.9   Mean   : 74.96   Mean   :1  
##  3rd Qu.:189.6   3rd Qu.:68.90   3rd Qu.:138.0   3rd Qu.: 82.00   3rd Qu.:1  
##  Max.   :454.2   Max.   :78.70   Max.   :244.0   Max.   :134.00   Max.   :1  
##   current.smk      cholestrol         hbp        
##  Min.   :1.000   Min.   : 59.0   Min.   :0.0000  
##  1st Qu.:1.000   1st Qu.:176.0   1st Qu.:0.0000  
##  Median :1.000   Median :203.0   Median :0.0000  
##  Mean   :1.491   Mean   :207.1   Mean   :0.2146  
##  3rd Qu.:2.000   3rd Qu.:233.0   3rd Qu.:0.0000  
##  Max.   :2.000   Max.   :702.0   Max.   :1.0000
LS0tDQp0aXRsZTogIkRhdGEgU3Rvcnl0ZWxsaW5nIFByb2plY3Q6IFtZb3VyIFByb2plY3QgVGl0bGVdIg0KYXV0aG9yOiAiWW91ciBOYW1lIg0KZGF0ZTogImByIFN5cy5EYXRlKClgIg0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50OiANCiAgICB0b2M6IHllcw0KICAgIHRvY19kZXB0aDogNA0KICAgIHRvY19mbG9hdDogeWVzDQogICAgbnVtYmVyX3NlY3Rpb25zOiB5ZXMNCiAgICB0b2NfY29sbGFwc2VkOiB5ZXMNCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUNCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBzbW9vdGhfc2Nyb2xsOiB5ZXMNCiAgICB0aGVtZTogbHVtZW4NCiAgcGRmX2RvY3VtZW50OiANCiAgICB0b2M6IHllcw0KICAgIHRvY19kZXB0aDogNA0KICAgIGZpZ19jYXB0aW9uOiB5ZXMNCiAgICBudW1iZXJfc2VjdGlvbnM6IHllcw0KICAgIGZpZ193aWR0aDogMw0KICAgIGZpZ19oZWlnaHQ6IDMNCiAgd29yZF9kb2N1bWVudDogDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZGVwdGg6IDQNCiAgICBmaWdfY2FwdGlvbjogeWVzDQogICAga2VlcF9tZDogeWVzDQplZGl0b3Jfb3B0aW9uczogDQogIGNodW5rX291dHB1dF90eXBlOiBpbmxpbmUNCi0tLQ0KDQpgYGB7Y3NzLCBlY2hvID0gRkFMU0V9DQojVE9DOjpiZWZvcmUgew0KICBjb250ZW50OiAiVGFibGUgb2YgQ29udGVudHMiOw0KICBmb250LXdlaWdodDogYm9sZDsNCiAgZm9udC1zaXplOiAxLjJlbTsNCiAgZGlzcGxheTogYmxvY2s7DQogIGNvbG9yOiBuYXZ5Ow0KICBtYXJnaW4tYm90dG9tOiAxMHB4Ow0KfQ0KDQoNCmRpdiNUT0MgbGkgeyAgICAgLyogdGFibGUgb2YgY29udGVudCAgKi8NCiAgICBsaXN0LXN0eWxlOnVwcGVyLXJvbWFuOw0KICAgIGJhY2tncm91bmQtaW1hZ2U6bm9uZTsNCiAgICBiYWNrZ3JvdW5kLXJlcGVhdDpub25lOw0KICAgIGJhY2tncm91bmQtcG9zaXRpb246MDsNCn0NCg0KaDEudGl0bGUgeyAgICAvKiBsZXZlbCAxIGhlYWRlciBvZiB0aXRsZSAgKi8NCiAgZm9udC1zaXplOiAyMnB4Ow0KICBmb250LXdlaWdodDogYm9sZDsNCiAgY29sb3I6IERhcmtSZWQ7DQogIHRleHQtYWxpZ246IGNlbnRlcjsNCiAgZm9udC1mYW1pbHk6ICJHaWxsIFNhbnMiLCBzYW5zLXNlcmlmOw0KfQ0KDQpoNC5hdXRob3IgeyAvKiBIZWFkZXIgNCAtIGFuZCB0aGUgYXV0aG9yIGFuZCBkYXRhIGhlYWRlcnMgdXNlIHRoaXMgdG9vICAqLw0KICBmb250LXNpemU6IDE1cHg7DQogIGZvbnQtd2VpZ2h0OiBib2xkOw0KICBmb250LWZhbWlseTogc3lzdGVtLXVpOw0KICBjb2xvcjogbmF2eTsNCiAgdGV4dC1hbGlnbjogY2VudGVyOw0KfQ0KDQpoNC5kYXRlIHsgLyogSGVhZGVyIDQgLSBhbmQgdGhlIGF1dGhvciBhbmQgZGF0YSBoZWFkZXJzIHVzZSB0aGlzIHRvbyAgKi8NCiAgZm9udC1zaXplOiAxOHB4Ow0KICBmb250LXdlaWdodDogYm9sZDsNCiAgZm9udC1mYW1pbHk6ICJHaWxsIFNhbnMiLCBzYW5zLXNlcmlmOw0KICBjb2xvcjogRGFya0JsdWU7DQogIHRleHQtYWxpZ246IGNlbnRlcjsNCn0NCg0KaDEgeyAvKiBIZWFkZXIgMSAtIGFuZCB0aGUgYXV0aG9yIGFuZCBkYXRhIGhlYWRlcnMgdXNlIHRoaXMgdG9vICAqLw0KICAgIGZvbnQtc2l6ZTogMjBweDsNCiAgICBmb250LXdlaWdodDogYm9sZDsNCiAgICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgICBjb2xvcjogZGFya3JlZDsNCiAgICB0ZXh0LWFsaWduOiBjZW50ZXI7DQp9DQoNCmgyIHsgLyogSGVhZGVyIDIgLSBhbmQgdGhlIGF1dGhvciBhbmQgZGF0YSBoZWFkZXJzIHVzZSB0aGlzIHRvbyAgKi8NCiAgICBmb250LXNpemU6IDE4cHg7DQogICAgZm9udC13ZWlnaHQ6IGJvbGQ7DQogICAgZm9udC1mYW1pbHk6ICJUaW1lcyBOZXcgUm9tYW4iLCBUaW1lcywgc2VyaWY7DQogICAgY29sb3I6IG5hdnk7DQogICAgdGV4dC1hbGlnbjogbGVmdDsNCn0NCg0KaDMgeyAvKiBIZWFkZXIgMyAtIGFuZCB0aGUgYXV0aG9yIGFuZCBkYXRhIGhlYWRlcnMgdXNlIHRoaXMgdG9vICAqLw0KICAgIGZvbnQtc2l6ZTogMTZweDsNCiAgICBmb250LXdlaWdodDogYm9sZDsNCiAgICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgICBjb2xvcjogbmF2eTsNCiAgICB0ZXh0LWFsaWduOiBsZWZ0Ow0KfQ0KDQpoNCB7IC8qIEhlYWRlciA0IC0gYW5kIHRoZSBhdXRob3IgYW5kIGRhdGEgaGVhZGVycyB1c2UgdGhpcyB0b28gICovDQogICAgZm9udC1zaXplOiAxNHB4Ow0KICBmb250LXdlaWdodDogYm9sZDsNCiAgICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgICBjb2xvcjogZGFya3JlZDsNCiAgICB0ZXh0LWFsaWduOiBsZWZ0Ow0KfQ0KDQovKiBBZGQgZG90cyBhZnRlciBudW1iZXJlZCBoZWFkZXJzICovDQouaGVhZGVyLXNlY3Rpb24tbnVtYmVyOjphZnRlciB7DQogIGNvbnRlbnQ6ICIuIjsNCg0KYm9keSB7IGJhY2tncm91bmQtY29sb3I6d2hpdGU7IH0NCg0KLmhpZ2hsaWdodG1lIHsgYmFja2dyb3VuZC1jb2xvcjp5ZWxsb3c7IH0NCg0KcCB7IGJhY2tncm91bmQtY29sb3I6d2hpdGU7IH0NCg0KfQ0KYGBgDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCiMgTG9hZCByZXF1aXJlZCBsaWJyYXJpZXMNCmxpYnJhcnkodGlkeXZlcnNlKSAgIyBGb3IgZGF0YSBtYW5pcHVsYXRpb24gYW5kIHZpc3VhbGl6YXRpb24NCmxpYnJhcnkoZ2dwbG90MikgICAgIyBGb3IgYWR2YW5jZWQgcGxvdHRpbmcNCmxpYnJhcnkobmFuaWFyKSAgICAgIyBGb3IgbWlzc2luZyBkYXRhIHZpc3VhbGl6YXRpb24NCmxpYnJhcnkoc2tpbXIpICAgICAgIyBGb3IgY29tcGFjdCBkYXRhIHN1bW1hcmllcw0KbGlicmFyeShHR2FsbHkpICAgICAjIEZvciBwYXJhbGxlbCBjb29yZGluYXRlIHBsb3RzIGFuZCBzY2F0dGVycGxvdCBtYXRyaWNlcw0KbGlicmFyeShwbG90bHkpICAgICAjIEZvciBpbnRlcmFjdGl2ZSB2aXN1YWxpemF0aW9ucw0KbGlicmFyeShEVCkgICAgICAgICAjIEZvciBpbnRlcmFjdGl2ZSB0YWJsZXMNCg0KIyBHbG9iYWwgY2h1bmsgb3B0aW9ucw0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KA0KICBlY2hvID0gVFJVRSwNCiAgd2FybmluZyA9IEZBTFNFLA0KICBtZXNzYWdlID0gRkFMU0UsDQogIGZpZy53aWR0aCA9IDEwLA0KICBmaWcuaGVpZ2h0ID0gNiwNCiAgZmlnLmFsaWduID0gImNlbnRlciINCikNCg0KIyBDdXN0b20gdGhlbWUgZm9yIGNvbnNpc3RlbnQgdmlzdWFsIGRlc2lnbg0KdGhlbWVfc3Rvcnl0ZWxsaW5nIDwtIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE2LCBmYWNlID0gImJvbGQiLCBtYXJnaW4gPSBtYXJnaW4oYiA9IDEwKSksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTIsIGNvbG9yID0gImdyZXk0MCIpLA0KICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDExKSwNCiAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEwKSwNCiAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwNCiAgICBwYW5lbC5ncmlkLm1ham9yID0gZWxlbWVudF9saW5lKGNvbG9yID0gImdyZXk5MCIpLA0KICAgIHBhbmVsLmdyaWQubWlub3IgPSBlbGVtZW50X2JsYW5rKCksDQogICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMjAsIDIwLCAyMCwgMjApDQogICkNCmBgYA0KDQoNCg0KDQoNCmBgYHtyfQ0KYnAgPC0gcmVhZC5jc3YoImh0dHBzOi8vcGVuZ2RzY2kuZ2l0aHViLmlvL2RhdGFzZXRzL0hpZ2hCUC9uaGFuZXMuY3N2IikNCm1pc3Npbmdfc3VtbWFyeSA8LSBzdW1tYXJ5KGJwKQ0KcHJpbnQobWlzc2luZ19zdW1tYXJ5KQ0KYGBgDQoNCg0KDQoNCg0KYGBgez1odG1sfQ0KPGRpdiBjbGFzcz0idGFibGVhdVBsYWNlaG9sZGVyIiBpZD0idml6MTc4MjIzMzI0ODU3MCIgc3R5bGU9InBvc2l0aW9uOiByZWxhdGl2ZTsgd2lkdGg6IDEwMCU7Ij4NCg0KPG5vc2NyaXB0Pg0KPGEgaHJlZj0nIyc+DQo8aW1nIGFsdD0nSGlnaCBCbG9vZCBQcmVzc3VyZTogUmlzayBGYWN0b3IgQXNzb2NpYXRpb25zJw0Kc3JjPSdodHRwczovL3B1YmxpYy50YWJsZWF1LmNvbS9zdGF0aWMvaW1hZ2VzL1ByL1Byb2plY3Q0LURhc2hib2FyZFdvcmsvRGFzaGJvYXJkMS8xX3Jzcy5wbmcnDQpzdHlsZT0nYm9yZGVyOiBub25lOyB3aWR0aDogMTAwJTsnIC8+DQo8L2E+DQo8L25vc2NyaXB0Pg0KDQo8b2JqZWN0IGNsYXNzPSJ0YWJsZWF1Vml6IiBzdHlsZT0iZGlzcGxheTpub25lOyB3aWR0aDoxMDAlOyI+DQoNCjxwYXJhbSBuYW1lPSJob3N0X3VybCIgdmFsdWU9Imh0dHBzJTNBJTJGJTJGcHVibGljLnRhYmxlYXUuY29tJTJGIiAvPg0KPHBhcmFtIG5hbWU9Im5hbWUiIHZhbHVlPSJQcm9qZWN0NC1EYXNoYm9hcmRXb3JrL0Rhc2hib2FyZDEiIC8+DQo8cGFyYW0gbmFtZT0idGFicyIgdmFsdWU9Im5vIiAvPg0KPHBhcmFtIG5hbWU9InRvb2xiYXIiIHZhbHVlPSJ5ZXMiIC8+DQo8cGFyYW0gbmFtZT0ic3RhdGljX2ltYWdlIiB2YWx1ZT0iaHR0cHM6Ly9wdWJsaWMudGFibGVhdS5jb20vc3RhdGljL2ltYWdlcy9Qci9Qcm9qZWN0NC1EYXNoYm9hcmRXb3JrL0Rhc2hib2FyZDEvMS5wbmciIC8+DQo8cGFyYW0gbmFtZT0iYW5pbWF0ZV90cmFuc2l0aW9uIiB2YWx1ZT0ieWVzIiAvPg0KPHBhcmFtIG5hbWU9ImRpc3BsYXlfc3RhdGljX2ltYWdlIiB2YWx1ZT0ieWVzIiAvPg0KPHBhcmFtIG5hbWU9ImRpc3BsYXlfc3Bpbm5lciIgdmFsdWU9InllcyIgLz4NCjxwYXJhbSBuYW1lPSJkaXNwbGF5X292ZXJsYXkiIHZhbHVlPSJ5ZXMiIC8+DQo8cGFyYW0gbmFtZT0iZGlzcGxheV9jb3VudCIgdmFsdWU9InllcyIgLz4NCjxwYXJhbSBuYW1lPSJsYW5ndWFnZSIgdmFsdWU9ImVuLVVTIiAvPg0KPHBhcmFtIG5hbWU9ImZpbHRlciIgdmFsdWU9InB1Ymxpc2g9eWVzIiAvPg0KDQo8L29iamVjdD4NCjwvZGl2Pg0KDQo8c2NyaXB0IHR5cGU9InRleHQvamF2YXNjcmlwdCI+DQooZnVuY3Rpb24gKCkgew0KICB2YXIgZGl2RWxlbWVudCA9IGRvY3VtZW50LmdldEVsZW1lbnRCeUlkKCd2aXoxNzgyMjMzMjQ4NTcwJyk7DQogIHZhciB2aXpFbGVtZW50ID0gZGl2RWxlbWVudC5nZXRFbGVtZW50c0J5VGFnTmFtZSgnb2JqZWN0JylbMF07DQoNCiAgLy8gRm9yY2Ugc3RhYmxlIHNpemluZyAoaW1wb3J0YW50IGZvciBSIE1hcmtkb3duKQ0KICB2aXpFbGVtZW50LnN0eWxlLndpZHRoID0gJzEwMCUnOw0KICB2aXpFbGVtZW50LnN0eWxlLmhlaWdodCA9ICcxMTAwcHgnOw0KDQogIHZhciBzY3JpcHQgPSBkb2N1bWVudC5jcmVhdGVFbGVtZW50KCdzY3JpcHQnKTsNCiAgc2NyaXB0LnNyYyA9ICdodHRwczovL3B1YmxpYy50YWJsZWF1LmNvbS9qYXZhc2NyaXB0cy9hcGkvdml6X3YxLmpzJzsNCiAgc2NyaXB0LmFzeW5jID0gdHJ1ZTsNCiAgdml6RWxlbWVudC5wYXJlbnROb2RlLmluc2VydEJlZm9yZShzY3JpcHQsIHZpekVsZW1lbnQpOw0KfSkoKTsNCjwvc2NyaXB0Pg0KYGBgDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg==