---
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.



``` {r}
y<-1:4;mean(y)
#> [1] 2.5
```

