Skip to content
Snippets Groups Projects
Commit b57d4a8c authored by lopotel's avatar lopotel
Browse files

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

parent a1b33afb
No related branches found
No related tags found
1 merge request!2Resolve "correction des liens vers les donnees"
......@@ -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
......
......@@ -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
......
......@@ -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" )
......
......@@ -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 )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment