toprint <- c()
for (d in c(2,5,10))
{
- name <- paste0("res_", n, "_", d, "_", link, "_6,3,1.RData")
+ name <- paste0("res_", n, "_", d, "_", link, ".RData")
params <- prms(name, method)
toprint <- c(toprint, c(
sum(abs(params[[1]] - params[[4]]$p)),
#!/bin/bash
-# Lancement: qsub -o .output -j y run_accu_cl.sh
-
#$ -N morpheus
#$ -wd /workdir2/auder/morpheus/reports
-#$ -m abes
-#$ -M benjamin@auder.net
-#$ -pe make 10
-#$ -l h_vmem=1G
+##$ -m abes
+##$ -M benjamin@auder.net
+#$ -pe make 50
rm -f .output
+#$ -o .output
+#$ -j y
module load R/3.6.1