60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
---
|
|
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
|
|
```
|
|
|