Guxa/dashboard-app
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pkgdown: some bugs fixed in function documentation
Build and deploy Roxygen2|pkgdown documentation site / build-and-deploy-documentation (push) Successful in 45s
Details
run tests / build-and-deploy-documentation (push) Successful in 7s
Details

Browse Source
This commit is contained in:
Franz Innerbichler
2026-06-07 22:43:30 +02:00
parent 5071896110
commit d450000178
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/Global.R
+4 -4
View File
@@ -511,6 +511,7 @@ plot_f <- function(dat, TransFlag = FALSE) { # sigmoid,det_sig,
#' noDilS <- 3 #' noDilS <- 3
#' noD <- 8 #' 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(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, 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, sd_fac = 0.1, gt = 1, gs = 1, log_conc,
heteroNoise = FALSE, noDilSeries, noDils) { heteroNoise = FALSE, noDilSeries, noDils) {
@@ -656,7 +657,7 @@ LinPotTab <- function(circles, Lim, PureErrFlag) {
#' PureErrF <- TRUE #' PureErrF <- TRUE
#' #'
#' #'
#' ANOVAlintests(dat, circles, Lim, PureErrF) #' ANOVAlintests(dat, circles=CIRC, Lim, PureErrF)
#' #'
ANOVAlintests <- function(ro_new, circles, Lim, PureErrFlag) { ANOVAlintests <- function(ro_new, circles, Lim, PureErrFlag) {
all_l <- melt(data.frame(ro_new), id.vars = "log_dose", variable.name = "replname", value.name = "readout") 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). #' @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. #' @returns A data-frame with the lower and upper CI in anti-log form.
#' @export #' @export
#' @examples #' @examples suppressMessages(source("../../dev/setup.R"))
#' suppressMessages(source("../../dev/setup.R"))
#' xs <- 2 #' xs <- 2
#' xt <- 3.2 #' xt <- 3.2
#' se_xt <- 0.34 #' 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) #' Lim <- c(-1, 1, 0.005, 2, 0.5, 2, 0.5, 2, 75, 133, 75, 133)
#' PureErrF <- FALSE #' PureErrF <- FALSE
#' #'
#' tests_FUNC(ro_new, Lim, PureErrF) #' tests_FUNC(ro_new=dat, Lim, PureErrF)
tests_FUNC <- function(ro_new, Lim, PureErrFlag) { tests_FUNC <- function(ro_new, Lim, PureErrFlag) {
all_l <- melt(data.frame(ro_new), id.vars = "log_dose", variable.name = "replname", value.name = "readout") 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) isRef <- rep(c(1, 0), 1, each = nrow(all_l) / 2)