wviechtb / metafor
Showing 35 of 183 files from the diff.
Newly tracked file
R/ranktest.rma.r changed.
Newly tracked file
R/anova.rma.r changed.
Newly tracked file
R/cumul.rma.uni.r changed.
Newly tracked file
R/confint.rma.uni.r changed.
Newly tracked file
R/profile.rma.uni.r changed.
Newly tracked file
R/ranef.rma.uni.r changed.
Newly tracked file
R/simulate.rma.r changed.
Newly tracked file
R/qqnorm.rma.uni.r changed.
Newly tracked file
R/gosh.rma.r changed.
Newly tracked file
R/update.rma.r changed.
Newly tracked file
R/coef.summary.rma.r changed.
Newly tracked file
R/trimfill.rma.uni.r changed.
Newly tracked file
R/selmodel.rma.uni.r changed.
Newly tracked file
R/coef.rma.r changed.
Newly tracked file
R/reporter.rma.uni.r changed.
Newly tracked file
R/hc.rma.uni.r changed.
Newly tracked file
R/labbe.rma.r changed.
Newly tracked file
R/formula.rma.r changed.
Newly tracked file
R/weights.rma.uni.r changed.
Newly tracked file
R/robust.rma.uni.r changed.
Newly tracked file
R/regtest.rma.r changed.
Newly tracked file
R/tes.rma.r changed.
Newly tracked file
R/radial.rma.r changed.
Newly tracked file
R/vif.rma.r changed.
Newly tracked file
R/plot.rma.uni.r changed.
Newly tracked file
R/zzz.r changed.
Newly tracked file
R/blup.rma.uni.r changed.
Newly tracked file
R/baujat.rma.r changed.
Newly tracked file
R/forest.rma.r changed.
Other files ignored by Codecov
docs/index.html has changed.
docs/pkgdown.yml has changed.
docs/authors.html has changed.
docs/404.html has changed.
README.md has changed.
NEWS.md has changed.
NEWS has changed.
DESCRIPTION has changed.

@@ -8,6 +8,9 @@
Loading
8 8
   if (inherits(model, "robust.rma"))
9 9
      stop(mstyle$stop("Method not available for objects of class \"robust.rma\"."))
10 10
11 +
   if (inherits(model, "rma.uni.selmodel"))
12 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
13 +
11 14
   na.act <- getOption("na.action")
12 15
13 16
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))
@@ -17,7 +20,7 @@
Loading
17 20
18 21
   x <- model
19 22
20 -
   if (!is.null(x$weight) & type == "conditional")
23 +
   if (type == "conditional" && (!is.null(x$weights) || !x$weighted))
21 24
      stop(mstyle$stop("Extraction of conditional residuals not available for models with non-standard weights."))
22 25
23 26
   #if (type == "conditional" & inherits(x, "robust.rma"))

@@ -10,6 +10,9 @@
Loading
10 10
   if (inherits(x, "robust.rma"))
11 11
      stop(mstyle$stop("Method not available for objects of class \"robust.rma\"."))
12 12
13 +
   if (inherits(x, "rma.uni.selmodel"))
