Academic Integrity: tutoring, explanations, and feedback — we don’t complete graded work or submit on a student’s behalf.

Write the r code > data(\"SAheart\") > summary(SAheart) sbp tobacco ldl adiposit

ID: 3778694 • Letter: W

Question

Write the r code

> data("SAheart")
> summary(SAheart)
sbp tobacco ldl adiposity
Min. :101.0 Min. : 0.0000 Min. : 0.980 Min. : 6.74
1st Qu.:124.0 1st Qu.: 0.0525 1st Qu.: 3.283 1st Qu.:19.77
Median :134.0 Median : 2.0000 Median : 4.340 Median :26.11
Mean :138.3 Mean : 3.6356 Mean : 4.740 Mean :25.41
3rd Qu.:148.0 3rd Qu.: 5.5000 3rd Qu.: 5.790 3rd Qu.:31.23
Max. :218.0 Max. :31.2000 Max. :15.330 Max. :42.49
famhist typea obesity alcohol
Absent :270 Min. :13.0 Min. :14.70 Min. : 0.00
Present:192 1st Qu.:47.0 1st Qu.:22.98 1st Qu.: 0.51
Median :53.0 Median :25.80 Median : 7.51
Mean :53.1 Mean :26.04 Mean : 17.04
3rd Qu.:60.0 3rd Qu.:28.50 3rd Qu.: 23.89
Max. :78.0 Max. :46.58 Max. :147.19
age chd
Min. :15.00 Min. :0.0000
1st Qu.:31.00 1st Qu.:0.0000
Median :45.00 Median :0.0000
Mean :42.82 Mean :0.3463
3rd Qu.:55.00 3rd Qu.:1.0000
Max. :64.00 Max. :1.0000

Instructions Use the data set SAheart found in the ElemStatLearn package and perform a logistic regression of chd on obesity. Provide a plot and the logistic regression analysis similar to the Challenger example. library(ElemStatLearn) #load this package if you do not have it head (SAheart) Description of South African Heart Disease Data A retrospective sample of males in a heart-disease high-risk region of the Western Cape, South Africa Usage data(SAheart)

Explanation / Answer

Reg.R