Nothing
model.matrix.rma <- function(object, asdf=FALSE, ...) {
mstyle <- .get.mstyle()
.chkclass(class(object), must="rma")
na.act <- getOption("na.action")
if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))
stop(mstyle$stop("Unknown 'na.action' specified under options()."))
### note: lm() always returns X (never the full model matrix, even with na.exclude or na.pass)
### but it seems a bit more logical to actually return X.f in that case
if (na.act == "na.omit")
out <- object$X
if (na.act == "na.exclude" || na.act == "na.pass")
out <- object$X.f
if (na.act == "na.fail" && any(!object$not.na))
stop(mstyle$stop("Missing values in results."))
if (asdf)
out <- as.data.frame(out)
if (inherits(object, "rma.ls")) {
out <- list(location = out)
if (na.act == "na.omit")
out$scale <- object$Z
if (na.act == "na.exclude" || na.act == "na.pass")
out$scale <- object$Z.f
if (na.act == "na.fail" && any(!object$not.na))
stop(mstyle$stop("Missing values in results."))
if (asdf)
out$scale <- as.data.frame(out$scale)
}
return(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.