minor changes

YunyiShen · Jan 26, 2022 · 17190ad · 17190ad
1 parent cf44875
commit 17190ad
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/tests/real_data_slicing/QFD-031381302_CHTC.R b/tests/real_data_slicing/QFD-031381302_CHTC.R
@@ -7,7 +7,7 @@ args <- as.numeric(args)
 
 # 10 slices in total to be run on CHTC
 the_slice <- args * 2000 + (1:(2000+76*(args==9))) # the last one being 20076, so last slice has 76 more
-name_slice <- paste0("QFD-031381302-slice-",min(the_slice),"-",max(the_slice))
+name_slice <- paste0("./res-",args,"/QFD-031381302-slice-",min(the_slice),"-",max(the_slice))
 
 rawdata <- read.csv("./CeleriteQFD/Data/tess2018206045859-s0001-0000000031381302-0120-s_lc.csv")[the_slice,c("TIME","PDCSAP_FLUX")]
 

diff --git a/tests/real_data_slicing/QFD-031381302_CHTC.sh b/tests/real_data_slicing/QFD-031381302_CHTC.sh
@@ -0,0 +1,14 @@
+#!/bin/bash
+
+tar -xzf CeleriteQFD.tar.gz
+
+mkdir ./res-$1
+# make sure the script will use your R installation, 
+# and the working directory as its home location
+mkdir ./packages
+export R_LIBS=$PWD/packages
+
+# run your script
+Rscript ./CeleriteQFD/tests/real_data_slicing/QFD-031381302_CHTC.R $1
+
+tar -czvf QFD-031381302-$1.tar.gz ./res-$1