Report for linear PLA added; Roxygen RMD file added which serves also as testing file

bug fixes in the code; Code made flexible regarding EXCEL upload and metadata evaluation. Functions now in "Global.R" file
2026-05-14 10:42:33 +02:00
parent 1555fe3b6c
commit 9861af5fba
5 changed files with 1820 additions and 1235 deletions
@@ -0,0 +1,51 @@
+---
+title: "RoxygenFileTest"
+author: "F Innerbichler"
+date: "2026-05-13"
+output: pdf_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+library(shiny)
+source("Global.R")
+
+library(testthat)
+
+```
+
+```{r LinPotTab, echo=F}
+
+
+library(car)
+CIRC <- data.frame(log_dose = c(-2.5,-2.5,-2.5, -3.2,-3.2,-3.2,-3.9,-3.9,-3.9,
+-3.2,-3.2,-3.2,-3.9,-3.9,-3.9,-4.7,-4.7,-4.7),
+replname= c("R_dil1","R_dil1","R_dil1", "R_dil2","R_dil2","R_dil2", "R_dil3","R_dil3","R_dil3",
+ "T_dil1","T_dil1","T_dil1", "T_dil2","T_dil2","T_dil2", "T_dil3","T_dil3","T_dil3"),
+ readout = c(72.1,75.8,76.04,59.8,61,62.7,43.6,45,41.5,53.5,62.2,65.9,48.3,43.8,43.14,28.17,29.2,31.2),
+ isRef=c(rep(1,9), rep(0,9)),
+ isSample = c(rep(0,9), rep(1,9)))
+Lim <- c(rep(0,8), 70,130)
+PureErrF <- TRUE
+
+
+TestTab <- as.matrix(LinPotTab(circles=CIRC, Lim, PureErrF))
+# SolTab is the Solution table
+SolTab <- matrix(c(104.959, 87.994, 125.196, 0, 83.836, 119.281),nrow=1)
+colnames(SolTab) <- c("Potency", "lower 95%CI", "upper 95%CI", "test_result", "lowerRel95%CI", "upperRel95%CI")
+#all.equal(TestTab, SolTab)
+
+expect_equal(TestTab, SolTab, check.attributes = FALSE)
+# no output means "all_equal"
+
+```
+
+
+
+
+
+```{r pressure, echo=FALSE}
+
+```
+
+Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.