bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Modularize joinInteractExps.R

Browse Source
This commit is contained in:
Bryan Roessler
2024-07-27 23:53:54 -04:00
parent 66725024b8
commit c8eba4efd4
118 changed files with 291 additions and 2593503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
workflow/.old/templates/qhtcp/Exp3/Z_InteractionTemplate.R
View File

@@ -63,7 +63,7 @@ if(!is.na(inpNum)){
expNumber<- as.numeric(sub("^.*?(\\d+)$", "\\1", getwd()))
Labels[expNumber,3]= as.numeric(std)
Delta_Background_sdFactor <- std
DelBGFactr <- as.numeric(Delta_Background_sdFactor)
delBGFactor <- as.numeric(Delta_Background_sdFactor)
#Write Background SD value to studyInfo.txt file
#write.csv(Labels,file=paste("../Code/StudyInfo.csv"),row.names = FALSE)
write.csv(Labels,file=paste("../Code/StudyInfo.csv"),row.names = FALSE)
@@ -325,7 +325,7 @@ saveWidget(pgg, file=plotly_path, selfcontained =TRUE)
#set delta background tolerance based on 3 sds from the mean delta background
Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(DelBGFactr*sd(X$Delta_Backgrd))
Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(delBGFactor*sd(X$Delta_Backgrd))
#Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(3*sd(X$Delta_Backgrd))
print(paste("Delta_Background_Tolerance is",Delta_Background_Tolerance,sep=" "))
@@ -2725,6 +2725,6 @@ timestamp()
#}else {
# std= Arg[2]
#Delta_Background_sdFactor <- 2 #Args[3]
#DelBGFactr <- as.numeric(Delta_Background_sdFactor)
#delBGFactor <- as.numeric(Delta_Background_sdFactor)
#}

6
workflow/.old/templates/qhtcp/Exp3/backups/InteractTemplateB4Prompt4SDinput.R
View File

@@ -44,7 +44,7 @@ std= as.numeric(Args[2])
expNumber<- as.numeric(sub("^.*?(\\d+)$", "\\1", getwd()))
Labels[expNumber,3]= as.numeric(std)
Delta_Background_sdFactor <- std
DelBGFactr <- as.numeric(Delta_Background_sdFactor)
delBGFactor <- as.numeric(Delta_Background_sdFactor)
#Write Background SD value to studyInfo.txt file
#write.csv(Labels,file=paste("../Code/StudyInfo.csv"),row.names = FALSE)
write.csv(Labels,file=paste("../Code/StudyInfo.csv"),row.names = FALSE)
@@ -297,7 +297,7 @@ saveWidget(pgg, file=plotly_path, selfcontained =TRUE)
#set delta background tolerance based on 3 sds from the mean delta background
Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(DelBGFactr*sd(X$Delta_Backgrd))
Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(delBGFactor*sd(X$Delta_Backgrd))
#Delta_Background_Tolerance <- mean(X$Delta_Backgrd)+(3*sd(X$Delta_Backgrd))
print(paste("Delta_Background_Tolerance is",Delta_Background_Tolerance,sep=" "))
@@ -2697,6 +2697,6 @@ timestamp()
#}else {
# std= Arg[2]
#Delta_Background_sdFactor <- 2 #Args[3]
#DelBGFactr <- as.numeric(Delta_Background_sdFactor)
#delBGFactor <- as.numeric(Delta_Background_sdFactor)
#}