14 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
15 +
13 16
   if (missing(digits)) {
14 17
      digits <- .get.digits(xdigits=x$digits, dmiss=TRUE)
15 18
   } else {

@@ -6,7 +6,7 @@
Loading
6 6
      stop(mstyle$stop("Argument 'object' must be an object of class \"rma\"."))
7 7
8 8
   if (inherits(object, c("rma.mh", "rma.peto")))
9 -
      stop(mstyle$stop("Function not applicable for objects of class \"rma.mh\" or \"rma.peto\"."))
9 +
      stop(mstyle$stop("Method not applicable for objects of class \"rma.mh\" or \"rma.peto\"."))
10 10
11 11
   if (inherits(object, "rma.glmm"))
12 12
      stop(mstyle$stop("Method not available for objects of class \"rma.glmm\"."))

@@ -11,6 +11,9 @@
Loading
11 11
   if (inherits(x, "rma.ls"))
12 12
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
13 13
14 +
   if (inherits(x, "rma.uni.selmodel"))
15 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
16 +
14 17
   na.act <- getOption("na.action")
15 18
16 19
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -8,6 +8,9 @@
Loading
8 8
   if (inherits(model, "rma.ls"))
9 9
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
10 10
11 +
   if (inherits(model, "rma.uni.selmodel"))
12 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
13 +
11 14
   na.act <- getOption("na.action")
12 15
13 16
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -22,6 +22,9 @@
Loading
22 22
   if (inherits(object, "rma.ls"))
23 23
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
24 24
25 +
   if (inherits(object, "rma.uni.selmodel"))
26 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
27 +
25 28
   x <- object
26 29
27 30
   k <- x$k

@@ -9,6 +9,9 @@
Loading
9 9
   if (inherits(fitted, "rma.ls"))
10 10
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
11 11
12 +
   if (inherits(fitted, "rma.uni.selmodel"))
13 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
14 +
12 15
   if (steps < 2)
13 16
      stop(mstyle$stop("Argument 'steps' must be >= 2."))
14 17

@@ -7,6 +7,9 @@
Loading
7 7
   if (!inherits(x, "rma.uni"))
8 8
      stop(mstyle$stop("Argument 'x' must be an object of class \"rma.uni\"."))
9 9
10 +
   if (inherits(x, "rma.uni.selmodel"))
11 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
12 +
10 13
   na.act <- getOption("na.action")
11 14
12 15
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -14,6 +14,9 @@
Loading
14 14
   if (inherits(object, "rma.peto"))
15 15
      stop(mstyle$stop("Method not available for objects of class \"rma.peto\"."))
16 16
17 +
   if (inherits(object, "rma.uni.selmodel"))
18 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
19 +
17 20
   na.act <- getOption("na.action")
18 21
19 22
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -7,6 +7,9 @@
Loading
7 7
   if (!inherits(y, "rma.uni"))
8 8
      stop(mstyle$stop("Argument 'y' must be an object of class \"rma.uni\"."))
9 9
10 +
   if (inherits(y, "rma.uni.selmodel"))
11 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
12 +
10 13
   na.act <- getOption("na.action")
11 14
12 15
   x <- y

@@ -17,6 +17,9 @@
Loading
17 17
   if (inherits(x, "rma.ls"))
18 18
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
19 19
20 +
   if (inherits(x, "rma.uni.selmodel"))
21 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
22 +
20 23
   na.act <- getOption("na.action")
21 24
22 25
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -5,6 +5,9 @@
Loading
5 5
   if (!inherits(model, "rma.uni"))
6 6
      stop(mstyle$stop("Argument 'model' must be an object of class \"rma.uni\"."))
7 7
8 +
   if (inherits(model, "rma.uni.selmodel"))
9 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
10 +
8 11
   na.act <- getOption("na.action")
9 12
10 13
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -8,7 +8,7 @@
Loading
8 8
      stop(mstyle$stop("Argument 'object' must be an object of class \"rma\"."))
9 9
10 10
   if (inherits(object, "robust.rma"))
11 -
      stop(mstyle$stop("Function not applicable to objects of class \"robust.rma\"."))
11 +
      stop(mstyle$stop("Method not available for objects of class \"robust.rma\"."))
12 12
13 13
   if (is.null(call <- getCall(object)))
14 14
      stop(mstyle$stop("Need an object with call component."))

@@ -19,6 +19,16 @@
Loading
19 19
         colnames(res.table$alpha)[3] <- "tval"
20 20
   }
21 21
22 +
   if (inherits(x, "rma.uni.selmodel")) {
23 +
      res.table <- list(beta=res.table)
24 +
      res.table$delta <- data.frame(estimate=x$delta, se=x$se.delta, zval=x$zval.delta, pval=x$pval.delta, ci.lb=x$ci.lb.delta, ci.ub=x$ci.ub.delta)
25 +
      if (length(x$delta) == 1L) {
26 +
         rownames(res.table$delta) <- "delta"
27 +
      } else {
28 +
         rownames(res.table$delta) <- paste0("delta.", 1:length(x$delta))
29 +
      }
30 +
   }
31 +
22 32
   return(res.table)
23 33
24 34
}

@@ -13,6 +13,9 @@
Loading
13 13
   if (inherits(x, "rma.ls"))
14 14
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
15 15
16 +
   if (inherits(x, "rma.uni.selmodel"))
17 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
18 +
16 19
   if (!x$int.only)
17 20
      stop(mstyle$stop("Trim-and-fill method only applicable for models without moderators."))
18 21

@@ -23,7 +23,10 @@
Loading
23 23
   time.start <- proc.time()
24 24
25 25
   if (!x$allvipos)
