diff --git a/processing/analyse.R b/processing/analyse.R index b8ae689e56e9c0616f166203f653ae862acdc0c3..5bcb229c29015c2c72af23cc44a7af30f645912d 100644 --- a/processing/analyse.R +++ b/processing/analyse.R @@ -506,36 +506,36 @@ get_tMIDtrend = function (df_data, df_meta, period, p_thresold) { ## 2. OTHER ANALYSES ### 2.1. Hydrograph xref = matrix( - c(0.033, 0.025, 0.033, 0.075, 0.167, 0.217, 0.142, - 0.092, 0.067, 0.058, 0.050, 0.042, - 0.050, 0.050, 0.058, 0.083, 0.150, 0.167, 0.117, - 0.083, 0.058, 0.058, 0.067, 0.058, - 0.058, 0.050, 0.100, 0.142, 0.158, 0.092, 0.067, - 0.050, 0.042, 0.058, 0.083, 0.100, - 0.112, 0.098, 0.101, 0.125, 0.122, 0.072, 0.036, - 0.024, 0.039, 0.067, 0.102, 0.102, - 0.139, 0.092, 0.082, 0.099, 0.087, 0.039, 0.015, - 0.012, 0.036, 0.108, 0.159, 0.131, - 0.136, 0.105, 0.091, 0.057, 0.042, 0.034, 0.036, - 0.052, 0.068, 0.111, 0.132, 0.136, - 0.156, 0.154, 0.117, 0.119, 0.086, 0.044, 0.025, - 0.015, 0.025, 0.044, 0.089, 0.127, - 0.204, 0.163, 0.118, 0.102, 0.060, 0.030, 0.018, - 0.012, 0.023, 0.041, 0.087, 0.143, - 0.157, 0.130, 0.119, 0.094, 0.062, 0.042, 0.028, - 0.021, 0.035, 0.062, 0.099, 0.150, - 0.128, 0.142, 0.122, 0.128, 0.105, 0.065, 0.035, - 0.024, 0.031, 0.044, 0.074, 0.101, + c(0.099, 0.100, 0.101, 0.099, 0.088, 0.078, 0.072, + 0.064, 0.064, 0.069, 0.076, 0.089 0.133, 0.126, 0.111, 0.110, 0.081, 0.056, 0.038, - 0.027, 0.042, 0.063, 0.098, 0.117, - 0.099, 0.100, 0.101, 0.099, 0.088, 0.078, 0.072, - 0.064, 0.064, 0.069, 0.076, 0.089), + 0.027, 0.042, 0.063, 0.098, 0.117 + 0.128, 0.142, 0.122, 0.128, 0.105, 0.065, 0.035, + 0.024, 0.031, 0.044, 0.074, 0.101 + 0.157, 0.130, 0.119, 0.094, 0.062, 0.042, 0.028, + 0.021, 0.035, 0.062, 0.099, 0.150 + 0.204, 0.163, 0.118, 0.102, 0.060, 0.030, 0.018, + 0.012, 0.023, 0.041, 0.087, 0.143 + 0.156, 0.154, 0.117, 0.119, 0.086, 0.044, 0.025, + 0.015, 0.025, 0.044, 0.089, 0.127 + 0.139, 0.092, 0.082, 0.099, 0.087, 0.039, 0.015, + 0.012, 0.036, 0.108, 0.159, 0.131 + 0.112, 0.098, 0.101, 0.125, 0.122, 0.072, 0.036, + 0.024, 0.039, 0.067, 0.102, 0.102 + 0.058, 0.050, 0.100, 0.142, 0.158, 0.092, 0.067, + 0.050, 0.042, 0.058, 0.083, 0.100 + 0.050, 0.050, 0.058, 0.083, 0.150, 0.167, 0.117, + 0.083, 0.058, 0.058, 0.067, 0.058 + 0.033, 0.025, 0.033, 0.075, 0.167, 0.217, 0.142, + 0.092, 0.067, 0.058, 0.050, 0.042 + 0.017, 0.008, 0.017, 0.042, 0.108, 0.183, 0.200, + 0.175, 0.117, 0.067, 0.042, 0.025), ncol=12, byrow=TRUE) colnames(xref) = seq(1, 12, 1) -row.names(xref) = c('GROUP11', 'GROUP10', 'GROUP9', 'GROUP8', - 'GROUP7', 'GROUUK', 'GROUP6', 'GROUP5', - 'GROUP4', 'GROUP3', 'GROUP2', 'GROUP1') +row.names(xref) = c('GROUP1', 'GROUP2', 'GROUP3', 'GROUP4', + 'GROUP5', 'GROUP6', 'GROUP7', 'GROUP8', + 'GROUP9', 'GROUP10', 'GROUP11', 'GROUP12') # Computes the hydrograph of a station get_hydrograph = function (df_data, period=NULL, df_meta=NULL) { @@ -607,8 +607,8 @@ get_hydrograph = function (df_data, period=NULL, df_meta=NULL) { } else if (regime >= 7 & regime < 10) { classRegime = "Transition" } else if (regime >= 10) { - classRegime = "Nival glaciaire" - } + classRegime = "Nival Glaciaire" + } # If there is the metadata if (!is.null(df_meta)) {