The R Project SVN R

Rev

Rev 74683 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74683 Rev 80296
Line 68... Line 68...
68 
ys[1:10, ]
 68 
ys[1:10, ]
69 
for(i in seq_len(3))
 69 
for(i in seq_len(3))
70 
    print(coef(summary(update(fit6, ys[, i] ~ .))))
 70 
    print(coef(summary(update(fit6, ys[, i] ~ .))))
71 
 
 71 
 
72 
## This requires MASS::gamma.shape
 72 
## This requires MASS::gamma.shape
73 
if(!require("MASS")) q()
 73 
if(!require("MASS", quietly = TRUE)) {
- 
 
 74 
    message("skipping tests requiring the MASS package")
- 
 
 75 
    q()
- 
 
 76 
}
74 
 
 77 
 
75 
## gamma fit, from example(glm)
 78 
## gamma fit, from example(glm)
76 
clotting <- data.frame(u = c(5,10,15,20,30,40,60,80,100),
 79 
clotting <- data.frame(u = c(5,10,15,20,30,40,60,80,100),
77 
                       lot1 = c(118,58,42,35,27,25,21,19,18))
 80 
                       lot1 = c(118,58,42,35,27,25,21,19,18))
78 
fit7 <- glm(lot1 ~ log(u), data = clotting, family = Gamma)
 81 
fit7 <- glm(lot1 ~ log(u), data = clotting, family = Gamma)