restructuring

2026-05-19 08:31:07 +02:00
parent 7a75b53b5b
commit 18661b8d0c
4 changed files with 3 additions and 35 deletions
@@ -3,3 +3,4 @@
 .Rhistory
 .RData
 .Ruserdata
+.positai
@@ -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
@@ -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