inst/exercise/course/ZIPExerciseCode.R

health.data<- read.csv(file='./ZIPExerciseData.csv',
header = TRUE, sep=',')

library(pscl)

#fitting zero-inflated Poisson model
summary(fitted.model<- zeroinfl(attacks~BMI+age+gender|smoking, 
data=health.data))

#using fitted model for prediction
print(predict(fitted.model, data.frame(BMI=21.2, age=60, 
gender='M', smoking='yes')))
ocrug/AdvancedRegression documentation built on Nov. 4, 2019, 10:13 p.m.