#!/bin/bash

# Create an R function that accepts integer arguments which are interpreted as indices of parameter vectors.
# This function here has name function_name. So change here if you wish.

#echo "home_dir <- substring(getwd(),1,13)" > ff.R
#echo "lib_dir <- paste(home_dir,"/R/library",sep = "")" >> ff.R
#echo ".libPaths(lib_dir)" >> ff.R
echo "args <- as.numeric(commandArgs(TRUE))" >> callfunction.R
echo "source('run.R')" >> callfunction.R
echo "do_things(args)" >> callfunction.R

for((i = 5; i <= 5; i++))
do

echo "#!/bin/bash" > job_on$i
echo "#SBATCH --partition=uoa-compute-priority" >> job_on$i
echo "#SBATCH --time=30:00:00" >> job_on$i 
echo "#SBATCH --mem=5000" >> job_on$i
echo "#SBATCH --job-name=model" >> job_on$i
echo "#SBATCH --ntasks=1" >> job_on$i
#echo "cd #HOME" >> job$i
#echo "cd R" >> job$i
#echo "module load GSL/2.1-foss-2016a" >> job_on$i
echo "module load terra/1.6-7" >> job_on$i
echo "module load devtools" >> job_on$i
echo "module load r/4.1.3" >> job_on$i
echo "Rscript callfunction.R $i" >> job_on$i
sbatch --partition=uoa-compute-priority job_on$i

done
