inst/exercise/course/BetaExerciseCode.R

In ocrug/AdvancedRegression: Advaced Regression Models With SAS And R

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

library(betareg)

#fitting beta regression
summary(fitted.model<- betareg(propmigrated~mass+wingspan+distance, data = birds.data, link='logit'))

#using fitted model for prediction
prop.pred<- predict(fitted.model, data.frame(mass=.6, wingspan=65, distance=1.65))
print(num.pred<- prop.pred*70)