From 18661b8d0cdf15c7bc06d14239e478298604be85 Mon Sep 17 00:00:00 2001 From: Simon Innerbichler Date: Tue, 19 May 2026 08:31:07 +0200 Subject: [PATCH] restructuring --- .Rhistory | 0 .gitignore | 1 + NewApp.Rproj | 14 -------------- TestFileRoxygen.R => R/TestFileRoxygen.R | 23 ++--------------------- 4 files changed, 3 insertions(+), 35 deletions(-) delete mode 100644 .Rhistory delete mode 100644 NewApp.Rproj rename TestFileRoxygen.R => R/TestFileRoxygen.R (91%) diff --git a/.Rhistory b/.Rhistory deleted file mode 100644 index e69de29..0000000 diff --git a/.gitignore b/.gitignore index 289c1d6..11cf1f5 100644 --- a/.gitignore +++ b/.gitignore @@ -3,3 +3,4 @@ .Rhistory .RData .Ruserdata +.positai diff --git a/NewApp.Rproj b/NewApp.Rproj deleted file mode 100644 index 0797796..0000000 --- a/NewApp.Rproj +++ /dev/null @@ -1,14 +0,0 @@ -Version: 1.0 -ProjectId: fefd72bf-0c95-489f-8910-ba6de9827a62 - -RestoreWorkspace: Default -SaveWorkspace: Default -AlwaysSaveHistory: Default - -EnableCodeIndexing: Yes -UseSpacesForTab: Yes -NumSpacesForTab: 2 -Encoding: UTF-8 - -RnwWeave: Sweave -LaTeX: pdfLaTeX diff --git a/TestFileRoxygen.R b/R/TestFileRoxygen.R similarity index 91% rename from TestFileRoxygen.R rename to R/TestFileRoxygen.R index e482748..9434fca 100644 --- a/TestFileRoxygen.R +++ b/R/TestFileRoxygen.R @@ -4,7 +4,6 @@ # 13.5.2026 ################################################################################ - 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", @@ -203,7 +202,7 @@ x <- 1; Div <- 3;N <- 0; res <- c(); noDil <- 7 divFUN(x,Div,N,res,noDil) # [1] 0.3333333333 0.1111111111 0.0370370370 0.0123456790 0.0041152263 0.0013717421 0.0004572474 -####### + circle <- read.csv("./tests/circle.csv") all_l2 <- read.csv("./tests/all_l2.csv") sigmoid <- c(10.0, 10.0, 110.0, 110.0, 1.0, 1.0, -3.5, 0.0) @@ -215,24 +214,6 @@ plotT = c(114.213375,97.588663,80.963951,64.339239,47.714527,31.102604,14.477892 PLOT <- PlotLinPLA_FUNC(circle, sigmoid, all_l2, pl_df, indS,indT) -PlotLinTest.png +# PlotLinTest.png -############ -dat <- data.frame(R_dil1 = c(10.0651024695491, 10.9844983291817, 10.7635586089293, 10.4597656321327, 10.3898668457823, 10.8171761349909, -10.319758021908, 10.1304854046653), -R_dil2 = c(10.9649145494504, 10.0202868589385, 10.8424145955735, 10.9311360356894, 10.3284659026404, -10.6890147558796, 10.3014450252305, 10.9594838595181), -R_dil3 = c(10.4630510824383, 10.4566715089363, 10.2350765290036, 10.3300581874798, 10.9648088137065, -10.286893755805, 10.4856643841389, 10.5275521552307), -T_dil1 = c(12.732175566336, 12.7756403995095, 12.1672539684741, 12.7060603907892, 12.8000685682832, -12.8800092157515, 12.7160581291873, 12.6996878912416), -T_dil2 = c(12.3923194313831, 12.0943488144175, 12.7955302154828, 12.4825917078735, 12.6856540203788, -12.7348548498556, 12.9222470610476, 12.1186618671252), -T_dil3 = c(12.7899182255274, 12.9722600411128, 12.7078445380891, 12.4913523531941, 12.1718281909609, -12.5313873615133, 12.952802332772, 12.5960321394342), -log_dose = c(0, -1.09861228866811, -2.19722457733622, -3.29583686600433, -4.39444915467244, --5.49306144334055, -6.59167373200866, -7.69028602067677)) -p <- plotSingularity(dat) -print(p) -# plotSingularityTest.png \ No newline at end of file