The R Project SVN R

Rev

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

Rev 89480 Rev 89556
Line 66... Line 66...
66 
An object of class \code{stepfun}.
 66 
An object of class \code{stepfun}.
67 
}
 67 
}
68 
\references{
 68 
\references{
69 
  \bibshow{*}
 69 
  \bibshow{*}
70 
}
 70 
}
71 
\examples{
 71 
\examples{\donttest{% needs Matrix, so tested in reg-examples3
72 
 
 72 
 
73 
## make example reproducible
 73 
## make example reproducible
74 
if (!exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE))
- 
 
75 
    runif(1)
 - 
 
76 
R.seed <- get(".Random.seed", envir = .GlobalEnv)
 - 
 
77 
set.seed(29)
 74 
set.seed(29)
78 
 
 75 
 
79 
## well-fitting logistic model
 76 
## well-fitting logistic model
80 
nd <- data.frame(groups = gl(2, 50, labels = paste0("G", 1:2)))
 77 
nd <- data.frame(groups = gl(2, 50, labels = paste0("G", 1:2)))
81 
nd$y <- rlogis(nrow(nd), location = c(0, 2)[nd$groups])
 78 
nd$y <- rlogis(nrow(nd), location = c(0, 2)[nd$groups])
Line 110... Line 107...
110 
     ppplot(G1, G2, conf.level = .95,
 107 
     ppplot(G1, G2, conf.level = .95,
111 
            conf.args = list(link = "probit", type = "Wald", col = 2)))
 108 
            conf.args = list(link = "probit", type = "Wald", col = 2)))
112 
# inappropriate probit model
 109 
# inappropriate probit model
113 
coef(free1way(y ~ groups, data = nd, link = "probit"))
 110 
coef(free1way(y ~ groups, data = nd, link = "probit"))
114 
 
 111 
 
115 
assign(".Random.seed", R.seed, envir = .GlobalEnv)
 - 
 
116 
}
 112 
}}
117 
\keyword{hplot}
 113 
\keyword{hplot}
118 
\keyword{distribution}
 114 
\keyword{distribution}