26 -
      stop(mstyle$stop("Cannot use method when one or more sampling variances are non-positive."))
26 +
      stop(mstyle$stop("Cannot fit selection model when one or more sampling variances are non-positive."))
27 +
28 +
   if (!x$weighted || !is.null(x$weights))
29 +
      stop(mstyle$stop("Cannot fit selection model for unweighted models or models with custom weights."))
27 30
28 31
   if (missing(type))
29 32
      stop(mstyle$stop("Must choose a specific selection model via the 'type' argument."))
@@ -76,8 +79,10 @@
Loading
76 79
77 80
   if (is.null(ddd$beta)) {
78 81
      beta <- rep(NA, x$p)
82 +
      betaspec <- FALSE
79 83
   } else {
80 84
      beta <- ddd$beta
85 +
      betaspec <- TRUE
81 86
   }
82 87
83 88
   yi <- x$yi
@@ -175,7 +180,7 @@
Loading
175 180
               h.tau2.fix = FALSE,    # fix tau2 in Hessian computation
176 181
               h.delta.fix = FALSE,   # fix delta in Hessian computation
177 182
               hessianCtrl=list(r=6), # arguments passed on to 'method.args' of hessian()
178 -
               scaleX = TRUE)         # whether non-dummy variables in the X matrix should be rescaled before model fitting
183 +
               scaleX = !betaspec)    # whether non-dummy variables in the X matrix should be rescaled before model fitting
179 184
180 185
   ### replace defaults with any user-defined values
181 186
@@ -809,15 +814,15 @@
Loading
809 814
810 815
   ### computing (inverse) Hessian
811 816
812 -
   hessian <- NA
813 -
   H.sel   <- NA
814 -
   iH.sel  <- NA
815 -
   vb <- matrix(NA, nrow=p, ncol=p)
816 -
   se.tau2 <- NA
817 +
   hessian  <- NA
818 +
   H.sel    <- NA
819 +
   iH.sel   <- NA
820 +
   vb       <- matrix(NA, nrow=p, ncol=p)
821 +
   se.tau2  <- NA
817 822
   se.delta <- rep(NA, deltas)
818 823
819 824
   if (con$h.beta.fix) {
820 -
      beta.hes <- beta
825 +
      beta.hes <- c(beta)
821 826
   } else {
822 827
      beta.hes <- beta.val
823 828
   }
@@ -870,7 +875,7 @@
Loading
870 875
            iH <- matrix(0, nrow=length(sel), ncol=length(sel))
871 876
            iH[sel, sel] <- iH.sel
872 877
            if (any(is.na(beta.hes)))
873 -
               vb <- iH[c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), drop=FALSE]
878 +
               vb[is.na(beta.hes), is.na(beta.hes)] <- iH[c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), drop=FALSE]
874 879
            if (is.na(tau2.hes))
875 880
               se.tau2 <- sqrt(iH[c(rep(FALSE,p),TRUE,rep(FALSE,deltas)), c(rep(FALSE,p),TRUE,rep(FALSE,deltas))])
876 881
            if (any(is.na(delta.hes)))
@@ -1073,6 +1078,8 @@
Loading
1073 1078
   res$precspec <- precspec
1074 1079
   res$precis <- precis
1075 1080
1081 +
   res$call <- match.call()
1082 +
1076 1083
   time.end <- proc.time()
1077 1084
   res$time <- unname(time.end - time.start)[3]
1078 1085

@@ -14,6 +14,16 @@
Loading
14 14
      names(coefs$alpha) <- rownames(object$alpha)
15 15
   }
16 16
17 +
   if (inherits(object, "rma.uni.selmodel")) {
18 +
      coefs <- list(beta=coefs)
19 +
      coefs$delta <- c(object$delta)
20 +
      if (length(object$delta) == 1L) {
21 +
         names(coefs$delta) <- "delta"
22 +
      } else {
23 +
         names(coefs$delta) <- paste0("delta.", 1:length(object$delta))
24 +
      }
25 +
   }
26 +
17 27
   return(coefs)
18 28
19 29
}

@@ -14,6 +14,9 @@
Loading
14 14
   if (x$model == "rma.ls")
15 15
      stop(mstyle$stop("Cannot use reporter function for location-scale models."))
16 16
17 +
   if (x$model == "rma.uni.selmodel")
18 +
      stop(mstyle$stop("Cannot use reporter function for selection models."))
