inst/exercise/course/PoissonExerciseCode.R

hospitalstay.data<- read.csv(file="./PoissonExampleData.csv", header=TRUE, sep=",")

#fitting Poisson model
summary(fitted.model<- glm(days ~ gender + age + illness, 
data=hospitalstay.data, family=poisson(link=log)))

#using fitted model for prediction
print(predict(fitted.model, data.frame(gender="M", age=55, illness="no"), 
type="response"))
ocrug/AdvancedRegression documentation built on Nov. 4, 2019, 10:13 p.m.