Nothing
inst/snippet/runswins-lm.R
In fastR: Data sets and utilities for Foundations and Applications of Statistics by R Pruim
bb <- mlb2004
bb$runmargin = (bb$R - bb$OR) / (bb$G)
glm(cbind(W,L)~runmargin,data=bb,family='binomial') -> glm.bb
bb$winP <- bb$W/bb$G
bb$glmPredWinP <- predict(glm.bb,
newdata=data.frame(runmargin=bb$runmargin),type='response')
lm(winP~runmargin,data=bb) -> lm.bb
summary(lm.bb)
bb$lmPredWinP <- predict(lm.bb,
newdata=data.frame(runmargin=bb$runmargin),type='response')
# observations 8 and 27 have largest residuals
bb[c(8,27,1:2,29:30),c("Team","winP","glmPredWinP","lmPredWinP")]
Try the fastR package in your browser
Any scripts or data that you put into this service are public.
fastR documentation built on May 2, 2019, 5:53 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
bb <- mlb2004
bb$runmargin = (bb$R - bb$OR) / (bb$G)
glm(cbind(W,L)~runmargin,data=bb,family='binomial') -> glm.bb
bb$winP <- bb$W/bb$G
bb$glmPredWinP <- predict(glm.bb,
newdata=data.frame(runmargin=bb$runmargin),type='response')
lm(winP~runmargin,data=bb) -> lm.bb
summary(lm.bb)
bb$lmPredWinP <- predict(lm.bb,
newdata=data.frame(runmargin=bb$runmargin),type='response')
# observations 8 and 27 have largest residuals
bb[c(8,27,1:2,29:30),c("Team","winP","glmPredWinP","lmPredWinP")]
Try the fastR package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.