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

pkgdown + roxygen2 working now

Browse Source 
libraries must be called everywhere that a
function requires a member of said library.
This way, files can be loaded independently of
eacho other, which is important.
This commit is contained in:
Simon Innerbichler
2026-05-19 11:52:40 +02:00
parent 335dfc653d
commit 18433be282
1 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/Global.R
+24 -2
View File
@@ -2,6 +2,28 @@
# All functions for plateflow # All functions for plateflow
################################################################################ ################################################################################
library(shiny)
library(shinydashboard)
library(shinyjs)
library(shinyAce)
library(shinydashboard)
library(shinycssloaders)
library(shinyBS)
library(purrr)
library(gslnls)
library(tidyverse)
library(ggplot2)
library(reshape2)
library(openxlsx)
library(DT)
library(ggpubr)
library(gridExtra)
library(drc)
library(twopartm)
library(car)
library(dplyr)
library(scales)
#' Levenberg Marquard fit of 4 pl #' Levenberg Marquard fit of 4 pl
#' #'
@@ -579,7 +601,7 @@ LinPotTab <- function(circles, Lim, PureErrFlag) {
SEsPure <- sqrt(diag(V_V) * meanPureErr) SEsPure <- sqrt(diag(V_V) * meanPureErr)
} }
log_pot_delta <- deltaMethod(modAB, "isSample/log_dose") log_pot_delta <- car::deltaMethod(modAB, "isSample/log_dose")
if (PureErrFlag) { if (PureErrFlag) {
V_ <- log_pot_delta$SE^2 / SU_modAB$sigma^2 V_ <- log_pot_delta$SE^2 / SU_modAB$sigma^2
V_p <- V_ * meanPureErr V_p <- V_ * meanPureErr
@@ -658,7 +680,7 @@ ANOVAlintests <- function(ro_new, circles, Lim, PureErrFlag) {
modA <- lm(readout ~ log_dose + isSample, circ_Al) modA <- lm(readout ~ log_dose + isSample, circ_Al)
modB <- lm(readout ~ log_dose + isSample, circ_Bl) modB <- lm(readout ~ log_dose + isSample, circ_Bl)
log_pot_delta <- deltaMethod(modAB, "isSample/log_dose") log_pot_delta <- car::deltaMethod(modAB, "isSample/log_dose")
CI_log_low <- log_pot_delta$Estimate - qt(0.975, df.residual(modAB)) * log_pot_delta$SE CI_log_low <- log_pot_delta$Estimate - qt(0.975, df.residual(modAB)) * log_pot_delta$SE
CI_log_up <- log_pot_delta$Estimate + qt(0.975, df.residual(modAB)) * log_pot_delta$SE CI_log_up <- log_pot_delta$Estimate + qt(0.975, df.residual(modAB)) * log_pot_delta$SE
ExpLinPot <- exp(c(log_pot_delta$Estimate, CI_log_low, CI_log_up)) ExpLinPot <- exp(c(log_pot_delta$Estimate, CI_log_low, CI_log_up))