library(betareg)
a <- read.csv(choose.files())
# beta regression model
summary(betareg(P_SPEEDING_ADJ ~ log(AVG_AADT), data=a))
library(betareg)
a <- read.csv(choose.files())
# beta regression model
summary(betareg(P_SPEEDING_ADJ ~ log(AVG_AADT), data=a))
0 comments:
Post a Comment