From 3b7a8afa9c3555a0f5fc3925637eb8d51fe5e186 Mon Sep 17 00:00:00 2001
From: Valentijn de Jong <v.m.t.dejong-2@umcutrecht.nl>
Date: Mon, 19 Feb 2024 11:37:31 +0100
Subject: [PATCH] Added formatR to suggests

---
 DESCRIPTION               |   3 ++-
 R/metapred_measures.R     |  11 +++++------
 tests/testthat/Rplots.pdf | Bin 4740 -> 4740 bytes
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 1f5b93b..cf18441 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -18,7 +18,8 @@ Suggests:
     logistf (>= 1.23),
     testthat (>= 1.0.2),
     knitr,
-    rmarkdown
+    rmarkdown,
+    formatR 
 License: GPL-3
 Encoding: UTF-8
 URL: https://github.com/smartdata-analysis-and-statistics/metamisc,
diff --git a/R/metapred_measures.R b/R/metapred_measures.R
index 927d017..70a0df4 100644
--- a/R/metapred_measures.R
+++ b/R/metapred_measures.R
@@ -421,9 +421,11 @@ plot.mp.cv.val <- function(x, y, ...)
 #' @author Valentijn de Jong
 #'  
 #' @param object A model fit object, such as \link{metapred} object.
-#' @param method Character, method for meta-analysis passed to \link[metamisc]{valmeta} and \link[metamisc]{uvmeta}.
+#' @param method Character, method for meta-analysis passed to 
+#' \link[metamisc]{valmeta} and \link[metamisc]{uvmeta}.
 #' Defaults to "REML".
-#' @param ... Other arguments passed to \link[metamisc]{metapred}, \link[metamisc]{valmeta} and \link[metamisc]{uvmeta}.
+#' @param ... Other arguments passed to \link[metamisc]{metapred}, 
+#' \link[metamisc]{valmeta} and \link[metamisc]{uvmeta}.
 #' 
 #' @details Produces different object types depending on input.
 #' 
@@ -449,7 +451,6 @@ ma.mp.stratified.fit <- function(object, method = "REML", ...) {
   with(m, data.frame(coefficients, variances, se, ci.lb, ci.ub, tau2, se.tau2, pi.lb, pi.ub))
 }
 
-
 #' @export
 ma.perf <- function(object, method = "REML", test = "knha", ...) {
   if (object$class[[1]] == "mp.perf" || object$class[[1]] == "recal") {
@@ -518,7 +519,6 @@ ma.perf <- function(object, method = "REML", test = "knha", ...) {
 forest.metapred <- function(object, perfFUN = 1, step = NULL, method = "REML", model = NULL, ...)
   forest.mp.cv.val(subset(object, step = step, model = model), perfFUN = perfFUN, method = method, ...)
 
-
 #' Forest plot of a validation object.
 #' 
 #' Draw a forest plot of the performance of an internally-externally cross-validated model.
@@ -549,7 +549,6 @@ forest.mp.cv.val <- function(object, perfFUN = 1, method = "REML", xlab = NULL,
   forest.perf(perf(object, perfFUN = perfFUN, ...), method = method, xlab = xlab, ...)
 }
 
-
 forest.perf <- function(object, method = "REML", ...) {
   if (is.null(theta.slab <- list(...)$theta.slab))
     theta.slab <- as.character(object$val.strata)
@@ -567,7 +566,7 @@ forest.perf <- function(object, method = "REML", ...) {
   plot(fp)
   fp
 }
-# 
+
 # sampleBinary <- function(n = 50, J = 1, b = rep(log(2), J), alpha = NULL, col.names = NULL ) {
 #   J <- length(b)
 #   if (is.null(alpha)) alpha <- -log(sqrt(prod(exp(b))))
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
index 1b36e9678c66c7d89dc47e3aee4efda0a448f2ac..9244939efe26496de8a9b183ae2a6916722eba77 100644
GIT binary patch
delta 29
ecmZosZBd<I!ER}2Xl!a~FwtHV#@raKDFgs;VFx7u

delta 29
ecmZosZBd<I!ESD3WNL0~G|^rZ#@raKDFgs;zXvS<