Layout

processing/format.R

@@ -180,11 +180,15 @@ prepare_date = function(df_XEx, df_Xlist) {
         # dExMean =  apply(rbind(dXExUp, dXExDown), 2, mean, na.rm=TRUE)
 
         meanXEx_code = mean(XEx_code, na.rm=TRUE)
-        dXEx_code = abs(XEx_code - meanXEx_code)
+        dXEx_code = meanXEx_code - XEx_code
         stdXEx_code = sd(XEx_code, na.rm=TRUE)
         
         XEx_code[dXEx_code >= stdXEx_code*3] =
             XEx_code[dXEx_code >= stdXEx_code*3] + 365
+
+        # print(group)
+        # print(df_XEx$datetime[df_XEx$group1 == group][dXEx_code >= stdXEx_code*3])
+        
         df_XEx$values[OkXEx_code] = XEx_code
     }
 

script.R

@@ -66,7 +66,7 @@ filename =
       # )
 
     c(
-      # "S4214010_HYDRO_QJM.txt"
+      # "S4214010_HYDRO_QJM.txt",
       # "O0384010_HYDRO_QJM.txt",
       "Q7002910_HYDRO_QJM.txt"
       )
@@ -291,8 +291,8 @@ df_shapefile = ini_shapefile(computer_data_path,
 
 ### 4.2. Analysis layout 
 datasheet_layout(toplot=c(
-                     # 'datasheet'
-                     'matrix'
+                     'datasheet'
+                     # 'matrix',
                      # 'map'
                  ),
                  df_meta=df_meta,