modifications des chemins sur tout rmqs et sans rmqs (lulucf et clc))

dirsol/Simul_DIRSOL_avec_tout_RMQS_CLC.R

@@ -9,7 +9,7 @@ source("dirsol/0_InitialisationsCLC.R")
 
 # chargement des données RMQS -----
 
-load("/home/lpotel/smlsamplingeu_louis/data/data_ETM_C_H1.RData")
+load("/home/lpotel/smlsamplingeu/data/data_rmqs/data_ETM_C_H1.RData")
 
 #Données ponctuelles
 

dirsol/Simul_DIRSOL_avec_tout_RMQS_LULUCF.R

@@ -9,7 +9,7 @@ source("dirsol/0_InitialisationsLULCF.R")
 
 # chargement des données RMQS -----
 
-load("/home/lpotel/smlsamplingeu_louis/data/data_ETM_C_H1.RData")
+load("/home/lpotel/smlsamplingeu/data/data_rmqs/data_ETM_C_H1.RData")
 
 #Données ponctuelles
 

dirsol/Simul_DIRSOL_sans_RMQS_CLC.R

@@ -2,7 +2,7 @@
 #  Script pour faire tourner les simulations SANS RMQS, avec les données CLC----
 
 # initialisations --------
-source("dirsol/0_InitialisationsLULCF.R")
+source("dirsol/0_InitialisationsCLC.R")
 
 
 
@@ -700,7 +700,7 @@ testA4100 = optimisesampleSML(
 )
 
 saveRDS(testA4100, "/home/lpotel/smlsamplingeu_louis/export_data/S2_CLC_IGCS_100m.rds" )
-# saveRDS(tab4100, "~/smlsamplingeu_louis/export_data/tab_S4_100m.rds" )
+ 
 
 
 

dirsol/Simul_DIRSOL_sans_RMQS_LULUCF.R

@@ -84,10 +84,7 @@ testA1 = optimisesampleSML(
   domainvalue = "domains" ,
   cv = cv
 )
-
-saveRDS(testA1, 
-        "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S1_500m_lulucf.rds" )
-
+ 
 mask_values <- terra::ifel( domainsS1500 %in% tab1$domains[tab1$n>10], 1, 0 )
 plot(mask_values)
 
@@ -183,8 +180,7 @@ testA1100 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA1100, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S1_100m_lulucf.rds" )
-
+ 
 mask_values <- terra::ifel( domainsS1%in% tab1100$domains[tab1100$n>10], 1, 0 )
 
 
@@ -198,7 +194,7 @@ plotResu(testA1100,
          mask_values = mask_values
 )
 
-##(S2_lulucf_JRC) 500metres --------------
+##(S2_lulucf_JRC) 500m --------------
 
 # calcul d'de la grille representant les domaines 
 domainsS2500 <- 1e4 * stack500[["FR_landuse"]] + 
@@ -265,7 +261,7 @@ testA2500 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA2500, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S2_500m_lulucf.rds" )
+ 
 
 
 
@@ -282,7 +278,7 @@ plotResu(testA2500,
          mask_values = mask_values
 )
 
-## (S1_lulucf_JRC) 100metres --------------
+## (S1_lulucf_JRC) 100m --------------
 
 # calcul d'de la grille representant les domaines 
 domainsS2 <- 1e4 * stackb[["FR_landuse"]] +
@@ -354,8 +350,7 @@ testA2100 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA2100, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S2_100m_lulucf.rds" )
-# saveRDS(tab2100, "~/smlsamplingeu_louis/export_data/tab_S2_100m.rds" )
+ 
 
 mask_values <- terra::ifel( domainsS2 %in% tab2100$domains[tab2100$n>10], 1, 0 )
 
@@ -437,8 +432,7 @@ testA3500 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA3500, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S3_500m_lulucf.rds" )
-
+ 
  
 
 mask_values <- terra::ifel( domainsS3500 %in% tab3500$domains[tab3500$n>10], 1, 0 )
@@ -523,8 +517,7 @@ testA3100 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA3100, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S3_100m_lulucf.rds" )
-
+ 
 
  
 
@@ -609,8 +602,7 @@ testA4500 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA4500, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S4_500m_lulucf.rds" )
- 
+  
 
 
 mask_values <- terra::ifel( domainsS4500 %in% tab4500$domains[tab4500$n>10], 1, 0 )
@@ -699,9 +691,7 @@ testA4100 = optimisesampleSML(
   cv = cv
 )
 
-saveRDS(testA4100, "/home/lpotel/smlsamplingeu_louis/export_data/28octobre_test_S4_100m_lulucf.rds" )
-# saveRDS(tab4100, "~/smlsamplingeu_louis/export_data/tab_S4_100m.rds" )
-
+ 
  
 
 mask_values <- terra::ifel( domainsS4 %in% tab4100$domains[tab4100$n>10], 1, 0 )