19 +
17 20
   if (!x$weighted)
18 21
      stop(mstyle$stop("Cannot use reporter function when 'weighted=FALSE'."))
19 22

@@ -8,6 +8,9 @@
Loading
8 8
   if (inherits(object, "rma.ls"))
9 9
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
10 10
11 +
   if (inherits(object, "rma.uni.selmodel"))
12 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
13 +
11 14
   x <- object
12 15
13 16
   if (!x$int.only)

@@ -9,6 +9,9 @@
Loading
9 9
   if (inherits(x, "rma.ls"))
10 10
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
11 11
12 +
   if (inherits(x, "rma.uni.selmodel"))
13 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
14 +
12 15
   if (!x$int.only)
13 16
      stop(mstyle$stop("L'Abbe plot only applicable for models without moderators."))
14 17

@@ -11,6 +11,9 @@
Loading
11 11
   if (inherits(x, "rma.ls"))
12 12
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
13 13
14 +
   if (inherits(x, "rma.uni.selmodel"))
15 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
16 +
14 17
   if (missing(digits)) {
15 18
      digits <- .get.digits(xdigits=x$digits, dmiss=TRUE)
16 19
   } else {

@@ -7,7 +7,7 @@
Loading
7 7
8 8
   type <- match.arg(type, c("mods", "yi", "scale"))
9 9
10 -
   if (type=="scale" && x$model!="rma.ls")
10 +
   if (type == "scale" && x$model != "rma.ls")
11 11
      stop(mstyle$stop("Can only use type='scale' for location-scale models."))
12 12
13 13
   if (type == "mods")

@@ -5,6 +5,9 @@
Loading
5 5
   if (!inherits(object, "rma.uni"))
6 6
      stop(mstyle$stop("Argument 'object' must be an object of class \"rma.uni\"."))
7 7
8 +
   if (inherits(object, "rma.uni.selmodel"))
9 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
10 +
8 11
   na.act <- getOption("na.action")
9 12
10 13
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -5,6 +5,9 @@
Loading
5 5
   if (!inherits(x, "rma.uni"))
6 6
      stop(mstyle$stop("Argument 'x' must be an object of class \"rma.uni\"."))
7 7
8 +
   if (inherits(x, "rma.uni.selmodel"))
9 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
10 +
8 11
   if (missing(cluster))
9 12
      stop(mstyle$stop("Need to specify 'cluster' variable."))
10 13

@@ -19,6 +19,9 @@
Loading
19 19
   if (inherits(x, "rma.ls"))
20 20
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
21 21
22 +
   if (inherits(x, "rma.uni.selmodel"))
23 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
24 +
22 25
   model <- match.arg(model, c("lm", "rma"))
23 26
   predictor <- match.arg(predictor, c("sei", "vi", "ni", "ninv", "sqrtni", "sqrtninv"))
24 27

@@ -11,6 +11,9 @@
Loading
11 11
   if (inherits(x, "rma.ls"))
12 12
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
13 13
14 +
   if (inherits(x, "rma.uni.selmodel"))
15 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
16 +
14 17
   na.act <- getOption("na.action")
15 18
16 19
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -52,7 +52,7 @@
Loading
52 52
   tau2  <- par[pX+1]
53 53
   delta <- par[(pX+2):(pX+1+deltas)]
54 54
55 -
   beta[!is.na(beta.val)] <- beta.val
55 +
   beta <- ifelse(is.na(beta.val), beta, beta.val)
56 56
57 57
   if (tau2.transf)
58 58
      tau2 <- exp(tau2)
@@ -109,7 +109,7 @@
Loading
109 109
   tau2  <- par[pX+1]
110 110
   delta <- par[(pX+2):(pX+1+deltas)]
111 111
112 -
   beta[!is.na(beta.val)] <- beta.val
112 +
   beta <- ifelse(is.na(beta.val), beta, beta.val)
113 113
114 114
   if (tau2.transf)
115 115
      tau2 <- exp(tau2)

@@ -22,6 +22,9 @@
Loading
22 22
   if (inherits(x, "rma.ls"))
23 23
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
24 24
25 +
   if (inherits(x, "rma.uni.selmodel"))
26 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
27 +
25 28
   na.act <- getOption("na.action")
26 29
27 30
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -10,10 +10,13 @@
Loading
10 10
      stop(mstyle$stop("Argument 'x' must be an object of class \"rma\"."))
11 11
12 12
   if (inherits(x, "robust.rma"))
13 -
      stop(mstyle$stop("Function not applicable to objects of class \"robust.rma\"."))
13 +
      stop(mstyle$stop("Method not available for objects of class \"robust.rma\"."))
14 14
15 15
   if (inherits(x, "rma.ls"))
16 -
      stop(mstyle$stop("Function not applicable to objects of class \"rma.ls\"."))
16 +
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
17 +
18 +
   if (inherits(x, "rma.uni.selmodel"))
19 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
17 20
18 21
   if (missing(transf))
19 22
      transf <- FALSE

@@ -8,7 +8,10 @@
Loading
8 8
      stop(mstyle$stop("Argument 'x' must be an object of class \"rma\"."))
9 9
10 10
   if (inherits(x, "robust.rma"))
11 -
      stop(mstyle$stop("Function not applicable to objects of class \"robust.rma\"."))
11 +
      stop(mstyle$stop("Method not available for objects of class \"robust.rma\"."))
12 +
13 +
   if (inherits(x, "rma.uni.selmodel"))
14 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
12 15
13 16
   if (x$int.only)
14 17
      stop(mstyle$stop("VIF not applicable for intercept-only models."))

@@ -13,6 +13,9 @@
Loading
13 13
   if (inherits(x, "rma.ls"))
14 14
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
15 15
16 +
   if (inherits(x, "rma.uni.selmodel"))
17 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
18 +
16 19
   na.act <- getOption("na.action")
17 20
18 21
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -1,6 +1,6 @@
Loading
1 1
.onAttach <- function(libname, pkgname) {
2 2
3 -
   ver <- "2.5-49"
3 +
   ver <- "2.5-50"
4 4
   loadmsg <- paste0("Loading 'metafor' package (version ", ver, "). For an overview \nand introduction to the package please type: help(metafor).")
5 5
6 6
   options("pboptions" = list(

@@ -5,6 +5,9 @@
Loading
5 5
   if (!inherits(x, "rma.uni"))
6 6
      stop(mstyle$stop("Argument 'x' must be an object of class \"rma.uni\"."))
7 7
8 +
   if (inherits(x, "rma.uni.selmodel"))
9 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
10 +
8 11
   na.act <- getOption("na.action")
9 12
10 13
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -17,6 +17,9 @@
Loading
17 17
   if (inherits(x, "rma.ls"))
18 18
      stop(mstyle$stop("Method not available for objects of class \"rma.ls\"."))
19 19
20 +
   if (inherits(x, "rma.uni.selmodel"))
21 +
      stop(mstyle$stop("Method not available for objects of class \"rma.uni.selmodel\"."))
22 +
20 23
   na.act <- getOption("na.action")
21 24
22 25
   if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass")))

@@ -172,6 +172,10 @@
Loading
172 172
   if (inherits(x, "rma.glmm") && showweights)
173 173
      stop(mstyle$stop("Option 'showweights=TRUE' not possible for 'rma.glmm' objects."))
174 174
175 +
   ### TODO: remove this when there is a weights() function for 'rma.uni.selmodel' objects
176 +
   if (inherits(x, "rma.uni.selmodel") && showweights)
177 +
      stop(mstyle$stop("Option 'showweights=TRUE' not possible for 'rma.uni.selmodel' objects."))
178 +
175 179
   if (!is.null(ddd$subset))
176 180
      stop(mstyle$stop("Function does not have a 'subset' argument (could use 'order' argument instead)."))
177 181
@@ -241,7 +245,7 @@
Loading
241 245
         }
242 246
      }
243 247
244 -
      if (inherits(x, "rma.glmm")) {            ### TODO: change this when there is a weights() function for 'rma.glmm' objects
248 +
      if (inherits(x, "rma.glmm") || inherits(x, "rma.uni.selmodel")) { ### TODO: change this when there is a weights() function for 'rma.glmm' and 'rma.uni.selmodel' objects
245 249
         #weights <- NULL
246 250
         weights <- rep(1, k)
247 251
      } else {
Files Coverage
R 72.19%
Project Totals (176 files) 72.19%
Notifications are pending CI completion. Waiting for GitHub's status webhook to queue notifications. Push notifications now.
Untitled
Untitled
Untitled
Untitled

No yaml found.

Create your codecov.yml to customize your Codecov experience

Sunburst
The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.
Icicle
The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.
Grid
Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.
Loading