IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2263 - RS (60/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2264 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2265 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2266 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2267 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2268 - RS (60/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2269 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2270 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2271 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2272 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2273 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2274 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2275 - RS (60/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2276 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2277 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2278 - RS (60/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2279 - RS (60/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2280 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2281 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2282 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2283 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2284 - RS (40/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2285 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2286 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2287 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2288 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2289 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2290 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2291 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2292 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2293 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2294 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2295 - RS (60/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2296 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2297 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2298 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2299 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2300 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2301 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2302 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
#########################################################################################
##10.2303 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
DB_imputed_nOut_WMTasksbyBlocks,
IndexRowModel)
print(length(ListR2WM))
print(length(ListR2Gf))
print(ListOLSModelNumberWM)
print(ListOLSModelsWM)
print(ListWLSModelNumberWM)
print(ListWLSModelsWM)
print(ListOLSModelNumberGf)
print(ListOLSModelsGf)
print(ListWLSModelNumberGf)
print(ListWLSModelsGf)
print(ListModelsDW_WM)
print(ListModelsDW_Gf)
print(ListVIF)
print(ListpvaluesANOVAs)
##Creates a Dataframe with the models	tested in previous points. This table includes the amount of minutes it took 95% of Ss to complete the tasks included in
##each model, and the amount of WM and Gf variance predicted by the model.
PermutationAnalysisFInalBD = BD_Models_and_TimetoComplete
#
MaxGf = max(unlist(ListR2Gf))
ListRelativePercentGf = list()
for (i in ListR2Gf) {
i = round((i / MaxGf)*100,2)
ListRelativePercentGf = append(ListRelativePercentGf,i)
}
#
PercentListR2WM = list()
for (i in ListR2WM) {
i = round(as.numeric(i)*100,2)
PercentListR2WM = append(PercentListR2WM,i)
}
#
PercentListR2Gf = list()
for (i in ListR2Gf) {
i = round(as.numeric(i)*100,2)
PercentListR2Gf = append(PercentListR2Gf,i)
}
vectorPercentListR2WM = unlist(PercentListR2WM)
vectorPercentListR2Gf = unlist(PercentListR2Gf)
vectorListRelativePercentGf = unlist(ListRelativePercentGf)
PermutationAnalysisFInalBD$WM_Variance_Predicted = vectorPercentListR2WM
PermutationAnalysisFInalBD$Gf_Variance_Predicted = vectorPercentListR2Gf
PermutationAnalysisFInalBD$Proportion_of_Gf_Variance_Predicted = vectorListRelativePercentGf
#List of models predicting the variance in the WMC factor scores that were fitted with OLS.
WMOLSModels = data.frame(Number=unlist(ListOLSModelNumberWM),Model=unlist(ListOLSModelsWM))
#List of models predicting the variance in the WMC factor scores that were fitted with WLS.
WMWLSModels = data.frame(Number=unlist(ListWLSModelNumberWM),Model=unlist(ListWLSModelsWM))
#List of models predicting the variance in the WMC factor scores that were fitted with GLS.
WMGLSModels = data.frame(Number=unlist(ListGLSModelNumberWM),Model=unlist(ListGLSModelsWM))
#List of models predicting the variance in the Gf factor scores that were fitted with OLS.
GfOLSModels = data.frame(Number=unlist(ListOLSModelNumberGf),Model=unlist(ListOLSModelsGf))
#List of models predicting the variance in the Gf factor scores that were fitted with WLS.
GfWLSModels = data.frame(Number=unlist(ListWLSModelNumberGf),Model=unlist(ListWLSModelsGf))
#List of models predicting the variance in the Gf factor scores that were fitted with GLS.
GfGLSModels = data.frame(Number=unlist(ListGLSModelNumberGf),Model=unlist(ListGLSModelsGf))
#Result of the Durbin-Watson test for each model that was tested.
DurbinWatsonPermutationAnalysis = BD_Models_and_TimetoComplete[1:2]
DurbinWatsonPermutationAnalysis$ModelsPredictingWM = unlist(ListModelsDW_WM)
DurbinWatsonPermutationAnalysis$ModelsPredictingGf = unlist(ListModelsDW_Gf)
#Result of the VIF test for each model that was tested.
VIFValues = data.frame(Values=unlist(ListVIF))
####################################################################################
#11.1 - Categorization of the Models as heterogeneous and homogeneous
##Heterogeneous models:  triplets and duos that only included tasks from different paradigms.Each triplet contained one task from each paradigm, and each duo
##contained tasks from two different paradigms.
##Homogeneous models: triplets and duos of measures from the same category.
ModelsRenamed <- read_excel("combinations.xlsx", sheet = "Sheet2")
ListTypeCombo <- c()
for (i in 1:nrow(ModelsRenamed)) {
model <- ModelsRenamed$Models[i]
if ((grepl("RS", model) && grepl("OS", model) ||
grepl("OS", model) && grepl("SS", model) ||
grepl("RS", model) && grepl("SS", model) ||
grepl("RS", model) && grepl("OS", model) && grepl("SS", model)) &&
!grepl("NB", model) && !grepl("WMU", model) && !grepl("BT", model)) {
TypeCombo <- "Homogenous"
} else if ((grepl("NB", model) && grepl("WMU", model)) &&
!grepl("RS", model) && !grepl("OS", model) &&
!grepl("SS", model) && !grepl("BT", model)) {
TypeCombo <- "Homogenous"
} else if ((grepl("RS", model) && grepl("NB", model) ||
grepl("RS", model) && grepl("WMU", model) ||
grepl("RS", model) && grepl("BT", model) ||
grepl("RS", model) && grepl("NB", model) && grepl("BT", model) ||
grepl("RS", model) && grepl("WMU", model) && grepl("BT", model)) &&
!grepl("OS", model) && !grepl("SS", model)) {
if (grepl("NB", model) && grepl("WMU", model)) {
TypeCombo <- "Drop"
} else {
TypeCombo <- "Heterogenous"
}
} else if ((grepl("OS", model) && grepl("NB", model) ||
grepl("OS", model) && grepl("WMU", model) ||
grepl("OS", model) && grepl("BT", model) ||
grepl("OS", model) && grepl("NB", model) && grepl("BT", model) ||
grepl("OS", model) && grepl("WMU", model) && grepl("BT", model)) &&
!grepl("RS", model) && !grepl("SS", model)) {
if (grepl("NB", model) && grepl("WMU", model)) {
TypeCombo <- "Drop"
} else {
TypeCombo <- "Heterogenous"
}
} else if ((grepl("SS", model) && grepl("NB", model) ||
grepl("SS", model) && grepl("WMU", model) ||
grepl("SS", model) && grepl("BT", model) ||
grepl("SS", model) && grepl("NB", model) && grepl("BT", model) ||
grepl("SS", model) && grepl("WMU", model) && grepl("BT", model)) &&
!grepl("RS", model) && !grepl("OS", model)) {
if (grepl("NB", model) && grepl("WMU", model)) {
TypeCombo <- "Drop"
} else {
TypeCombo <- "Heterogenous"
}
} else if ((grepl("NB", model) && grepl("BT", model) ||
grepl("WMU", model) && grepl("BT", model)) &&
!grepl("RS", model) && !grepl("OS", model) &&
!grepl("SS", model)) {
if (grepl("NB", model) && grepl("WMU", model)) {
TypeCombo <- "Drop"
} else {
TypeCombo <- "Heterogenous"
}
} else {
TypeCombo <- "Drop"
}
ListTypeCombo <- c(ListTypeCombo, TypeCombo)
}
BDCompareHeteroHomoModels <- PermutationAnalysisFInalBD
##Drops all models that did not fullfill the requirements to be included in the model - all models that were not classified as homogenous or heterogenous were
##droped.
BDCompareHeteroHomoModels <- add_column(BDCompareHeteroHomoModels, ModelType = ListTypeCombo, .after = 2)
BDCompareHeteroHomoModels <- BDCompareHeteroHomoModels %>% filter(ModelType != "Drop")
BDCompareHeteroHomoModels <- BDCompareHeteroHomoModels %>% rename(Minutesfor95ofSstocomplete = `Minutes for 95% of Ss to complete`)
###############################################################################################
#Comparing types of models (heterogenous and homogenous)
#Creates two Dataframes containing the heterogeneous and homogeneous combinations respectively.
HeterModelsGf <- BDCompareHeteroHomoModels[BDCompareHeteroHomoModels$ModelType == "Heterogenous", "Gf_Variance_Predicted"]
HomoModelsGf <- BDCompareHeteroHomoModels[BDCompareHeteroHomoModels$ModelType == "Homogenous", "Gf_Variance_Predicted"]
##Assessing the univariate distribution and homogeneity of variance of the homogenous and heterogenous models
levene_test <- leveneTest(Gf_Variance_Predicted ~ ModelType, data = BDCompareHeteroHomoModels)
shapiroHeterModelsGf = shapiro.test(HeterModelsGf$Gf_Variance_Predicted)
shapiroHomoModelsGf = shapiro.test(HomoModelsGf$Gf_Variance_Predicted)
levene_test
shapiroHeterModelsGf
shapiroHomoModelsGf
##Computes the mean and SD of the amount of WM and Gf variance predicted by the model.
AverageHeteroGf  <- round(mean(unlist(HeterModelsGf)),2)
AverageHomoGf <- round(mean(unlist(HomoModelsGf)),2)
AverageHeteroGf
AverageHomoGf
SDHeteroGf  <- round(sd(unlist(HeterModelsGf)),2)
SDHomoGf <- round(sd(unlist(HomoModelsGf)),2)
SDHeteroGf
SDHomoGf
##Computed the Wilcoxon test of the amount of WM and Gf variance predicted by the model.
wilcoxtestHeteroHomoGf <- wilcox_test(BDCompareHeteroHomoModels, Gf_Variance_Predicted ~ ModelType)
EffectSizewilcoxtestHeteroHomoGf <- wilcox_effsize(BDCompareHeteroHomoModels, Gf_Variance_Predicted ~ ModelType)
cohen_d_wilcoxtestHeteroHomoGf <- 2 * EffectSizewilcoxtestHeteroHomoGf$effsize / sqrt(1 - EffectSizewilcoxtestHeteroHomoGf$effsize^2)
wilcoxtestHeteroHomoGf
AverageHeteroGf
AverageHomoGf
EffectSizewilcoxtestHeteroHomoGf
cohen_d_wilcoxtestHeteroHomoGf
###Generates an excel file that includes the 20 DB that were created through multiple imputations.
DB_Complete <- NULL
DB_Complete[[1]] <- PermutationAnalysisFInalBD
DB_Complete[[2]] <- WMOLSModels
DB_Complete[[3]] <- WMWLSModels
DB_Complete[[4]] <- WMGLSModels
DB_Complete[[5]] <- GfOLSModels
DB_Complete[[6]] <- GfWLSModels
DB_Complete[[7]] <- GfGLSModels
DB_Complete[[8]] <- DurbinWatsonPermutationAnalysis
DB_Complete[[9]] <- VIFValues
DB_Complete[[10]] <- BDCompareHeteroHomoModels
excSheet <- c("Results Permutation Analysis ","WM OLS Models","WM WLS Models","WM GLS Models","Gf OLS Models","Gf WLS Models","Gf GLS Models","Durbin Watson","VIF","Compare Hetero Homo Models")
OUT <- createWorkbook()
for(i in 1:10) addWorksheet(OUT, excSheet[[i]])
for(i in 1:10) writeData(OUT, sheet = excSheet[[i]], x = DB_Complete[[i]])
saveWorkbook(OUT, "Results_Permutation_Analysis.xlsx",overwrite = TRUE)
