# glm() failures checked in R-devel version (2016-03-21 r70361)
x <- c(8.752,20.27,24.71,32.88,27.27,19.09)
y <- c(5254,35.92,84.14,641.8,1.21,47.2)
## Not run: ------------------------------------
# # fails:
# glm(y~ x,data=data.frame(x,y),family=Gamma(log))
## ---------------------------------------------
spaMM_glm(y~ x,data=data.frame(x,y),family=Gamma(log))
## Gamma(inverse) examples
x <- c(43.6,46.5,21.7,18.6,17.3,16.7)
y <- c(2420,708,39.6,16.7,46.7,10.8)
## Not run: ------------------------------------
# # fails (can't find starting value)
# glm(y~ x,data=data.frame(x,y),family=Gamma())
## ---------------------------------------------
if (require("rcdd",quietly=TRUE)) {
spaMM_glm(y~ x,data=data.frame(x,y),family=Gamma())
}
Run the code above in your browser using DataLab