From d4500001787834d0a4dc16addf768100693c373c Mon Sep 17 00:00:00 2001 From: Franz Innerbichler Date: Sun, 7 Jun 2026 22:43:30 +0200 Subject: [PATCH] pkgdown: some bugs fixed in function documentation --- R/Global.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/Global.R b/R/Global.R index dc1dd76..9b6128a 100644 --- a/R/Global.R +++ b/R/Global.R @@ -511,6 +511,7 @@ plot_f <- function(dat, TransFlag = FALSE) { # sigmoid,det_sig, #' noDilS <- 3 #' noD <- 8 #' Calc_DilRes(as, bs, cs, ds, at, bt, dt, r, ct, sd_fac, gt, gs, log_conc = lnConc, heteroNoise, noDilS, noD) +#' Calc_DilRes <- function(as = 3, bs = 1, cs = -4, ds = 10, at = 3, bt = 1, dt = 10, r = 0.0001, ct = cs - r, sd_fac = 0.1, gt = 1, gs = 1, log_conc, heteroNoise = FALSE, noDilSeries, noDils) { @@ -656,7 +657,7 @@ LinPotTab <- function(circles, Lim, PureErrFlag) { #' PureErrF <- TRUE #' #' -#' ANOVAlintests(dat, circles, Lim, PureErrF) +#' ANOVAlintests(dat, circles=CIRC, Lim, PureErrF) #' ANOVAlintests <- function(ro_new, circles, Lim, PureErrFlag) { all_l <- melt(data.frame(ro_new), id.vars = "log_dose", variable.name = "replname", value.name = "readout") @@ -1095,8 +1096,7 @@ pot4plFUNC <- function(ro_new, PureErrFlag) { #' @param Conf The confidence of the Confidence Interval (default 95% which requires 0.975). #' @returns A data-frame with the lower and upper CI in anti-log form. #' @export -#' @examples -#' suppressMessages(source("../../dev/setup.R")) +#' @examples suppressMessages(source("../../dev/setup.R")) #' xs <- 2 #' xt <- 3.2 #' se_xt <- 0.34 @@ -1141,7 +1141,7 @@ ParamCI_F <- function(xt, xs, se_xt, se_xs, CoVar, DFs, Conf = 0.975) { #' Lim <- c(-1, 1, 0.005, 2, 0.5, 2, 0.5, 2, 75, 133, 75, 133) #' PureErrF <- FALSE #' -#' tests_FUNC(ro_new, Lim, PureErrF) +#' tests_FUNC(ro_new=dat, Lim, PureErrF) tests_FUNC <- function(ro_new, Lim, PureErrFlag) { all_l <- melt(data.frame(ro_new), id.vars = "log_dose", variable.name = "replname", value.name = "readout") isRef <- rep(c(1, 0), 1, each = nrow(all_l) / 2)