Guxa/dashboard-app
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restructuring

Browse Source
This commit is contained in:
Simon Innerbichler
2026-05-19 08:31:07 +02:00
parent 7a75b53b5b
commit 18661b8d0c
4 changed files with 3 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.Rhistory
View File
.gitignore
+1
View File
@@ -3,3 +3,4 @@
.Rhistory .Rhistory
.RData .RData
.Ruserdata .Ruserdata
.positai
NewApp.Rproj
-14
View File
@@ -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
TestFileRoxygen.R → R/TestFileRoxygen.R
+2 -21
View File
@@ -4,7 +4,6 @@
# 13.5.2026 # 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, 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), -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", 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) divFUN(x,Div,N,res,noDil)
# [1] 0.3333333333 0.1111111111 0.0370370370 0.0123456790 0.0041152263 0.0013717421 0.0004572474 # [1] 0.3333333333 0.1111111111 0.0370370370 0.0123456790 0.0041152263 0.0013717421 0.0004572474
#######
circle <- read.csv("./tests/circle.csv") circle <- read.csv("./tests/circle.csv")
all_l2 <- read.csv("./tests/all_l2.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) 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) 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