Paradigm	Tasks
Complex span	Reading Span, Operation Span, Symmetry Span
Updating	Working Memory Updating Task, N-back Task
Binding	Binding and Maintenance Task

Tasks	Number of Trials
Reading Span	20 (60)
Operation Span	20 (60)
Symmetry Span	20 (60)
N-back Task	6 (12)
Working Memory Updating Task	4 (12)
Binding and Maintencance Task	10 (16)

7. Descriptive Statistics

This section presents the descriptive statistics of all the shortened and full-length WM measures and Gf tasks. For each measure, we computed the mean, standard deviation (SD), standard error (SE), variance, range, skewness, and kurtosis.

The resulting summary of all variables is displayed in Table 1, 2, and 3, respectively.

###Creates two dataframes.
##The first one contains the imputed scores of the full WM Tasks and the Gf Tasks without outliers.
##The second one contains the imputed scores of the short versions of the WM Tasks (these scores are comprised by the scores of Block 1)
##and the Gf Tasks without outliers.
DB_imputed_OriginalWMTasks_and_GfTasks <- cbind(DB_imputed_OriginalWMTasks,DB_imputed_Original_Gf[2:4])
DB_imputed_WMTasksFirstPortion_and_GfTasks <- cbind(DB_imputed_WMTasksFirstPortion,DB_imputed_Original_Gf[2:4])
DB_imputed_OriginalWMTasks_and_GfTasks = DB_imputed_OriginalWMTasks_and_GfTasks[,-c(8,9)]

##Generates two tables with the descriptive statistics of the imputed scores of the full WM Tasks and the Gf Tasks and the imputed scores of the short versions
##of the  WM Tasks and the Gf Tasks
paraNomr <- list(DB_imputed_OriginalWMTasks_and_GfTasks,DB_imputed_WMTasksFirstPortion_and_GfTasks)
paraNomr_temp <- NULL
DescriptivesTables <- NULL
for (i in 1:2) {
  paraNomr_temp[[i]]<-paraNomr[[i]][,-1]
  DescriptivesTables[[i]]<- mvn(paraNomr_temp[[i]], mvnTest = "mardia")
  DescriptivesTables[[i]] = data.frame(DescriptivesTables[[i]]$Descriptives[,-c(1,4,7,8)])
  DescriptivesTables[[i]] = round(DescriptivesTables[[i]],2)
  aaa = DescriptivesTables[[i]][,3]
  aaa = as.character(aaa)
  bbb = DescriptivesTables[[i]][,4]
  bbb = as.character(bbb)
  listRange = c()
  for (j in 1:length(aaa)) {
    ccc = paste(aaa[j],"-",bbb[j])
    listRange = append(listRange,ccc)
  }
  DescriptivesTables[[i]] = add_column(DescriptivesTables[[i]], Range = listRange, .after = 2)
  DescriptivesTables[[i]] = DescriptivesTables[[i]][,-c(4,5)]
  DescriptivesTables[[i]] <- data.frame(lapply(DescriptivesTables[[i]], as.character), stringsAsFactors = TRUE)
  NamesTasks = c("RS","NB","OS","BT","SS","WMU","LSer","NSer","RAPM")
  DescriptivesTables[[i]] = add_column(DescriptivesTables[[i]], TaskNames = NamesTasks, .before = 1)
  colnames(DescriptivesTables[[i]])[1] <- ""
  colnames(DescriptivesTables[[i]])[3] <- "SD"
}
DescriptivesTableGf <- DescriptivesTables[[i]][c(7:9),]
for (i in 1:2) {
  DescriptivesTables[[i]] = DescriptivesTables[[i]][-c(7:9),]
}

knitr::kable(DescriptivesTables[[1]], caption = "<b><span style='color:black;'>Table 1. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the full-lenght working memory tasks</span></b>")

**Table 1. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the full-lenght working memory tasks**
	Mean	SD	Range	Skew	Kurtosis
RS	0.76	0.16	0.27 - 1	-0.98	0.47
NB	0.62	0.23	0.08 - 1	-0.22	-0.82
OS	0.76	0.15	0.33 - 1	-0.49	-0.36
BT	0.81	0.14	0.38 - 1	-0.8	-0.02
SS	0.65	0.17	0.23 - 1	-0.22	-0.37
WMU	0.56	0.27	0.06 - 1	0.04	-1.28

knitr::kable(DescriptivesTables[[2]], caption = "<b><span style='color:black;'>Table 2. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the shortened working memory tasks</span></b>")

**Table 2. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the shortened working memory tasks**
	Mean	SD	Range	Skew	Kurtosis
RS	0.77	0.18	0.25 - 1	-0.7	-0.29
NB	0.66	0.24	0.17 - 1	-0.33	-0.78
OS	0.76	0.18	0.25 - 1	-0.8	0.27
BT	0.8	0.16	0.3 - 1	-0.8	0
SS	0.65	0.19	0.15 - 1	-0.28	-0.28
WMU	0.54	0.29	0.08 - 1	0.13	-1.29

knitr::kable(DescriptivesTableGf, caption = "<b><span style='color:black;'>Table 2. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the Gf tasks</span></b>", row.names = FALSE)

**Table 2. Descriptive statistics (Mean, SD, Range, Skewness, Kurtosis) for the Gf tasks**
	Mean	SD	Range	Skew	Kurtosis
LSer	0.37	0.14	0.07 - 0.73	0.15	0.01
NSer	0.41	0.11	0.13 - 0.8	0.66	0.49
RAPM	0.48	0.16	0.06 - 0.89	0.14	-0.25

8. Structural equation model (assessing the relationship between the WMC and the Gf tasks at a latent level)

Before assessing how well the shortened tasks predicted the latent constructs, we first verified that the reasoning tasks and the full-length WM tasks measured distinct but related dimensions. To do this, we specified a two-factor Structural Equation Model (SEM) in which the WM tasks loaded on a latent WM factor and the reasoning tasks loaded on a latent Gf factor. A correlation path between the two latent variables was estimated to assess their shared variance while preserving their independence.

## Creates a DataFrame with the imputed scores of the full-length WM tasks (outliers removed).
DB_imputed_OriginalWMTasks_for_SEM <- read_excel('DB_imputed_scores_WM_Gf_Tasks_Full_and_Reduced_Outliers_removed.xlsx',
                                                 sheet = 'OriginalWMTasks')

## Creates a DataFrame with the imputed scores of the full-length Gf tasks (outliers removed).
DB_imputed_OriginalGfTasks_for_SEM <- read_excel('DB_imputed_scores_WM_Gf_Tasks_Full_and_Reduced_Outliers_removed.xlsx',
                                                 sheet = 'OriginalGfTasks')

## Combines the WM and Gf DataFrames to create a unified dataset for SEM analysis.
DB_imputed_OriginalWM_and_Gf_Tasks_for_SEM <- cbind(DB_imputed_OriginalWMTasks_for_SEM[2:7],
                                                    DB_imputed_OriginalGfTasks_for_SEM[2:4])

## Specifies a two-factor SEM where WMC and Gf are represented as separate latent constructs.
## The WMC factor is defined by the six WM tasks, and the Gf factor by the three reasoning tasks.
## The model also includes a regression path from WMC → Gf, allowing us to estimate their latent relationship.
model_1GfFactor_1WMCFactor <- '
  WMC =~ NA*RSTotalAvereage + NBTotalAverage + OSTotoAvereage + BTTotalAverage + SSTotalAvereage + WMUTotalAverage
  Gf  =~ NA*Letter_Series + Number_Series + RAPM
  Gf ~ WMC
  WMC ~~ 1*WMC
  Gf ~~ 1*Gf
'

# Fits the two-factor SEM model to the data using maximum likelihood estimation.
fit_model_1GfFactor_1WMCFactor <- sem(model_1GfFactor_1WMCFactor,
                                      data = DB_imputed_OriginalWM_and_Gf_Tasks_for_SEM)

##########################
# Generates a graphical representation of the model similar to Figure 2 in Monteiro et al. (2023).
# The diagram displays standardized factor loadings, squared multiple correlations, and residual variances.
fit_model_1GfFactor_1WMCFactor_for_plot <- sem(model_1GfFactor_1WMCFactor,
                                               data = fit_model_1GfFactor_1WMCFactor,
                                               estimator = "ML")

# Converts the fitted model into a semPlot object for visualization.
SEMPLOT <- semPlot::semPlotModel(fit_model_1GfFactor_1WMCFactor_for_plot)

# Extracts a summary with fit indices, standardized coefficients, and R-squared values.
aaaa <- summary(fit_model_1GfFactor_1WMCFactor_for_plot,
                fit.measures = TRUE, standardized = TRUE, rsquare = TRUE)

# Stores the standardized parameter estimates in a DataFrame.
aaaa <- data.frame(aaaa$pe)

# Extracts the standardized estimates (factor loadings, regressions, and residuals).
eeee <- aaaa$std.all[1:21]

# Isolates the first nine standardized factor loadings (for six WM and three Gf tasks).
aaaa <- aaaa$std.all[1:9]

# Creates short labels for plotting task names and loadings.
bbbb <- c("RS (.", "NB (.", "OS (.", "BT (.", "SS (.", "WMU (.", "LSer (.", "NSer (.", "RAPM (.")
cccc <- ")"
dddd <- c()

# Computes the proportion of variance explained (R² × 100) for each observed variable.
for (i in 1:length(aaaa)) {
  aaaa[i] = round((aaaa[i]^2), 2) * 100
  dddd = append(dddd, paste0(bbbb[i], as.character(aaaa[i]), cccc))
}

# Appends latent variable labels to the node list.
dddd = append(dddd, c("WMC", "Gf"))

# Reorders WM and Gf task nodes for better visual layout.
dddd[1:6] = rev(dddd[1:6])
dddd[7:9] = rev(dddd[7:9])
eeee[1:6] = rev(eeee[1:6])
eeee[7:9] = rev(eeee[7:9])
eeee[13:18] = rev(eeee[13:18])
eeee[19:21] = rev(eeee[19:21])

# Updates standardized parameter estimates in the SEM plot object.
SEMPLOT@Pars$std <- eeee

# Plots the SEM diagram with standardized loadings, residuals, and layout adjustments.
semPaths(SEMPLOT,
         "std",
         intercepts = TRUE,
         residuals = TRUE,
         layout = "tree",
         edge.color = "black",
         rotation = 2,
         sizeMan = 9,
         sizeLat = 11,
         optimizeLatRes = TRUE,
         nodeLabels = dddd,
         edge.width = 0.7,
         fade = FALSE,
         fixedStyle = c("black"),
         freeStyle = c("black"),
         cut = 1,
         edge.label.cex = 0.75,
         mar = c(5, 5, 5, 5))

The two-factor model showed an acceptable fit to the data according to conventional benchmarks (Kline, 2015; MacCallum et al., 1996; Marsh et al., 2004), χ²(26) = 55.27, p < .001, χ²/df = 2.13, CFI = .93, RMSEA = .08, SRMR = .05. The latent factors representing Gf and WM were strongly correlated (r = .85, p < .001), indicating that although the two constructs are highly related, they nonetheless reflect distinguishable dimensions of cognitive functioning.

9. Regressions assessing the amount of variance in the Gf and WMC factor scores predicted by the short and full-length versions of the WMC tasks

To assess whether shortening the WM tasks reduced their ability to predict WMC and Gf, we conducted a series of hierarchical regressions. First, two hierarchical models estimated the proportion of variance in the WMC and Gf factor scores explained by the entire set of WM tasks. Next, twelve additional regressions examined how well each individual WM task predicted variance in both factors.

In each analysis, we initially calculated the WMC and Gf variance explained by the early blocks/reduced versions of the WM tasks. We then added the intermediate blocks of each task to the regression models to assess how much additional variance was accounted for by these blocks. At last, we incorporated the later blocks of trials to determine the total variance in the Gf and WMC factor scores explained by the early, intermediate, and later blocks of trials. That is, in the final step of the hierarchical regressions, we assessed the extent to which the full-length versions of the WM tasks predicted Gf and WMC.

Note. Models were estimated using weighted least squares when heteroscedasticity was detected (Field, 2017) and generalized least squares when autocorrelation was present (Beguería & Pueyo, 2009). All other models were fitted using ordinary least squares.

## 9.1 - All WM tasks
# 9.1.1 - Shortened and full-length WMC tasks predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the short WMC tasks (first portion).
# Fit OLS model: WMC factor score ~ first-block predictors from all WM tasks.
ModelWMCFactorWMCTasksFirstPortion <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$BTAverage_1_5_and_9_13 + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4)

#### Regression model predicting WMC factor scores based on the first two-thirds of the WMC tasks.
# Fit OLS model: add second-block predictors to assess incremental variance.
ModelWMCFactorWMCTasks1stTwoThirdsByBlocks <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$BTAverage_1_5_and_9_13 + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8)

## Regression model predicting WMC factor scores based on the full WMC tasks.
# Fit OLS model: include first, second, and third blocks for all WM tasks.
ModelWMCFactorWMCTasksbyBlocks <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$RSAverage3rdblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$NBAverage7_12 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$OSAverage3rdblock + DB_imputed_WMTasksbyBlocks$BTTotalAverage + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$SSAverage3rdblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8 + DB_imputed_WMTasksbyBlocks$WMUAverage9_12)
# Compute weights for WLS using a variance function of the absolute residuals (heteroscedasticity correction).
wt <- 1 / lm(abs(ModelWMCFactorWMCTasksbyBlocks$residuals) ~ ModelWMCFactorWMCTasksbyBlocks$fitted.values)$fitted.values^2
# Refit the full model using WLS weights to mitigate heteroscedasticity.
ModelWMCFactorWMCTasksbyBlocks <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$RSAverage3rdblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$NBAverage7_12 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$OSAverage3rdblock +  DB_imputed_WMTasksbyBlocks$BTTotalAverage + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$SSAverage3rdblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8 + DB_imputed_WMTasksbyBlocks$WMUAverage9_12,weights = wt)

##############
# 9.1.2 - Shortened and full-length WMC tasks predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on all short WMC tasks (first portion).
# Fit OLS model: Gf factor score ~ first-block predictors from all WM tasks.
ModelGfFactorWMCTasksFirstPortion <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$BTAverage_1_5_and_9_13 + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4)

#### Regression model predicting Gf factor scores based on the first two-thirds of all WMC tasks.
# Fit OLS model: add second-block predictors to assess incremental variance.
ModelGfFactorWMCTasks1stTwoThirdsByBlocks <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock +  DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$BTAverage_1_5_and_9_13 + DB_imputed_WMTasksbyBlocks$SSAverage1stblock +  DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8)

## Regression model predicting Gf factor scores based on all full WMC tasks.
# Fit OLS model: include first, second, and third blocks for all WM tasks.
ModelGfFactorWMCTasksbyBlocks <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$RSAverage3rdblock + DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$NBAverage7_12 + DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$OSAverage3rdblock + DB_imputed_WMTasksbyBlocks$BTTotalAverage + DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$SSAverage3rdblock + DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8 + DB_imputed_WMTasksbyBlocks$WMUAverage9_12)


#################################################################################################################################################################
## 9.2 - Reading Span
# 9.2.1 - Shortened and full-length RS task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of RS.
# Fit OLS model: WMC factor score ~ RS first-block performance.
ModelFullWM_1stblockRS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of RS.
# Fit OLS model: add RS second-block performance to assess incremental variance.
ModelFullWM_1st2ndblockRS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock)

#### Regression model predicting full WMC factor scores based on the 1st, 2nd, and 3rd blocks of RS.
# Fit OLS model: include RS third-block performance for the full-length effect.
ModelFullWM_1st2nd3rdblockRS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + DB_imputed_WMTasksbyBlocks$RSAverage3rdblock)


##############
# 9.2.2 - Shortened and full-length RS predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of RS.
# Fit OLS model: Gf factor score ~ RS first-block performance.
ModelFullGf_1stblockRS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of RS.
# Fit OLS model: add RS second-block performance to assess incremental variance.
ModelFullGf_1st2ndblockRS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock)
# Compute WLS weights from residual–fitted relation to address heteroscedasticity.
wt <- 1 / lm(abs(ModelFullGf_1st2ndblockRS$residuals) ~ ModelFullGf_1st2ndblockRS$fitted.values)$fitted.values^2
# Refit the model using WLS weights for more reliable SEs under heteroscedasticity.
ModelFullGf_1st2ndblockRS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock,weights = wt)

#### Regression model predicting Gf factor scores based on the 1st, 2nd, and 3rd blocks of RS.
# Fit OLS model: include RS third-block performance for the full-length effect.
ModelFullGf_1st2nd3rdblockRS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$RS_Average1stblock + DB_imputed_WMTasksbyBlocks$RSAverage2ndblock + + DB_imputed_WMTasksbyBlocks$RSAverage3rdblock)


#################################################################################################################################################################
## 9.3 - N-Back
# 9.3.1 - Shortened and full-length N-Back task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of NB.
# Fit OLS model: WMC factor score ~ NB first-block performance.
ModelFullWM_1stblockNB <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$NBAverage1_6)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of NB.
# Fit OLS model: add NB second-block performance to assess incremental variance.
ModelFullWM_1st2ndblockNB <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$NBAverage7_12)

##############
# 9.3.2 - Shortened and full-length NB predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of NB.
# Fit OLS model: Gf factor score ~ NB first-block performance.
ModelFullGf_1stblockNB <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$NBAverage1_6)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of NB.
# Fit OLS model: add NB second-block performance to assess incremental variance.
ModelFullGf_1st2ndblockNB <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$NBAverage1_6 + DB_imputed_WMTasksbyBlocks$NBAverage7_12)

#################################################################################################################################################################
## 9.4 - Operation Span
# 9.4.1 - Shortened and full-length OS task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of OS.
# Fit OLS model: WMC factor score ~ OS first-block performance.
ModelFullWM_1stblockOS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of OS.
# Fit OLS model: add OS second-block performance to assess incremental variance.
ModelFullWM_1st2ndblockOS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock)

#### Regression model predicting WMC factor scores based on the 1st, 2nd, and 3rd blocks of OS.
# Fit OLS model: include OS third-block performance for the full-length effect.
ModelFullWM_1st2nd3rdblockOS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$OSAverage3rdblock)

##############
# 9.4.2 - Shortened and full-length OS predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of OS.
# Fit OLS model: Gf factor score ~ OS first-block performance.
ModelFullGf_1stblockOS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of OS.
# Fit OLS model: add OS second-block performance to assess incremental variance.
ModelFullGf_1st2ndblockOS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock)

#### Regression model predicting Gf factor scores based on the 1st, 2nd, and 3rd blocks of OS.
# Fit OLS model: include OS third-block performance for the full-length effect.
ModelFullGf_1st2nd3rdblockOS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$OSAverage1stblock + DB_imputed_WMTasksbyBlocks$OSAverage2ndblock + DB_imputed_WMTasksbyBlocks$OSAverage3rdblock)

#################################################################################################################################################################
## 9.5 - Binding and Maintenance Task
# 9.5.1 - Shortened and full-length BT task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of BT.
# Fit OLS model: WMC factor score ~ BT early-block average.
ModelFullWM_1stblockBT <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$BTAverage_1_5_and_9_13)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of BT.
# Fit OLS model: use BT total average (all blocks) as the full-length predictor.
ModelFullWM_1st2ndblockBT <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_OriginalWMTasks$BTTotalAverage)

##############
# 9.5.2 - Shortened and full-length BT predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of BT.
# Duplicate the WM-by-blocks data and append the Gf factor score column.
DB_imputed_WMTasksbyBlocks_Duplicate <- DB_imputed_WMTasksbyBlocks
# Bind the normalized Gf factor score for GLS modeling.
DB_imputed_WMTasksbyBlocks_Duplicate <- cbind(DB_imputed_WMTasksbyBlocks_Duplicate,DB_imputed_Original_Gf[,6])
# Rename the appended column to a readable name.
colnames(DB_imputed_WMTasksbyBlocks_Duplicate)[colnames(DB_imputed_WMTasksbyBlocks_Duplicate) == "DB_imputed_Original_Gf[, 6]"] <- "Normalized_Factor_scores_Gf_regression"
# Fit GLS with AR(1) errors to handle autocorrelation in residuals.
ModelFullGf_1stblockBT <- gls(Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13,DB_imputed_WMTasksbyBlocks_Duplicate,correlation = corAR1(form = ~ 1))
# Extract fitted values for manual R² computation under GLS.
fitted_values <- fitted(ModelFullGf_1stblockBT)
# Compute residual sum of squares (GLS).
RSS <- sum(residuals(ModelFullGf_1stblockBT)^2)
# Compute total sum of squares for the dependent variable.
TSS <- sum((DB_imputed_WMTasksbyBlocks_Duplicate$Normalized_Factor_scores_Gf_regression - mean(DB_imputed_WMTasksbyBlocks_Duplicate$Normalized_Factor_scores_Gf_regression))^2)
# Get sample size.
n <- nrow(DB_imputed_WMTasksbyBlocks_Duplicate)
# Get number of predictors (excluding intercept).
p <- length(coefficients(ModelFullGf_1stblockBT)) - 1
# Compute adjusted R² manually for the GLS model.
R2FullGf_1stblockBT <- 1 - (RSS / (n - p - 1)) / (TSS / (n - 1))
# Store percentage R² (rounded) for the graph.
R2FullGf_1stblockBTforGrapgh <- round(R2FullGf_1stblockBT*100,0)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of BT.
# Fit OLS model: Gf factor score ~ BT total average.
ModelFullGf_1st2ndblockBT <- lm(Normalized_Factor_scores_Gf_regression ~ BTTotalAverage, DB_imputed_WMTasksbyBlocks_Duplicate)

#################################################################################################################################################################
## 9.6 - Symmetry Span
# 9.6.1 - Shortened and full-length SS task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of SS.
# Fit OLS model: WMC factor score ~ SS first-block performance.
ModelFullWM_1stblockSS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of SS.
# Fit OLS model: add SS second-block performance to assess incremental variance.
ModelFullWM_1st2ndblockSS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock)

#### Regression model predicting full WMC factor scores based on the 1st, 2nd, and 3rd blocks of SS.
# Fit OLS model: include SS third-block performance for the full-length effect.
ModelFullWM_1st2nd3rdblockSS <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$SSAverage3rdblock)

##############
# 9.6.2 - Shortened and full-length SS predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of SS.
# Fit OLS model: Gf factor score ~ SS first-block performance.
ModelFullGf_1stblockSS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of SS.
# Fit OLS model: add SS second-block performance to assess incremental variance.
ModelFullGf_1st2ndblockSS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock)

#### Regression model predicting Gf factor scores based on the 1st, 2nd, and 3rd blocks of SS.
# Fit OLS model: include SS third-block performance for the full-length effect.
ModelFullGf_1st2nd3rdblockSS <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$SSAverage1stblock + DB_imputed_WMTasksbyBlocks$SSAverage2ndblock + DB_imputed_WMTasksbyBlocks$SSAverage3rdblock)

#################################################################################################################################################################
## 9.7 - Working Memory Updating Task
# 9.7.1 - Shortened and full-length WMU task predicting WMC factor scores.
#### Regression model predicting WMC factor scores based on the 1st block of WMU.
# Fit OLS model: WMC factor score ~ WMU first-block performance.
ModelFullWM_1stblockWMU <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4)
# Compute WLS weights from residual–fitted relation to address heteroscedasticity.
wt <- 1 / lm(abs(ModelFullWM_1stblockWMU$residuals) ~ ModelFullWM_1stblockWMU$fitted.values)$fitted.values^2
# Refit the model using WLS weights for robust inference under heteroscedasticity.
ModelFullWM_1stblockWMU <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4,weights = wt)

#### Regression model predicting WMC factor scores based on the 1st and 2nd blocks of WMU.
# Fit OLS model: add WMU second-block performance to assess incremental variance.
ModelFullWM_1st2ndblockWMU <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8)

#### Regression model predicting full WMC factor scores based on the 1st, 2nd, and 3rd blocks of WMU.
# Fit OLS model: include WMU third-block performance for the full-length effect.
ModelFullWM_1st2nd3rdblockWMU <- lm(DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8 + DB_imputed_WMTasksbyBlocks$WMUAverage9_12)

##############
# 9.7.2 - Shortened and full-length WMU predicting Gf factor scores.
#### Regression model predicting Gf factor scores based on the 1st block of WMU.
# Fit OLS model: Gf factor score ~ WMU first-block performance.
ModelFullGf_1stblockWMU <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4)

#### Regression model predicting Gf factor scores based on the 1st and 2nd blocks of WMU.
# Fit OLS model: add WMU second-block performance to assess incremental variance.
ModelFullGf_1st2ndblockWMU <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8)

#### Regression model predicting Gf factor scores based on the 1st, 2nd, and 3rd blocks of WMU.
# Fit OLS model: include WMU third-block performance for the full-length effect.
ModelFullGf_1st2nd3rdblockWMU <- lm(DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression ~ DB_imputed_WMTasksbyBlocks$WMUAverage1_4 + DB_imputed_WMTasksbyBlocks$WMUAverage5_8 + DB_imputed_WMTasksbyBlocks$WMUAverage9_12)

################################################################################################################################################################
# 9.8. - Plots two stacked bar charts showing variance (R²) in WMC and Gf predicted by each WM task (by block) and by the entire set of WM tasks (by block).
########## Entire set of WM tasks (by block)
# Store R² (%) from the short-model (first portion) predicting WMC.
R2WMCFullTasks1stblock <- summary(ModelWMCFactorWMCTasksFirstPortion)
# Convert to percentage and round.
R2WMCFullTasks1stblock <- round((R2WMCFullTasks1stblock$r.squared*100),0)
# Store R² (%) from the first two-thirds model predicting WMC.
R2WMCFullTasks1st2ndblock <- summary(ModelWMCFactorWMCTasks1stTwoThirdsByBlocks)
# Convert to percentage and round.
R2WMCFullTasks1st2ndblock <- round((R2WMCFullTasks1st2ndblock$r.squared*100),0)
# Store R² (%) from the full model predicting WMC.
R2WMCFullTasks1st2nd3rdblock <- summary(ModelWMCFactorWMCTasksbyBlocks)
# Convert to percentage and round.
R2WMCFullTasks1st2nd3rdblock <- round((R2WMCFullTasks1st2nd3rdblock$r.squared*100),0)
# Store R² (%) from the short-model (first portion) predicting Gf.
R2GfFullTasks1stblock <- summary(ModelGfFactorWMCTasksFirstPortion)
# Convert to percentage and round.
R2GfFullTasks1stblock <- round((R2GfFullTasks1stblock$r.squared*100),0)
# Store R² (%) from the first two-thirds model predicting Gf.
R2GfFullTasks1st2ndblock <- summary(ModelGfFactorWMCTasks1stTwoThirdsByBlocks)
# Convert to percentage and round.
R2GfFullTasks1st2ndblock <- round((R2GfFullTasks1st2ndblock$r.squared*100),0)
# Store R² (%) from the full model predicting Gf.
R2GfFullTasks1st2nd3rdblock <- summary(ModelGfFactorWMCTasksbyBlocks)
# Convert to percentage and round.
R2GfFullTasks1st2nd3rdblock <- round((R2GfFullTasks1st2nd3rdblock$r.squared*100),0)

# Store R² (%) for RS models (WMC).
R2WMCRS1stblock <- summary(ModelFullWM_1stblockRS)
# Convert to percentage and round.
R2WMCRS1stblock <- round((R2WMCRS1stblock$r.squared*100),0)
# Store R² (%) for RS two-block model (WMC).
R2WMCRS1st2ndblock <- summary(ModelFullWM_1st2ndblockRS)
# Convert to percentage and round.
R2WMCRS1st2ndblock <- round((R2WMCRS1st2ndblock$r.squared*100),0)
# Store R² (%) for RS three-block model (WMC).
R2WMCRS1st2nd3rdblock <- summary(ModelFullWM_1st2nd3rdblockRS)
# Convert to percentage and round.
R2WMCRS1st2nd3rdblock <- round((R2WMCRS1st2nd3rdblock$r.squared*100),0)
# Store R² (%) for RS first-block model (Gf).
R2GfRS1stblock <- summary(ModelFullGf_1stblockRS)
# Convert to percentage and round.
R2GfRS1stblock <- round((R2GfRS1stblock$r.squared*100),0)
# Store R² (%) for RS two-block model (Gf).
R2GfRS1st2ndblock <- summary(ModelFullGf_1st2ndblockRS)
# Convert to percentage and round.
R2GfRS1st2ndblock <- round((R2GfRS1st2ndblock$r.squared*100),0)
# Store R² (%) for RS three-block model (Gf).
R2GfRS1st2nd3rdblock <- summary(ModelFullGf_1st2nd3rdblockRS)
# Convert to percentage and round.
R2GfRS1st2nd3rdblock <- round((R2GfRS1st2nd3rdblock$r.squared*100),0)

# Store R² (%) for NB models (WMC).
R2WMCNB1stblock <- summary(ModelFullWM_1stblockNB)
# Convert to percentage and round.
R2WMCNB1stblock <- round((R2WMCNB1stblock$r.squared*100),0)
# Store R² (%) for NB two-block model (WMC).
R2WMCNB1st2ndblock <- summary(ModelFullWM_1st2ndblockNB)
# Convert to percentage and round.
R2WMCNB1st2ndblock <- round((R2WMCNB1st2ndblock$r.squared*100),0)
# Store R² (%) for NB first-block model (Gf).
R2GfNB1stblock <- summary(ModelFullGf_1stblockNB)
# Convert to percentage and round.
R2GfNB1stblock <- round((R2GfNB1stblock$r.squared*100),0)
# Store R² (%) for NB two-block model (Gf).
R2GfNB1st2ndblock <- summary(ModelFullGf_1st2ndblockNB)
# Convert to percentage and round.
R2GfNB1st2ndblock <- round((R2GfNB1st2ndblock$r.squared*100),0)

# Store R² (%) for OS models (WMC).
R2WMCOS1stblock <- summary(ModelFullWM_1stblockOS)
# Convert to percentage and round.
R2WMCOS1stblock <- round((R2WMCOS1stblock$r.squared*100),0)
# Store R² (%) for OS two-block model (WMC).
R2WMCOS1st2ndblock <- summary(ModelFullWM_1st2ndblockOS)
# Convert to percentage and round.
R2WMCOS1st2ndblock <- round((R2WMCOS1st2ndblock$r.squared*100),0)
# Store R² (%) for OS three-block model (WMC).
R2WMCOS1st2nd3rdblock <- summary(ModelFullWM_1st2nd3rdblockOS)
# Convert to percentage and round.
R2WMCOS1st2nd3rdblock <- round((R2WMCOS1st2nd3rdblock$r.squared*100),0)
# Store R² (%) for OS first-block model (Gf).
R2GfOS1stblock <- summary(ModelFullGf_1stblockOS)
# Convert to percentage and round.
R2GfOS1stblock <- round((R2GfOS1stblock$r.squared*100),0)
# Store R² (%) for OS two-block model (Gf).
R2GfOS1st2ndblock <- summary(ModelFullGf_1st2ndblockOS)
# Convert to percentage and round.
R2GfOS1st2ndblock <- round((R2GfOS1st2ndblock$r.squared*100),0)
# Store R² (%) for OS three-block model (Gf).
R2GfOS1st2nd3rdblock <- summary(ModelFullGf_1st2nd3rdblockOS)
# Convert to percentage and round.
R2GfOS1st2nd3rdblock <- round((R2GfOS1st2nd3rdblock$r.squared*100),0)

# Store R² (%) for BT models (WMC).
R2WMCBT1stblock <- summary(ModelFullWM_1stblockBT)
# Convert to percentage and round.
R2WMCBT1stblock <- round((R2WMCBT1stblock$r.squared*100),0)
# Store R² (%) for BT full model (WMC).
R2WMCBT1st2ndblock <- summary(ModelFullWM_1st2ndblockBT)
# Convert to percentage and round.
R2WMCBT1st2ndblock <- round((R2WMCBT1st2ndblock$r.squared*100),0)
# Store R² (%) for BT first-block model (Gf) from GLS calculation.
R2GfBT1stblock <- R2FullGf_1stblockBTforGrapgh
# Store R² (%) for BT full model (Gf).
R2GfBT1st2ndblock <- summary(ModelFullGf_1st2ndblockBT)
# Convert to percentage and round.
R2GfBT1st2ndblock <- round((R2GfBT1st2ndblock$r.squared*100),0)

# Store R² (%) for SS models (WMC).
R2WMCSS1stblock <- summary(ModelFullWM_1stblockSS)
# Convert to percentage and round.
R2WMCSS1stblock <- round((R2WMCSS1stblock$r.squared*100),0)
# Store R² (%) for SS two-block model (WMC).
R2WMCSS1st2ndblock <- summary(ModelFullWM_1st2ndblockSS)
# Convert to percentage and round.
R2WMCSS1st2ndblock <- round((R2WMCSS1st2ndblock$r.squared*100),0)
# Store R² (%) for SS three-block model (WMC).
R2WMCSS1st2nd3rdblock <- summary(ModelFullWM_1st2nd3rdblockSS)
# Convert to percentage and round.
R2WMCSS1st2nd3rdblock <- round((R2WMCSS1st2nd3rdblock$r.squared*100),0)
# Store R² (%) for SS first-block model (Gf).
R2GfSS1stblock <- summary(ModelFullGf_1stblockSS)
# Convert to percentage and round.
R2GfSS1stblock <- round((R2GfSS1stblock$r.squared*100),0)
# Store R² (%) for SS two-block model (Gf).
R2GfSS1st2ndblock <- summary(ModelFullGf_1st2ndblockSS)
# Convert to percentage and round.
R2GfSS1st2ndblock <- round((R2GfSS1st2ndblock$r.squared*100),0)
# Store R² (%) for SS three-block model (Gf).
R2GfSS1st2nd3rdblock <- summary(ModelFullGf_1st2nd3rdblockSS)
# Convert to percentage and round.
R2GfSS1st2nd3rdblock <- round((R2GfSS1st2nd3rdblock$r.squared*100),0)

# Store R² (%) for WMU models (WMC).
R2WMCWMU1stblock <- summary(ModelFullWM_1stblockWMU)
# Convert to percentage and round.
R2WMCWMU1stblock <- round((R2WMCWMU1stblock$r.squared*100),0)
# Store R² (%) for WMU two-block model (WMC).
R2WMCWMU1st2ndblock <- summary(ModelFullWM_1st2ndblockWMU)
# Convert to percentage and round.
R2WMCWMU1st2ndblock <- round((R2WMCWMU1st2ndblock$r.squared*100),0)
# Store R² (%) for WMU three-block model (WMC).
R2WMCWMU1st2nd3rdblock <- summary(ModelFullWM_1st2nd3rdblockWMU)
# Convert to percentage and round.
R2WMCWMU1st2nd3rdblock <- round((R2WMCWMU1st2nd3rdblock$r.squared*100),0)
# Store R² (%) for WMU first-block model (Gf).
R2GfWMU1stblock <- summary(ModelFullGf_1stblockWMU)
# Convert to percentage and round.
R2GfWMU1stblock <- round((R2GfWMU1stblock$r.squared*100),0)
# Store R² (%) for WMU two-block model (Gf).
R2GfWMU1st2ndblock <- summary(ModelFullGf_1st2ndblockWMU)
# Convert to percentage and round.
R2GfWMU1st2ndblock <- round((R2GfWMU1st2ndblock$r.squared*100),0)
# Store R² (%) for WMU three-block model (Gf).
R2GfWMU1st2nd3rdblock <- summary(ModelFullGf_1st2nd3rdblockWMU)
# Convert to percentage and round.
R2GfWMU1st2nd3rdblock <- round((R2GfWMU1st2nd3rdblock$r.squared*100),0)

###########################################################################################################################
########## Plots a stacked bar chart showing the variance (R²) in WMC factor scores predicted by each WM task (by block) and by all WM tasks combined (by block).
# Build data frame with blockwise contributions for WMC.
data_GraphWMPred <- data.frame(
  Group = c("AllWMTasks", "RS","NB","OS","BT","SS","WMU"),
  Block1 = c(R2WMCFullTasks1stblock, R2WMCRS1stblock,R2WMCNB1stblock,R2WMCOS1stblock,R2WMCBT1stblock,R2WMCSS1stblock,R2WMCWMU1stblock),
  Block2 = c(R2WMCFullTasks1st2ndblock-R2WMCFullTasks1stblock, R2WMCRS1st2ndblock-R2WMCRS1stblock,R2WMCNB1st2ndblock-R2WMCNB1stblock,R2WMCOS1st2ndblock-R2WMCOS1stblock,R2WMCBT1st2ndblock-R2WMCBT1stblock,R2WMCSS1st2ndblock-R2WMCSS1stblock,R2WMCWMU1st2ndblock-R2WMCWMU1stblock),
  Block3 = c(R2WMCFullTasks1st2nd3rdblock-R2WMCFullTasks1st2ndblock, R2WMCRS1st2nd3rdblock-R2WMCRS1st2ndblock,0,R2WMCOS1st2nd3rdblock-R2WMCOS1st2ndblock,0,R2WMCSS1st2nd3rdblock-R2WMCSS1st2ndblock,R2WMCWMU1st2nd3rdblock-R2WMCWMU1st2ndblock)
)
# Convert to long format for ggplot stacking.
data_GraphWMPred_long <- tidyr::pivot_longer(data_GraphWMPred, cols = -Group, names_to = "Variable", values_to = "Value")
# Clean block labels for readability.
data_GraphWMPred_long$Variable <- gsub("Block", "Block ", data_GraphWMPred_long$Variable)
# Expand group label for readability.
data_GraphWMPred_long$Group <- gsub("AllWMTasks", "All WM Tasks", data_GraphWMPred_long$Group)
# Order stacked segments from top (Block 3) to bottom (Block 1).
data_GraphWMPred_long$Variable <- factor(data_GraphWMPred_long$Variable, levels = c("Block 3", "Block 2", "Block 1"))
# Define a grayscale palette for the blocks.
grey_palette <- gray.colors(3, start = 0.1, end = 0.6)
# Order groups on the x-axis.
data_GraphWMPred_long$Group <- factor(data_GraphWMPred_long$Group, levels = c("All WM Tasks", "RS", "NB", "OS", "BT", "SS", "WMU"))
# Create the stacked bar chart for WMC variance explained.
plot_WMPred <- ggplot(data_GraphWMPred_long, aes(x = Group, y = Value, fill = Variable)) +
  # Draw stacked bars.
  geom_bar(stat = "identity", position = "stack") +
  # Add a dashed reference line after the first category.
  geom_segment(aes(x = 1.5, xend = 1.5, y = 0, yend = 100), linetype = "dashed", color = "black") +  
  # Draw bottom axis line.
  geom_segment(aes(x = 0.5, xend = 7.5, y = 0, yend = 0), linetype = "solid", color = "black") +  
  # Draw left axis line.
  geom_segment(aes(x = 0.5, xend = 0.5, y = 0, yend = 100), linetype = "solid", color = "black") +
  # Label axes and legend.
  labs(x = "", y = "Predicted Variance", fill = "") +
  # Set y-limits for headroom above bars.
  ylim(0,130) +
  # Use a minimal theme.
  theme_minimal() +
  # Remove grid and center title.
  theme(panel.grid = element_blank(),
        plot.title = element_text(hjust = 0.5)) +
  # Apply grayscale fill.
  scale_fill_manual(values = grey_palette) +
  # Add title and panel marker.
  ggtitle("Percentage of WM variance predicted by Task and Block") + 
  annotate("text", x = 0.5, y = 110, label = "A", hjust = 0, size = 6)

########## Plots a stacked bar chart showing the variance (R²) in the Gf factor scores predicted by each WM task (by block) and by all WM tasks combined (by block).
# Build data frame with blockwise contributions for Gf.
data_GraphGfPred <- data.frame(
  Group = c("AllWMTasks", "RS","NB","OS","BT","SS","WMU"),
  Block1 = c(R2GfFullTasks1stblock, R2GfRS1stblock,R2GfNB1stblock,R2GfOS1stblock,R2GfBT1stblock,R2GfSS1stblock,R2GfWMU1stblock),
  Block2 = c(R2GfFullTasks1st2ndblock-R2GfFullTasks1stblock,R2GfRS1st2ndblock-R2GfRS1stblock,R2GfNB1st2ndblock-R2GfNB1stblock,R2GfOS1st2ndblock-R2GfOS1stblock,R2GfBT1st2ndblock-R2GfBT1stblock,R2GfSS1st2ndblock-R2GfSS1stblock,R2GfWMU1st2ndblock-R2GfWMU1stblock),
  Block3 = c(R2GfFullTasks1st2nd3rdblock-R2GfFullTasks1st2ndblock,0,0,R2GfOS1st2nd3rdblock-R2GfOS1st2ndblock,0,R2GfSS1st2nd3rdblock-R2GfSS1st2ndblock,R2GfWMU1st2nd3rdblock-R2GfWMU1st2ndblock)
)
# Convert to long format for ggplot stacking.
data_GraphGfPred_long <- tidyr::pivot_longer(data_GraphGfPred, cols = -Group, names_to = "Variable", values_to = "Value")
# Clean block labels for readability.
data_GraphGfPred_long$Variable <- gsub("Block", "Block ", data_GraphGfPred_long$Variable)
# Expand group label for readability.
data_GraphGfPred_long$Group <- gsub("AllWMTasks", "All WM Tasks", data_GraphGfPred_long$Group)
# Order stacked segments from top (Block 3) to bottom (Block 1).
data_GraphGfPred_long$Variable <- factor(data_GraphGfPred_long$Variable, levels = c("Block 3", "Block 2", "Block 1"))
# Define a grayscale palette for the blocks.
grey_palette <- gray.colors(3, start = 0.1, end = 0.6)
# Order groups on the x-axis.
data_GraphGfPred_long$Group <- factor(data_GraphGfPred_long$Group, levels = c("All WM Tasks", "RS", "NB", "OS", "BT", "SS", "WMU"))
# Create the stacked bar chart for Gf variance explained.
plot_GfPred <- ggplot(data_GraphGfPred_long, aes(x = Group, y = Value, fill = Variable)) +
  # Draw stacked bars.
  geom_bar(stat = "identity", position = "stack") +
  # Add a dashed reference line after the first category with y-limit tailored to Gf range.
  geom_segment(aes(x = 1.5, xend = 1.5, y = 0, yend = 46), linetype = "dashed", color = "black") +  
  # Draw bottom axis line.
  geom_segment(aes(x = 0.5, xend = 7.5, y = 0, yend = 0), linetype = "solid", color = "black") +  
  # Draw left axis line.
  geom_segment(aes(x = 0.5, xend = 0.5, y = 0, yend = 46), linetype = "solid", color = "black") +
  # Label axes and legend.
  labs(x = "", y = "Predicted Variance", fill = "") +
  # Use specific breaks for legibility.
  scale_y_continuous(breaks = c(0, 25, 50)) +
  # Use a minimal theme.
  theme_minimal() +
  # Remove grid and center title.
  theme(panel.grid = element_blank(),
        plot.title = element_text(hjust = 0.5)) +  # Remove grid
  # Apply grayscale fill.
  scale_fill_manual(values = grey_palette) +  # Use grey color palette
  # Add title and panel marker.
  ggtitle("Percentage of Gf variance predicted by Task and Block") + 
  annotate("text", x = 0.5, y = 55, label = "B", hjust = 0, size = 6)

## Combines the two graphs drawn in the previous two blocks.
# Arrange the WMC and Gf stacked bar charts vertically.
combined_plot <- grid.arrange(plot_WMPred, plot_GfPred, ncol = 1)

The regression analyses showed that all versions of every task significantly predicted both factor scores (all ps < .001). The figure above illustrates the variance explained by the early, intermediate, and later trial blocks. The bar to the left of the dashed line represents the variance explained by the full set of WM tasks, whereas the bars to the right depict the variance explained by each task individually.

As shown, the number of trials per block influenced the proportion of Gf and WM variance explained, with full-length task versions accounting for slightly more variance than the shortened ones. However, several notable patterns emerged. The shortened versions (the ones that only contained early trials) of all WM tasks combined predicted a substantial proportion of WM variance (R² = .90). Moreover, the model including all full-length WM tasks (early + intermediate + later blocks) explained only 4% additional Gf variance (R² = .46) relative to the model that included all the shprtened task (R² = .42). This difference was not statistically significant, F(9, 147) = 1.28, p = .25, indicating that shortened and full-length tasks performed similarly in predicting Gf. Importantly, the shortened tasks reduced testing time by about 35%, requiring 56 minutes instead of 86.7 minutes for the full-length versions. When each WM task was analyzed separately, the shortened versions generally explained most of the Gf and WM variance captured by their full-length counterparts — especially for Gf.

10. Permutation Analysis

Besides examining whether complex span, updating, and binding tasks could be shortened while maintaining strong psychometric properties, we also aimed to help researchers select the most efficient combinations of shortened and full-length tasks for future studies. Our objective was to identify configurations that maximized the information derived from WM tasks, while minimizing administration time.

To achieve this, we conducted a permutation analysis in which we calculated and compared the amount of Gf and WM variance predicted by every possible combination of shortened and full-length versions of the tasks, as well as the time required to administer each combination.

The results of this analysis are available through an interactive web application: https://shortwmtasks.shinyapps.io/Results_Permutation_Analysis/. This tool allows users to customize their selection criteria based on the constraints of their research. Researchers can filter models by factors such as available testing time, desired levels of Gf and WM variance explained, targeted WM components, and the inclusion or exclusion of specific tasks.

This information can help researchers identify the most suitable combination of tasks for their specific needs. For example, if only 20 minutes are available for WM assessment, the permutation analysis suggests that the most effective configuration would be the early block of the binding and maintenance task together with the full version of the working memory updating task. In contrast, if 40 minutes are available, the optimal combination would include the early block of the reading span task and the full-length versions of the n-back, binding and maintenance, and working memory updating tasks.

Below, we provide the code used to compute the permutation analysis. Because a large number of models were tested (2,303 in total), the resulting code is extensive. Therefore, the complete script is hidden by default. Readers who wish to examine it can click the “Show/Hide Permutation Analysis” button below to expand this section.

Show/Hide Permutation Analysis

#Regressions assessing the amount of variance in the Gf and full WMC factor scores predicted by every possible combination of short and full-length versions 
##of the WMCs tasks.
################################################################################################################################################################
##Creates DataFrame with all the combinations of shortened and full-length versions of the WM tasks that will be tested in the permutaion analysis.
BD_Combinations <- read_excel('combinations.xlsx',sheet = "Sheet1")

##Creates DataFrame with the amount of time that 95% of the participants took to complete each shortened and full-length versions of the wM tasks.
BD_Models_and_TimetoComplete <- read_excel('BD_Models_and_TimetoComplete.xlsx')

##Creates Dataframe with the WMC and Gf factor scores and the imputed scores of the WM Tasks by blocks without outliers.
DB_imputed_WMTasksbyBlocks <- read_excel('DB_imputed_scores_WM_Gf_Tasks_Full_and_Reduced_Outliers_removed.xlsx', sheet = 'DB_WMTaskbyBlocks')
DB_imputed_WMTasksbyBlocks <- cbind(DB_imputed_WMTasksbyBlocks,DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression,
                                         DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression)
names(DB_imputed_WMTasksbyBlocks)[names(DB_imputed_WMTasksbyBlocks) == "DB_imputed_OriginalWMTasks$Normalized_Factor_scores_WMC_regression"] <- "Normalized_Factor_scores_WMC_regression"
names(DB_imputed_WMTasksbyBlocks)[names(DB_imputed_WMTasksbyBlocks) == "DB_imputed_Original_Gf$Normalized_Factor_scores_Gf_regression"] <- "Normalized_Factor_scores_Gf_regression"

ListR2WM = list()
ListR2Gf = list()
ListOLSModelNumberWM = list()
ListOLSModelsWM = list()
ListWLSModelNumberWM = list()
ListWLSModelsWM = list()
ListGLSModelNumberWM = list()
ListGLSModelsWM = list()
ListOLSModelNumberGf = list()
ListOLSModelsGf = list()
ListWLSModelNumberGf = list()
ListWLSModelsGf = list()
ListGLSModelNumberGf = list()
ListGLSModelsGf = list()
ListModelsDW_WM = list()
ListModelsDW_Gf = list()
ListVIF = list()
ListpvaluesANOVAs = list()

###################################################################################################################################
##10.0 - Defines function that computes all regressions that assess the amount of variance in the Gf and full WMC factor scores predicted by every possible 
##combination of shortened and full.lenght versions of the WMCs tasks.
Permutation_Function <- function(ModelWM,ModelGf,data,IndexRowModel){
  local_ListR2WM <- list()
  local_ListOLSModelNumberWM <- list()
  local_ListOLSModelsWM <- list()
  local_ListWLSModelNumberWM <- list()
  local_ListWLSModelsWM <- list()
  local_ListGLSModelNumberWM <- list()
  local_ListGLSModelsWM <- list()
  local_ListR2Gf <- list()
  local_ListOLSModelNumberGf <- list()
  local_ListOLSModelsGf <- list()
  local_ListWLSModelNumberGf <- list()
  local_ListWLSModelsGf <- list()
  local_ListGLSModelNumberGf <- list()
  local_ListGLSModelsGf <- list()
  local_ListModelsDW_WM <- list()
  local_ListModelsDW_Gf <- list()
  local_ListVIF <- list()
  local_ListpvaluesANOVAs = list()
  
  ################################
  ###WMC
  ###Assessing if the variance of all variables included in the model is aproximately equal.
  Model <- lm(ModelWM,data)
  aaa <- bptest(Model)
  aaa <- round(aaa$p.value,2)
  hhh <- dwtest(Model)
  hhh <- round(hhh$statistic,2)
  local_ListModelsDW_WM = append(local_ListModelsDW_WM,hhh)
  if (BD_Models_and_TimetoComplete[IndexRowModel,1] > 7) {
    local_ListVIF = append(local_ListVIF,vif(Model))    
  }
  
  ####regression model predicting the WM tasks factor scores.
  if (hhh < 2.5 && hhh > 1.5) {  
    if (aaa >= 0.05) {
      Model <- lm(ModelWM,data)
      bbb <- summary(Model)
      bbb <- bbb$r.squared
      local_ListR2WM <- append(local_ListR2WM,bbb)
      local_ListOLSModelNumberWM <- append(local_ListOLSModelNumberWM,BD_Models_and_TimetoComplete[IndexRowModel,1])
      local_ListOLSModelsWM <- append(local_ListOLSModelsWM,BD_Models_and_TimetoComplete[IndexRowModel,2])
    } else {
      Model <- lm(ModelWM,data=data)
      wt <- 1 / lm(abs(Model$residuals) ~ Model$fitted.values)$fitted.values^2
      data$wt = wt
      Model <- lm(ModelWM,data=data,weights=wt)
      bbb <- summary(Model)
      bbb <- bbb$r.squared
      local_ListR2WM <- append(local_ListR2WM,bbb)
      local_ListWLSModelNumberWM <- append(local_ListWLSModelNumberWM,BD_Models_and_TimetoComplete[IndexRowModel,1])
      local_ListWLSModelsWM <- append(local_ListWLSModelsWM,BD_Models_and_TimetoComplete[IndexRowModel,2])
    }
  } else {
    bbb <- gls(ModelWM, data = data, correlation = corAR1(form = ~ 1))
    fitted_values <- fitted(bbb)
    RSS <- sum(residuals(bbb)^2)
    TSS <- sum((DB_imputed_WMTasksbyBlocks$Normalized_Factor_scores_WMC_regression - mean(DB_imputed_WMTasksbyBlocks$Normalized_Factor_scores_WMC_regression))^2)
    bbb <- 1 - (RSS/TSS)
    bbb <- round(bbb,2)
    local_ListR2WM <- append(local_ListR2WM,bbb)
    local_ListGLSModelNumberWM <- append(local_ListGLSModelNumberWM,BD_Models_and_TimetoComplete[IndexRowModel,1])
    local_ListGLSModelsWM <- append(local_ListGLSModelsWM,BD_Models_and_TimetoComplete[IndexRowModel,2])
  }
  ################################
  ###Gf
  ###Assessing if the variance of all variables included in the model is aproximately equal.
  ####Ref model (all blocks of all tasks)
  RefModel <- lm(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_WMTasksbyBlocks)
  Model <- lm(ModelGf,data)
  ccc <- bptest(Model)
  ccc <- round(ccc$p.value,2)
  jjj <- dwtest(Model)
  jjj <- round(jjj$statistic,2)
  local_ListModelsDW_Gf = append(local_ListModelsDW_Gf,jjj)
  
  ####regression model predicting Gf factor scores.
  if (jjj <= 2.5 && jjj >= 1.5) {
    if (ccc >= 0.05) {
      Model <- lm(ModelGf,data)
      ddd <- summary(Model)
      ddd <- ddd$r.squared
      local_ListR2Gf <- append(local_ListR2Gf,ddd)
      local_ListOLSModelNumberGf <- append(local_ListOLSModelNumberGf,BD_Models_and_TimetoComplete[IndexRowModel,1])
      local_ListOLSModelsGf <- append(local_ListOLSModelsGf,BD_Models_and_TimetoComplete[IndexRowModel,2])
      ANOVAGf <- anova(Model,RefModel)
      pvalueGf <- round(ANOVAGf$`Pr(>F)`,2)
      pvalueGf <- pvalueGf[2]
      if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2302) {
        BIC_Model <- BIC(Model)
        BIC_RefModel <- BIC(RefModel)
        BICdiff = BIC_Model - BIC_RefModel
        pvalueGf = round(exp(-BICdiff/2),2)
      } else if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2303) {
        pvalueGf = NA        
      }
      local_ListpvaluesANOVAs <- append(local_ListpvaluesANOVAs,pvalueGf)
    } else {
      Model <- lm(ModelGf,data=data)
      wt <- 1 / lm(abs(Model$residuals) ~ Model$fitted.values)$fitted.values^2
      data$wt = wt
      Model <- lm(ModelGf,data=data,weights=wt)
      ddd <- summary(Model)
      ddd <- ddd$r.squared
      local_ListR2Gf <- append(local_ListR2Gf,ddd)
      local_ListWLSModelNumberGf <- append(local_ListWLSModelNumberGf,BD_Models_and_TimetoComplete[IndexRowModel,1])
      local_ListWLSModelsGf <- append(local_ListWLSModelsGf,BD_Models_and_TimetoComplete[IndexRowModel,2])
      ANOVAGf <- anova(Model,RefModel)
      pvalueGf <- round(ANOVAGf$`Pr(>F)`,2)
      pvalueGf <- pvalueGf[2]
      if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2302) {
        BIC_Model <- BIC(Model)
        BIC_RefModel <- BIC(RefModel)
        BICdiff = BIC_Model - BIC_RefModel
        pvalueGf = round(exp(-BICdiff/2),2)
      } else if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2303) {
        pvalueGf = NA        
      }
      local_ListpvaluesANOVAs <- append(local_ListpvaluesANOVAs,pvalueGf)
    }
  } else {
    ddd <- gls(ModelGf, data = data, correlation = corAR1(form = ~ 1))
    fitted_values <- fitted(ddd)
    RSS <- sum(residuals(ddd)^2)
    TSS <- sum((DB_imputed_WMTasksbyBlocks$Normalized_Factor_scores_Gf_regression - mean(DB_imputed_WMTasksbyBlocks$Normalized_Factor_scores_Gf_regression))^2)
    ddd <- 1 - (RSS/TSS)
    ddd <- round(ddd,2)
    local_ListR2Gf <- append(local_ListR2Gf,ddd)
    local_ListGLSModelNumberGf <- append(local_ListGLSModelNumberGf,BD_Models_and_TimetoComplete[IndexRowModel,1])
    local_ListGLSModelsGf <- append(local_ListGLSModelsGf,BD_Models_and_TimetoComplete[IndexRowModel,2])
    ANOVAGf <- anova(Model,RefModel)
    pvalueGf <- round(ANOVAGf$`Pr(>F)`,2)
    pvalueGf <- pvalueGf[2]
    if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2302) {
      BIC_Model <- BIC(Model)
      BIC_RefModel <- BIC(RefModel)
      BICdiff = BIC_Model - BIC_RefModel
      pvalueGf = round(exp(-BICdiff/2),2)
    } else if (BD_Models_and_TimetoComplete[IndexRowModel,1] == 2303) {
      pvalueGf = NA        
    }
    local_ListpvaluesANOVAs <- append(local_ListpvaluesANOVAs,pvalueGf)
  }
  ListR2WM <<- append(ListR2WM,local_ListR2WM)
  ListR2Gf <<- append(ListR2Gf,local_ListR2Gf)
  ListOLSModelNumberWM <<- append(ListOLSModelNumberWM,local_ListOLSModelNumberWM)
  ListOLSModelsWM <<- append(ListOLSModelsWM,local_ListOLSModelsWM)
  ListWLSModelNumberWM <<- append(ListWLSModelNumberWM,local_ListWLSModelNumberWM)
  ListWLSModelsWM <<- append(ListWLSModelsWM,local_ListWLSModelsWM)
  ListGLSModelNumberWM <<- append(ListGLSModelNumberWM,local_ListGLSModelNumberWM)
  ListGLSModelsWM <<- append(ListGLSModelsWM,local_ListGLSModelsWM)
  ListOLSModelNumberGf <<- append(ListOLSModelNumberGf,local_ListOLSModelNumberGf)
  ListOLSModelsGf <<- append(ListOLSModelsGf,local_ListOLSModelsGf)
  ListWLSModelNumberGf <<- append(ListWLSModelNumberGf,local_ListWLSModelNumberGf)
  ListWLSModelsGf <<- append(ListWLSModelsGf,local_ListWLSModelsGf)
  ListGLSModelNumberGf <<- append(ListGLSModelNumberGf,local_ListGLSModelNumberGf)
  ListGLSModelsGf <<- append(ListGLSModelsGf,local_ListGLSModelsGf)
  ListModelsDW_WM <<- append(ListModelsDW_WM,local_ListModelsDW_WM)
  ListModelsDW_Gf <<- append(ListModelsDW_Gf,local_ListModelsDW_Gf)
  ListVIF <<- append(ListVIF,local_ListVIF)
  ListpvaluesANOVAs <<- append(ListpvaluesANOVAs,local_ListpvaluesANOVAs)
}


##RS: Reading span.
##NB: N-back task.
##OS: operation soan.
##BT: Binding and maintenance task.
##SS: Symmetry span.
##WMU: Working memory updating task.

#########################################################################################
##10.1 - RS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2 - NB (6/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.3 - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.4 - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.5 - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.6 - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.7 - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.8 - RS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.9 - RS (20/60) - NB (6/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.10 - RS (20/60) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.11 - RS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.12 - RS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.13 - RS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.14 - RS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.15 - NB (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.16 - NB (6/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.17 - NB (6/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.18 - NB (6/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.19 - NB (6/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.20 - NB (6/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.21 - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.22 - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.23 - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.24 - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.25 - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.26 - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.27 - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.28 - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.29 - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.30 - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.31 - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.32 - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.33 - RS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.34 - RS (40/60) - NB (6/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.35 - RS (40/60) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.36 - RS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.37 - RS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.38 - RS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.39 - RS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.40 - RS (20/60) - NB (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.41 - RS (20/60) - NB (6/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.42 - RS (20/60) - NB (6/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.43 - RS (20/60) - NB (6/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.44 - RS (20/60) - NB (6/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.45 - RS (20/60) - NB (6/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.46 - RS (20/60) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.47 - RS (20/60) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.48 - RS (20/60) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.49 - RS (20/60) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.50 - RS (20/60) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.51 - RS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.52 - RS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.53 - RS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.54 - RS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.55 - RS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.56 - RS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.57 - RS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.58 - NB (12/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.59 - NB (12/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.60 - NB (12/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.61 - NB (12/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.62 - NB (12/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.63 - NB (6/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.64 - NB (6/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.65 - NB (6/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.66 - NB (6/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.67 - NB (6/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.68 - NB (6/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.69 - NB (6/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.70 - NB (6/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.71 - NB (6/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.72 - NB (6/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.73 - NB (6/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.74 - NB (6/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.75 - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.76 - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.77 - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.78 - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.79 - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.80 - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.81 - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.82 - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.83 - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.84 - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.85 - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.86 - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.87 - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.88 - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.89 - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.90 - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.91 - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.92 - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.93 - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.94 - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.95 - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.96 - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.97 - RS (60/60) - NB (6/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.98 - RS (60/60) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.99 - RS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.100 - RS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.101 - RS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.102 - RS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.103 - RS (40/60) - NB (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.104 - RS (40/60) - NB (6/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.105 - RS (40/60) - NB (6/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.106 - RS (40/60) - NB (6/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.107 - RS (40/60) - NB (6/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.108 - RS (40/60) - NB (6/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.109 - RS (40/60) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.110 - RS (40/60) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.111 - RS (40/60) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.112 - RS (40/60) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.113 - RS (40/60) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.114 - RS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.115 - RS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.116 - RS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.117 - RS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.118 - RS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.119 - RS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.120 - RS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.121 - RS (20/60) - NB (12/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.122 - RS (20/60) - NB (12/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.123 - RS (20/60) - NB (12/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.124 - RS (20/60) - NB (12/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.125 - RS (20/60) - NB (12/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.126 - RS (20/60) - NB (6/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.127 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.128 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.129 - RS (20/60) - NB (6/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.130 - RS (20/60) - NB (6/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.131 - RS (20/60) - NB (6/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.132 - RS (20/60) - NB (6/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.133 - RS (20/60) - NB (6/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.134 - RS (20/60) - NB (6/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.135 - RS (20/60) - NB (6/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.136 - RS (20/60) - NB (6/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.137 - RS (20/60) - NB (6/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.138 - RS (20/60) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.139 - RS (20/60) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.140 - RS (20/60) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.141 - RS (20/60) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.142 - RS (20/60) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.143 - RS (20/60) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.144 - RS (20/60) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.145 - RS (20/60) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.146 - RS (20/60) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.147 - RS (20/60) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.148 - RS (20/60) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.149 - RS (20/60) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.150 - RS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.151 - RS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.152 - RS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.153 - RS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.154 - RS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.155 - RS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.156 - RS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.157 - RS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.158 - RS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.159 - RS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.160 - NB (12/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.161 - NB (12/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.162 - NB (12/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.163 - NB (12/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.164 - NB (12/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.165 - NB (12/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.166 - NB (12/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.167 - NB (12/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.168 - NB (12/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.169 - NB (12/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.170 - NB (12/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.171 - NB (12/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.172 - NB (6/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.173 - NB (6/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.174 - NB (6/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.175 - NB (6/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.176 - NB (6/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.177 - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.178 - NB (6/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.179 - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.180 - NB (6/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.181 - NB (6/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.182 - NB (6/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.183 - NB (6/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.184 - NB (6/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.185 - NB (6/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.186 - NB (6/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.187 - NB (6/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.188 - NB (6/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.189 - NB (6/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.190 - NB (6/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.191 - NB (6/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.192 - NB (6/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.193 - NB (6/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.194 - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.195 - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.196 - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.197 - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.198 - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.199 - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.200 - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.201 - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.202 - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.203 - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.204 - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.205 - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.206 - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.207 - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.208 - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.209 - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.210 - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.211 - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.212 - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.213 - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.214 - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.215 - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.216 - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.217 - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.218 - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.219 - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.220 - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.221 - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.222 - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.223 - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.224 - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.225 - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.226 - RS (60/60) - NB (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.227 - RS (60/60) - NB (6/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.228 - RS (60/60) - NB (6/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.229 - RS (60/60) - NB (6/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.230 - RS (60/60) - NB (6/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.231 - RS (60/60) - NB (6/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.232 - RS (60/60) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.233 - RS (60/60) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.234 - RS (60/60) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.235 - RS (60/60) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.236 - RS (60/60) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.237 - RS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.238 - RS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.239 - RS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.240 - RS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.241 - RS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.242 - RS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.243 - RS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.244 - RS (40/60) - NB (12/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.245 - RS (40/60) - NB (12/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.246 - RS (40/60) - NB (12/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.247 - RS (40/60) - NB (12/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.248 - RS (40/60) - NB (12/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.249 - RS (40/60) - NB (6/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.250 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.251 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.252 - RS (40/60) - NB (6/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.253 - RS (40/60) - NB (6/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.254 - RS (40/60) - NB (6/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.255 - RS (40/60) - NB (6/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.256 - RS (40/60) - NB (6/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.257 - RS (40/60) - NB (6/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.258 - RS (40/60) - NB (6/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.259 - RS (40/60) - NB (6/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.260 - RS (40/60) - NB (6/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.261 - RS (40/60) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.262 - RS (40/60) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.263 - RS (40/60) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.264 - RS (40/60) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.265 - RS (40/60) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.266 - RS (40/60) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.267 - RS (40/60) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.268 - RS (40/60) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.269 - RS (40/60) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.270 - RS (40/60) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.271 - RS (40/60) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.272 - RS (40/60) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.273 - RS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.274 - RS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.275 - RS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.276 - RS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.277 - RS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.278 - RS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.279 - RS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.280 - RS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.281 - RS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.282 - RS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.283 - RS (20/60) - NB (12/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.284 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.285 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.286 - RS (20/60) - NB (12/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.287 - RS (20/60) - NB (12/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.288 - RS (20/60) - NB (12/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.289 - RS (20/60) - NB (12/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.290 - RS (20/60) - NB (12/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.291 - RS (20/60) - NB (12/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.292 - RS (20/60) - NB (12/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.293 - RS (20/60) - NB (12/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.294 - RS (20/60) - NB (12/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.295 - RS (20/60) - NB (6/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.296 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.297 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.298 - RS (20/60) - NB (6/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.299 - RS (20/60) - NB (6/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.300 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.301 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.302 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.303 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.304 - RS (20/60) - NB (6/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.305 - RS (20/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.306 - RS (20/60) - NB (6/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.307 - RS (20/60) - NB (6/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.308 - RS (20/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.309 - RS (20/60) - NB (6/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.310 - RS (20/60) - NB (6/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.311 - RS (20/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.312 - RS (20/60) - NB (6/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.313 - RS (20/60) - NB (6/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.314 - RS (20/60) - NB (6/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.315 - RS (20/60) - NB (6/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.316 - RS (20/60) - NB (6/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.317 - RS (20/60) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.318 - RS (20/60) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.319 - RS (20/60) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.320 - RS (20/60) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.321 - RS (20/60) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.322 - RS (20/60) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.323 - RS (20/60) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.324 - RS (20/60) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.325 - RS (20/60) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.326 - RS (20/60) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.327 - RS (20/60) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.328 - RS (20/60) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.329 - RS (20/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.330 - RS (20/60) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.331 - RS (20/60) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.332 - RS (20/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.333 - RS (20/60) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.334 - RS (20/60) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.335 - RS (20/60) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.336 - RS (20/60) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.337 - RS (20/60) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.338 - RS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.339 - RS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.340 - RS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.341 - RS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.342 - RS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.343 - RS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.344 - RS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.345 - RS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.346 - RS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.347 - RS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.348 - RS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.349 - NB (12/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.350 - NB (12/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.351 - NB (12/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.352 - NB (12/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.353 - NB (12/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.354 - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.355 - NB (12/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.356 - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.357 - NB (12/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.358 - NB (12/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.359 - NB (12/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.360 - NB (12/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.361 - NB (12/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.362 - NB (12/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.363 - NB (12/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.364 - NB (12/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.365 - NB (12/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.366 - NB (12/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.367 - NB (12/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.368 - NB (12/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.369 - NB (12/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.370 - NB (12/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.371 - NB (6/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.372 - NB (6/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.373 - NB (6/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.374 - NB (6/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.375 - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.376 - NB (6/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.377 - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.378 - NB (6/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.379 - NB (6/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.380 - NB (6/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.381 - NB (6/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.382 - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.383 - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.384 - NB (6/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.385 - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.386 - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.387 - NB (6/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.388 - NB (6/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.389 - NB (6/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.390 - NB (6/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.391 - NB (6/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.392 - NB (6/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.393 - NB (6/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.394 - NB (6/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.395 - NB (6/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.396 - NB (6/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.397 - NB (6/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.398 - NB (6/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.399 - NB (6/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.400 - NB (6/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.401 - NB (6/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.402 - NB (6/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.403 - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.404 - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.405 - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.406 - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.407 - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.408 - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.409 - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.410 - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.411 - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.412 - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.413 - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.414 - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.415 - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.416 - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.417 - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.418 - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.419 - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.420 - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.421 - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.422 - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.423 - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.424 - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.425 - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.426 - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.427 - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.428 - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.429 - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.430 - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.431 - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.432 - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.433 - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.434 - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.435 - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.436 - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.437 - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.438 - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.439 - RS (60/60) - NB (12/12) - OS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.440 - RS (60/60) - NB (12/12) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.441 - RS (60/60) - NB (12/12) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.442 - RS (60/60) - NB (12/12) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.443 - RS (60/60) - NB (12/12) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.444 - RS (60/60) - NB (6/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.445 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.446 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.447 - RS (60/60) - NB (6/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.448 - RS (60/60) - NB (6/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.449 - RS (60/60) - NB (6/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.450 - RS (60/60) - NB (6/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.451 - RS (60/60) - NB (6/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.452 - RS (60/60) - NB (6/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.453 - RS (60/60) - NB (6/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.454 - RS (60/60) - NB (6/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.455 - RS (60/60) - NB (6/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.456 - RS (60/60) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.457 - RS (60/60) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.458 - RS (60/60) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.459 - RS (60/60) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.460 - RS (60/60) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.461 - RS (60/60) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.462 - RS (60/60) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.463 - RS (60/60) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.464 - RS (60/60) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.465 - RS (60/60) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.466 - RS (60/60) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.467 - RS (60/60) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.468 - RS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.469 - RS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.470 - RS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.471 - RS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.472 - RS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.473 - RS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.474 - RS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.475 - RS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.476 - RS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.477 - RS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.478 - RS (40/60) - NB (12/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.479 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.480 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.481 - RS (40/60) - NB (12/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.482 - RS (40/60) - NB (12/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.483 - RS (40/60) - NB (12/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.484 - RS (40/60) - NB (12/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.485 - RS (40/60) - NB (12/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.486 - RS (40/60) - NB (12/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.487 - RS (40/60) - NB (12/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.488 - RS (40/60) - NB (12/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.489 - RS (40/60) - NB (12/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.490 - RS (40/60) - NB (6/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.491 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.492 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.493 - RS (40/60) - NB (6/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.494 - RS (40/60) - NB (6/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.495 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.496 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.497 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.498 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.499 - RS (40/60) - NB (6/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.500 - RS (40/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.501 - RS (40/60) - NB (6/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.502 - RS (40/60) - NB (6/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.503 - RS (40/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.504 - RS (40/60) - NB (6/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.505 - RS (40/60) - NB (6/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.506 - RS (40/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.507 - RS (40/60) - NB (6/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.508 - RS (40/60) - NB (6/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.509 - RS (40/60) - NB (6/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.510 - RS (40/60) - NB (6/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.511 - RS (40/60) - NB (6/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.512 - RS (40/60) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.513 - RS (40/60) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.514 - RS (40/60) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.515 - RS (40/60) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.516 - RS (40/60) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.517 - RS (40/60) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.518 - RS (40/60) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.519 - RS (40/60) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.520 - RS (40/60) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.521 - RS (40/60) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.522 - RS (40/60) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.523 - RS (40/60) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.524 - RS (40/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.525 - RS (40/60) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.526 - RS (40/60) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.527 - RS (40/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.528 - RS (40/60) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.529 - RS (40/60) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.530 - RS (40/60) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.531 - RS (40/60) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.532 - RS (40/60) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.533 - RS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.534 - RS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.535 - RS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.536 - RS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.537 - RS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.538 - RS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.539 - RS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.540 - RS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.541 - RS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.542 - RS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.543 - RS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.544 - RS (20/60) - NB (12/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.545 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.546 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.547 - RS (20/60) - NB (12/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.548 - RS (20/60) - NB (12/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.549 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.550 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.551 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.552 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.553 - RS (20/60) - NB (12/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.554 - RS (20/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.555 - RS (20/60) - NB (12/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.556 - RS (20/60) - NB (12/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.557 - RS (20/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.558 - RS (20/60) - NB (12/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.559 - RS (20/60) - NB (12/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.560 - RS (20/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.561 - RS (20/60) - NB (12/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.562 - RS (20/60) - NB (12/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.563 - RS (20/60) - NB (12/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.564 - RS (20/60) - NB (12/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.565 - RS (20/60) - NB (12/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.566 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.567 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.568 - RS (20/60) - NB (6/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.569 - RS (20/60) - NB (6/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.570 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.571 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.572 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.573 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.574 - RS (20/60) - NB (6/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.575 - RS (20/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.576 - RS (20/60) - NB (6/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.577 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.578 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.579 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.580 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.581 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.582 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.583 - RS (20/60) - NB (6/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.584 - RS (20/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.585 - RS (20/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.586 - RS (20/60) - NB (6/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.587 - RS (20/60) - NB (6/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.588 - RS (20/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.589 - RS (20/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.590 - RS (20/60) - NB (6/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.591 - RS (20/60) - NB (6/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.592 - RS (20/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.593 - RS (20/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.594 - RS (20/60) - NB (6/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.595 - RS (20/60) - NB (6/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.596 - RS (20/60) - NB (6/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.597 - RS (20/60) - NB (6/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.598 - RS (20/60) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.599 - RS (20/60) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.600 - RS (20/60) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.601 - RS (20/60) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.602 - RS (20/60) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.603 - RS (20/60) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.604 - RS (20/60) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.605 - RS (20/60) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.606 - RS (20/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.607 - RS (20/60) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.608 - RS (20/60) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.609 - RS (20/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.610 - RS (20/60) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.611 - RS (20/60) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.612 - RS (20/60) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.613 - RS (20/60) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.614 - RS (20/60) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.615 - RS (20/60) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.616 - RS (20/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.617 - RS (20/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.618 - RS (20/60) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.619 - RS (20/60) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.620 - RS (20/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.621 - RS (20/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.622 - RS (20/60) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.623 - RS (20/60) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.624 - RS (20/60) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.625 - RS (20/60) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.626 - RS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.627 - RS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.628 - RS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.629 - RS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.630 - RS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.631 - RS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.632 - RS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.633 - RS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.634 - NB (12/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.635 - NB (12/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.636 - NB (12/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.637 - NB (12/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.638 - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.639 - NB (12/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.640 - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.641 - NB (12/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.642 - NB (12/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.643 - NB (12/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.644 - NB (12/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.645 - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.646 - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.647 - NB (12/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.648 - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.649 - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.650 - NB (12/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.651 - NB (12/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.652 - NB (12/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.653 - NB (12/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.654 - NB (12/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.655 - NB (12/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.656 - NB (12/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.657 - NB (12/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.658 - NB (12/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.659 - NB (12/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.660 - NB (12/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.661 - NB (12/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.662 - NB (12/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.663 - NB (12/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.664 - NB (12/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.665 - NB (12/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.666 - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.667 - NB (6/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.668 - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.669 - NB (6/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.670 - NB (6/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.671 - NB (6/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.672 - NB (6/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.673 - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.674 - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.675 - NB (6/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.676 - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.677 - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.678 - NB (6/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.679 - NB (6/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.680 - NB (6/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.681 - NB (6/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.682 - NB (6/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.683 - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.684 - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.685 - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.686 - NB (6/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.687 - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.688 - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.689 - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.690 - NB (6/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.691 - NB (6/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.692 - NB (6/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.693 - NB (6/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.694 - NB (6/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.695 - NB (6/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.696 - NB (6/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.697 - NB (6/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.698 - NB (6/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.699 - NB (6/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.700 - NB (6/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.701 - NB (6/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.702 - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.703 - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.704 - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.705 - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.706 - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.707 - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.708 - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.709 - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.710 - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.711 - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.712 - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.713 - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.714 - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.715 - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.716 - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.717 - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.718 - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.719 - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.720 - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.721 - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.722 - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.723 - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.724 - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.725 - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.726 - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.727 - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.728 - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.729 - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.730 - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.731 - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.732 - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.733 - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.734 - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.735 - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.736 - RS (60/60) - NB (12/12) - OS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.737 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.738 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.739 - RS (60/60) - NB (12/12) - OS (20/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.740 - RS (60/60) - NB (12/12) - OS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.741 - RS (60/60) - NB (12/12) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.742 - RS (60/60) - NB (12/12) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.743 - RS (60/60) - NB (12/12) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.744 - RS (60/60) - NB (12/12) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.745 - RS (60/60) - NB (12/12) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.746 - RS (60/60) - NB (12/12) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.747 - RS (60/60) - NB (12/12) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.748 - RS (60/60) - NB (6/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.749 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.750 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.751 - RS (60/60) - NB (6/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.752 - RS (60/60) - NB (6/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.753 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.754 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.755 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.756 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.757 - RS (60/60) - NB (6/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.758 - RS (60/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.759 - RS (60/60) - NB (6/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.760 - RS (60/60) - NB (6/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.761 - RS (60/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.762 - RS (60/60) - NB (6/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.763 - RS (60/60) - NB (6/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.764 - RS (60/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.765 - RS (60/60) - NB (6/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.766 - RS (60/60) - NB (6/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.767 - RS (60/60) - NB (6/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.768 - RS (60/60) - NB (6/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.769 - RS (60/60) - NB (6/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.770 - RS (60/60) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.771 - RS (60/60) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.772 - RS (60/60) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.773 - RS (60/60) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.774 - RS (60/60) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.775 - RS (60/60) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.776 - RS (60/60) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.777 - RS (60/60) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.778 - RS (60/60) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.779 - RS (60/60) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.780 - RS (60/60) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.781 - RS (60/60) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.782 - RS (60/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.783 - RS (60/60) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.784 - RS (60/60) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.785 - RS (60/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.786 - RS (60/60) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.787 - RS (60/60) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.788 - RS (60/60) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.789 - RS (60/60) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.790 - RS (60/60) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.791 - RS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.792 - RS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.793 - RS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.794 - RS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.795 - RS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.796 - RS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.797 - RS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.798 - RS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.799 - RS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.800 - RS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.801 - RS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.802 - RS (40/60) - NB (12/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.803 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.804 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.805 - RS (40/60) - NB (12/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.806 - RS (40/60) - NB (12/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.807 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.808 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.809 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.810 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.811 - RS (40/60) - NB (12/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.812 - RS (40/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.813 - RS (40/60) - NB (12/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.814 - RS (40/60) - NB (12/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.815 - RS (40/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.816 - RS (40/60) - NB (12/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.817 - RS (40/60) - NB (12/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.818 - RS (40/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.819 - RS (40/60) - NB (12/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.820 - RS (40/60) - NB (12/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.821 - RS (40/60) - NB (12/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.822 - RS (40/60) - NB (12/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.823 - RS (40/60) - NB (12/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.824 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.825 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.826 - RS (40/60) - NB (6/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.827 - RS (40/60) - NB (6/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.828 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.829 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.830 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.831 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.832 - RS (40/60) - NB (6/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.833 - RS (40/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.834 - RS (40/60) - NB (6/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.835 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.836 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.837 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.838 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.839 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.840 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.841 - RS (40/60) - NB (6/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.842 - RS (40/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.843 - RS (40/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.844 - RS (40/60) - NB (6/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.845 - RS (40/60) - NB (6/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.846 - RS (40/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.847 - RS (40/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.848 - RS (40/60) - NB (6/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.849 - RS (40/60) - NB (6/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.850 - RS (40/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.851 - RS (40/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.852 - RS (40/60) - NB (6/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.853 - RS (40/60) - NB (6/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.854 - RS (40/60) - NB (6/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.855 - RS (40/60) - NB (6/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.856 - RS (40/60) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.857 - RS (40/60) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.858 - RS (40/60) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.859 - RS (40/60) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.860 - RS (40/60) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.861 - RS (40/60) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.862 - RS (40/60) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.863 - RS (40/60) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.864 - RS (40/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.865 - RS (40/60) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.866 - RS (40/60) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.867 - RS (40/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.868 - RS (40/60) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.869 - RS (40/60) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.870 - RS (40/60) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.871 - RS (40/60) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.872 - RS (40/60) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.873 - RS (40/60) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.874 - RS (40/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.875 - RS (40/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.876 - RS (40/60) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.877 - RS (40/60) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.878 - RS (40/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.879 - RS (40/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.880 - RS (40/60) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.881 - RS (40/60) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.882 - RS (40/60) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.883 - RS (40/60) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.884 - RS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.885 - RS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.886 - RS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.887 - RS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.888 - RS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.889 - RS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.890 - RS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.891 - RS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.892 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.893 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.894 - RS (20/60) - NB (12/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.895 - RS (20/60) - NB (12/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.896 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.897 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.898 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.899 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.900 - RS (20/60) - NB (12/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.901 - RS (20/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.902 - RS (20/60) - NB (12/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.903 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.904 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.905 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.906 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.907 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.908 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.909 - RS (20/60) - NB (12/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.910 - RS (20/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.911 - RS (20/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.912 - RS (20/60) - NB (12/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.913 - RS (20/60) - NB (12/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.914 - RS (20/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.915 - RS (20/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.916 - RS (20/60) - NB (12/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.917 - RS (20/60) - NB (12/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.918 - RS (20/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.919 - RS (20/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.920 - RS (20/60) - NB (12/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.921 - RS (20/60) - NB (12/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.922 - RS (20/60) - NB (12/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.923 - RS (20/60) - NB (12/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.924 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.925 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.926 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.927 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.928 - RS (20/60) - NB (6/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.929 - RS (20/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.930 - RS (20/60) - NB (6/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.931 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.932 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.933 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.934 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.935 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.936 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.937 - RS (20/60) - NB (6/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.938 - RS (20/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.939 - RS (20/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.940 - RS (20/60) - NB (6/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.941 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.942 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.943 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.944 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.945 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.946 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.947 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.948 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.949 - RS (20/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.950 - RS (20/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.951 - RS (20/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.952 - RS (20/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.953 - RS (20/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.954 - RS (20/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.955 - RS (20/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.956 - RS (20/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.957 - RS (20/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.958 - RS (20/60) - NB (6/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.959 - RS (20/60) - NB (6/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.960 - RS (20/60) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.961 - RS (20/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.962 - RS (20/60) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.963 - RS (20/60) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.964 - RS (20/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.965 - RS (20/60) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.966 - RS (20/60) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.967 - RS (20/60) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.968 - RS (20/60) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.969 - RS (20/60) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.970 - RS (20/60) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.971 - RS (20/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.972 - RS (20/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.973 - RS (20/60) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.974 - RS (20/60) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.975 - RS (20/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.976 - RS (20/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.977 - RS (20/60) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.978 - RS (20/60) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.979 - RS (20/60) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.980 - RS (20/60) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.981 - RS (20/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.982 - RS (20/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.983 - RS (20/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.984 - RS (20/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.985 - RS (20/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.986 - RS (20/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.987 - RS (20/60) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.988 - RS (20/60) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.989 - RS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.990 - RS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.991 - RS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.992 - RS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.993 - RS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.994 - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.995 - NB (12/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.996 - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.997 - NB (12/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.998 - NB (12/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.999 - NB (12/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1000 - NB (12/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1001 - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1002 - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1003 - NB (12/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1004 - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1005 - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1006 - NB (12/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1007 - NB (12/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1008 - NB (12/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1009 - NB (12/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1010 - NB (12/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1011 - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1012 - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1013 - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1014 - NB (12/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1015 - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1016 - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1017 - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1018 - NB (12/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1019 - NB (12/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1020 - NB (12/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1021 - NB (12/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1022 - NB (12/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1023 - NB (12/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1024 - NB (12/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1025 - NB (12/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1026 - NB (12/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1027 - NB (12/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1028 - NB (12/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1029 - NB (12/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1030 - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1031 - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1032 - NB (6/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1033 - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1034 - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1035 - NB (6/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1036 - NB (6/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1037 - NB (6/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1038 - NB (6/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1039 - NB (6/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1040 - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1041 - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1042 - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1043 - NB (6/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1044 - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1045 - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1046 - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1047 - NB (6/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1048 - NB (6/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1049 - NB (6/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1050 - NB (6/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1051 - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1052 - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1053 - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1054 - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1055 - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1056 - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1057 - NB (6/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1058 - NB (6/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1059 - NB (6/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1060 - NB (6/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 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 ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1061 - NB (6/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1062 - NB (6/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1063 - NB (6/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1064 - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1065 - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1066 - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1067 - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1068 - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1069 - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1070 - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1071 - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1072 - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1073 - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1074 - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1075 - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1076 - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1077 - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1078 - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1079 - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1080 - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1081 - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1082 - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1083 - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1084 - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock 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 ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1085 - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1086 - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1087 - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1088 - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1089 - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1090 - RS (60/60) - NB (12/12) - OS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1091 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1092 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1093 - RS (60/60) - NB (12/12) - OS (40/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1094 - RS (60/60) - NB (12/12) - OS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1095 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1096 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1097 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1098 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1099 - RS (60/60) - NB (12/12) - OS (20/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1100 - RS (60/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1101 - RS (60/60) - NB (12/12) - OS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1102 - RS (60/60) - NB (12/12) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1103 - RS (60/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1104 - RS (60/60) - NB (12/12) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1105 - RS (60/60) - NB (12/12) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1106 - RS (60/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1107 - RS (60/60) - NB (12/12) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1108 - RS (60/60) - NB (12/12) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1109 - RS (60/60) - NB (12/12) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1110 - RS (60/60) - NB (12/12) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1111 - RS (60/60) - NB (12/12) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1112 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1113 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1114 - RS (60/60) - NB (6/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1115 - RS (60/60) - NB (6/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1116 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1117 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1118 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1119 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1120 - RS (60/60) - NB (6/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1121 - RS (60/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1122 - RS (60/60) - NB (6/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1123 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1124 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1125 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1126 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1127 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1128 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1129 - RS (60/60) - NB (6/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1130 - RS (60/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1131 - RS (60/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1132 - RS (60/60) - NB (6/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1133 - RS (60/60) - NB (6/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1134 - RS (60/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1135 - RS (60/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1136 - RS (60/60) - NB (6/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1137 - RS (60/60) - NB (6/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1138 - RS (60/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1139 - RS (60/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1140 - RS (60/60) - NB (6/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1141 - RS (60/60) - NB (6/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1142 - RS (60/60) - NB (6/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1143 - RS (60/60) - NB (6/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1144 - RS (60/60) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1145 - RS (60/60) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1146 - RS (60/60) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1147 - RS (60/60) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1148 - RS (60/60) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1149 - RS (60/60) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1150 - RS (60/60) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1151 - RS (60/60) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1152 - RS (60/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1153 - RS (60/60) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1154 - RS (60/60) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1155 - RS (60/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1156 - RS (60/60) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1157 - RS (60/60) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1158 - RS (60/60) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1159 - RS (60/60) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1160 - RS (60/60) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1161 - RS (60/60) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1162 - RS (60/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1163 - RS (60/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1164 - RS (60/60) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1165 - RS (60/60) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1166 - RS (60/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1167 - RS (60/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1168 - RS (60/60) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1169 - RS (60/60) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1170 - RS (60/60) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1171 - RS (60/60) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1172 - RS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1173 - RS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1174 - RS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1175 - RS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1176 - RS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1177 - RS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1178 - RS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1179 - RS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1180 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1181 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1182 - RS (40/60) - NB (12/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1183 - RS (40/60) - NB (12/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1184 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1185 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1186 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1187 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1188 - RS (40/60) - NB (12/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1189 - RS (40/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1190 - RS (40/60) - NB (12/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1191 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1192 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1193 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1194 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1195 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1196 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1197 - RS (40/60) - NB (12/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1198 - RS (40/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1199 - RS (40/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1200 - RS (40/60) - NB (12/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1201 - RS (40/60) - NB (12/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1202 - RS (40/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1203 - RS (40/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1204 - RS (40/60) - NB (12/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1205 - RS (40/60) - NB (12/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1206 - RS (40/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1207 - RS (40/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1208 - RS (40/60) - NB (12/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1209 - RS (40/60) - NB (12/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1210 - RS (40/60) - NB (12/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1211 - RS (40/60) - NB (12/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1212 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1213 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1214 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1215 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1216 - RS (40/60) - NB (6/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1217 - RS (40/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1218 - RS (40/60) - NB (6/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1219 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1220 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1221 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1222 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1223 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1224 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1225 - RS (40/60) - NB (6/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1226 - RS (40/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1227 - RS (40/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1228 - RS (40/60) - NB (6/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1229 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1230 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1231 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1232 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1233 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1234 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1235 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1236 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1237 - RS (40/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1238 - RS (40/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1239 - RS (40/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1240 - RS (40/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1241 - RS (40/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1242 - RS (40/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1243 - RS (40/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1244 - RS (40/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1245 - RS (40/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1246 - RS (40/60) - NB (6/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1247 - RS (40/60) - NB (6/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1248 - RS (40/60) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1249 - RS (40/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1250 - RS (40/60) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1251 - RS (40/60) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1252 - RS (40/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1253 - RS (40/60) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1254 - RS (40/60) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1255 - RS (40/60) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1256 - RS (40/60) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1257 - RS (40/60) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1258 - RS (40/60) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1259 - RS (40/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1260 - RS (40/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1261 - RS (40/60) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1262 - RS (40/60) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1263 - RS (40/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1264 - RS (40/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1265 - RS (40/60) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1266 - RS (40/60) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1267 - RS (40/60) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1268 - RS (40/60) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1269 - RS (40/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1270 - RS (40/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1271 - RS (40/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1272 - RS (40/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1273 - RS (40/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1274 - RS (40/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1275 - RS (40/60) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1276 - RS (40/60) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1277 - RS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1278 - RS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1279 - RS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1280 - RS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1281 - RS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1282 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1283 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1284 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1285 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1286 - RS (20/60) - NB (12/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1287 - RS (20/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1288 - RS (20/60) - NB (12/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1289 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1290 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1291 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1292 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1293 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1294 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1295 - RS (20/60) - NB (12/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1296 - RS (20/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1297 - RS (20/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1298 - RS (20/60) - NB (12/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1299 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1300 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1301 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1302 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1303 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1304 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1305 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1306 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1307 - RS (20/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1308 - RS (20/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1309 - RS (20/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1310 - RS (20/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1311 - RS (20/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1312 - RS (20/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1313 - RS (20/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1314 - RS (20/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1315 - RS (20/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1316 - RS (20/60) - NB (12/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1317 - RS (20/60) - NB (12/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1318 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1319 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1320 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1321 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1322 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1323 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1324 - RS (20/60) - NB (6/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1325 - RS (20/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1326 - RS (20/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1327 - RS (20/60) - NB (6/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1328 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1329 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1330 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1331 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1332 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1333 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1334 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1335 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1336 - RS (20/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1337 - RS (20/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1338 - RS (20/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1339 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1340 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1341 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1342 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1343 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1344 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1345 - RS (20/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1346 - RS (20/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1347 - RS (20/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1348 - RS (20/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1349 - RS (20/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1350 - RS (20/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1351 - RS (20/60) - NB (6/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1352 - RS (20/60) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1353 - RS (20/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1354 - RS (20/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1355 - RS (20/60) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1356 - RS (20/60) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1357 - RS (20/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1358 - RS (20/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1359 - RS (20/60) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1360 - RS (20/60) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1361 - RS (20/60) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1362 - RS (20/60) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1363 - RS (20/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1364 - RS (20/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1365 - RS (20/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1366 - RS (20/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1367 - RS (20/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1368 - RS (20/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1369 - RS (20/60) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1370 - RS (20/60) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1371 - RS (20/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1372 - RS (20/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1373 - RS (20/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1374 - RS (20/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1375 - RS (20/60) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1376 - RS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1377 - RS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1378 - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1379 - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1380 - NB (12/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1381 - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1382 - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1383 - NB (12/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1384 - NB (12/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1385 - NB (12/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1386 - NB (12/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1387 - NB (12/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1388 - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1389 - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1390 - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1391 - NB (12/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1392 - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1393 - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1394 - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1395 - NB (12/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1396 - NB (12/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1397 - NB (12/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1398 - NB (12/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1399 - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1400 - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1401 - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1402 - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1403 - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1404 - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1405 - NB (12/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1406 - NB (12/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1407 - NB (12/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1408 - NB (12/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 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 ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1409 - NB (12/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1410 - NB (12/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1411 - NB (12/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1412 - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1413 - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1414 - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1415 - NB (6/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1416 - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1417 - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1418 - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1419 - NB (6/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1420 - NB (6/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1421 - NB (6/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1422 - NB (6/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1423 - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1424 - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1425 - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1426 - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1427 - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1428 - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1429 - NB (6/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1430 - NB (6/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1431 - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1432 - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock 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 ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1433 - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1434 - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1435 - NB (6/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1436 - NB (6/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 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 ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1437 - NB (6/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1438 - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1439 - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1440 - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1441 - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1442 - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1443 - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1444 - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1445 - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1446 - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1447 - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1448 - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1449 - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1450 - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1451 - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1452 - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1453 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1454 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1455 - RS (60/60) - NB (12/12) - OS (60/60) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1456 - RS (60/60) - NB (12/12) - OS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1457 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1458 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1459 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1460 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1461 - RS (60/60) - NB (12/12) - OS (40/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1462 - RS (60/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1463 - RS (60/60) - NB (12/12) - OS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1464 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1465 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1466 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1467 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1468 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1469 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1470 - RS (60/60) - NB (12/12) - OS (20/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1471 - RS (60/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1472 - RS (60/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1473 - RS (60/60) - NB (12/12) - OS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1474 - RS (60/60) - NB (12/12) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1475 - RS (60/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1476 - RS (60/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1477 - RS (60/60) - NB (12/12) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 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 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1478 - RS (60/60) - NB (12/12) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1479 - RS (60/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1480 - RS (60/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1481 - RS (60/60) - NB (12/12) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage 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 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1482 - RS (60/60) - NB (12/12) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1483 - RS (60/60) - NB (12/12) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1484 - RS (60/60) - NB (12/12) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1485 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1486 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1487 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1488 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1489 - RS (60/60) - NB (6/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1490 - RS (60/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1491 - RS (60/60) - NB (6/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1492 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1493 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1494 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1495 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1496 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1497 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1498 - RS (60/60) - NB (6/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1499 - RS (60/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1500 - RS (60/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1501 - RS (60/60) - NB (6/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1502 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1503 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1504 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1505 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1506 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1507 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1508 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1509 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1510 - RS (60/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1511 - RS (60/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1512 - RS (60/60) - NB (6/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1513 - RS (60/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1514 - RS (60/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1515 - RS (60/60) - NB (6/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1516 - RS (60/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1517 - RS (60/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1518 - RS (60/60) - NB (6/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1519 - RS (60/60) - NB (6/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1520 - RS (60/60) - NB (6/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1521 - RS (60/60) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1522 - RS (60/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1523 - RS (60/60) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1524 - RS (60/60) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1525 - RS (60/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1526 - RS (60/60) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1527 - RS (60/60) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1528 - RS (60/60) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1529 - RS (60/60) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1530 - RS (60/60) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1531 - RS (60/60) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1532 - RS (60/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1533 - RS (60/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1534 - RS (60/60) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1535 - RS (60/60) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1536 - RS (60/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1537 - RS (60/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1538 - RS (60/60) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1539 - RS (60/60) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1540 - RS (60/60) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1541 - RS (60/60) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1542 - RS (60/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1543 - RS (60/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1544 - RS (60/60) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1545 - RS (60/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1546 - RS (60/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1547 - RS (60/60) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1548 - RS (60/60) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1549 - RS (60/60) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1550 - RS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1551 - RS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1552 - RS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1553 - RS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1554 - RS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1555 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1556 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1557 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1558 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1559 - RS (40/60) - NB (12/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1560 - RS (40/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1561 - RS (40/60) - NB (12/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1562 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1563 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1564 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1565 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1566 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1567 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1568 - RS (40/60) - NB (12/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1569 - RS (40/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1570 - RS (40/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1571 - RS (40/60) - NB (12/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1572 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1573 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1574 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1575 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 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 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1576 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1577 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1578 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1579 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage 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 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1580 - RS (40/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1581 - RS (40/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1582 - RS (40/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1583 - RS (40/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1584 - RS (40/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1585 - RS (40/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1586 - RS (40/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1587 - RS (40/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1588 - RS (40/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1589 - RS (40/60) - NB (12/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1590 - RS (40/60) - NB (12/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1591 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1592 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1593 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1594 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1595 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1596 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1597 - RS (40/60) - NB (6/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1598 - RS (40/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1599 - RS (40/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1600 - RS (40/60) - NB (6/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1601 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1602 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1603 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1604 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1605 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1606 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1607 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1608 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1609 - RS (40/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1610 - RS (40/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1611 - RS (40/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1612 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1613 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1614 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1615 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1616 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1617 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1618 - RS (40/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1619 - RS (40/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1620 - RS (40/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1621 - RS (40/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1622 - RS (40/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1623 - RS (40/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1624 - RS (40/60) - NB (6/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1625 - RS (40/60) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1626 - RS (40/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1627 - RS (40/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1628 - RS (40/60) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1629 - RS (40/60) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1630 - RS (40/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1631 - RS (40/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1632 - RS (40/60) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1633 - RS (40/60) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1634 - RS (40/60) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1635 - RS (40/60) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1636 - RS (40/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1637 - RS (40/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1638 - RS (40/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1639 - RS (40/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1640 - RS (40/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1641 - RS (40/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1642 - RS (40/60) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1643 - RS (40/60) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1644 - RS (40/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1645 - RS (40/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1646 - RS (40/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1647 - RS (40/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1648 - RS (40/60) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1649 - RS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1650 - RS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1651 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1652 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1653 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1654 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1655 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1656 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1657 - RS (20/60) - NB (12/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1658 - RS (20/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1659 - RS (20/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1660 - RS (20/60) - NB (12/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1661 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1662 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1663 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1664 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 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 +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1665 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1666 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1667 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1668 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage 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 +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1669 - RS (20/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1670 - RS (20/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1671 - RS (20/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1672 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1673 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1674 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1675 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1676 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1677 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1678 - RS (20/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1679 - RS (20/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1680 - RS (20/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 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 +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1681 - RS (20/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 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 +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1682 - RS (20/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1683 - RS (20/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1684 - RS (20/60) - NB (12/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1685 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1686 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1687 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1688 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1689 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1690 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1691 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1692 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1693 - RS (20/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1694 - RS (20/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1695 - RS (20/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1696 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1697 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1698 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1699 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1700 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1701 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1702 - RS (20/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1703 - RS (20/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1704 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1705 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1706 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1707 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1708 - RS (20/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1709 - RS (20/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1710 - RS (20/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1711 - RS (20/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1712 - RS (20/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1713 - RS (20/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1714 - RS (20/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1715 - RS (20/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1716 - RS (20/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1717 - RS (20/60) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1718 - RS (20/60) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1719 - RS (20/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1720 - RS (20/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1721 - RS (20/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1722 - RS (20/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1723 - RS (20/60) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1724 - RS (20/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1725 - RS (20/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1726 - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1727 - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1728 - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1729 - NB (12/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1730 - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1731 - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1732 - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1733 - NB (12/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1734 - NB (12/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1735 - NB (12/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1736 - NB (12/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1737 - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1738 - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1739 - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1740 - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1741 - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1742 - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1743 - NB (12/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1744 - NB (12/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1745 - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1746 - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1747 - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1748 - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1749 - NB (12/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1750 - NB (12/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 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 ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1751 - NB (12/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1752 - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1753 - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1754 - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1755 - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1756 - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1757 - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1758 - NB (6/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1759 - NB (6/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1760 - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1761 - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1762 - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1763 - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1764 - NB (6/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1765 - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 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 ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1766 - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1767 - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1768 - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1769 - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1770 - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1771 - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1772 - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1773 - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1774 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1775 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1776 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1777 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1778 - RS (60/60) - NB (12/12) - OS (60/60) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1779 - RS (60/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1780 - RS (60/60) - NB (12/12) - OS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1781 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1782 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1783 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1784 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1785 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1786 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1787 - RS (60/60) - NB (12/12) - OS (40/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1788 - RS (60/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1789 - RS (60/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1790 - RS (60/60) - NB (12/12) - OS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1791 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1792 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1793 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1794 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1795 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1796 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1797 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1798 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1799 - RS (60/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1800 - RS (60/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1801 - RS (60/60) - NB (12/12) - OS (20/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1802 - RS (60/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1803 - RS (60/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1804 - RS (60/60) - NB (12/12) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1805 - RS (60/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1806 - RS (60/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1807 - RS (60/60) - NB (12/12) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 BTTotalAverage SSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1808 - RS (60/60) - NB (12/12) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1809 - RS (60/60) - NB (12/12) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1810 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1811 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1812 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1813 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1814 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1815 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1816 - RS (60/60) - NB (6/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1817 - RS (60/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1818 - RS (60/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1819 - RS (60/60) - NB (6/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1820 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1821 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1822 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1823 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1824 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1825 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1826 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1827 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1828 - RS (60/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1829 - RS (60/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1830 - RS (60/60) - NB (6/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1831 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1832 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1833 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1834 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1835 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1836 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1837 - RS (60/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1838 - RS (60/60) - NB (6/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1839 - RS (60/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1840 - RS (60/60) - NB (6/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1841 - RS (60/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1842 - RS (60/60) - NB (6/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1843 - RS (60/60) - NB (6/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1844 - RS (60/60) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1845 - RS (60/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1846 - RS (60/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1847 - RS (60/60) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1848 - RS (60/60) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1849 - RS (60/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1850 - RS (60/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1851 - RS (60/60) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1852 - RS (60/60) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1853 - RS (60/60) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1854 - RS (60/60) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1855 - RS (60/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1856 - RS (60/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1857 - RS (60/60) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1858 - RS (60/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1859 - RS (60/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1860 - RS (60/60) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1861 - RS (60/60) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1862 - RS (60/60) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1863 - RS (60/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1864 - RS (60/60) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1865 - RS (60/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1866 - RS (60/60) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1867 - RS (60/60) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1868 - RS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1869 - RS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1870 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1871 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1872 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1873 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1874 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1875 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1876 - RS (40/60) - NB (12/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1877 - RS (40/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1878 - RS (40/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1879 - RS (40/60) - NB (12/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1880 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1881 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1882 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1883 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1884 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1885 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1886 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1887 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1888 - RS (40/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1889 - RS (40/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1890 - RS (40/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1891 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1892 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1893 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1894 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1895 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1896 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1897 - RS (40/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1898 - RS (40/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1899 - RS (40/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1900 - RS (40/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1901 - RS (40/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1902 - RS (40/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1903 - RS (40/60) - NB (12/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1904 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1905 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1906 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1907 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1908 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1909 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1910 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1911 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1912 - RS (40/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1913 - RS (40/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1914 - RS (40/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1915 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1916 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1917 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1918 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1919 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1920 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1921 - RS (40/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1922 - RS (40/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1923 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1924 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1925 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1926 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock 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 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1927 - RS (40/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1928 - RS (40/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1929 - RS (40/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1930 - RS (40/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1931 - RS (40/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1932 - RS (40/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1933 - RS (40/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1934 - RS (40/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1935 - RS (40/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1936 - RS (40/60) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1937 - RS (40/60) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1938 - RS (40/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1939 - RS (40/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1940 - RS (40/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1941 - RS (40/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1942 - RS (40/60) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1943 - RS (40/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1944 - RS (40/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1945 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1946 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1947 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1948 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1949 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1950 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1951 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1952 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1953 - RS (20/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1954 - RS (20/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1955 - RS (20/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1956 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1957 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1958 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1959 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1960 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1961 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1962 - RS (20/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1963 - RS (20/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1964 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1965 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1966 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1967 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1968 - RS (20/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1969 - RS (20/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1970 - RS (20/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1971 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1972 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1973 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1974 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1975 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1976 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1977 - RS (20/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1978 - RS (20/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1979 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1980 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1981 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1982 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1983 - RS (20/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1984 - RS (20/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1985 - RS (20/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 OSAverage1stblock 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 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1986 - RS (20/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1987 - RS (20/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1988 - RS (20/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1989 - RS (20/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1990 - RS (20/60) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1991 - RS (20/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1992 - RS (20/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1993 - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1994 - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1995 - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1996 - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1997 - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1998 - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.1999 - NB (12/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2000 - NB (12/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2001 - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2002 - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2003 - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2004 - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2005 - NB (12/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2006 - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2007 - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2008 - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2009 - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2010 - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2011 - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2012 - NB (6/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2013 - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2014 - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2015 - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2016 - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8 WMUAverage9_12')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2017 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2018 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock WMUAverage1_4')
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 +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2019 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - 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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2020 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2021 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2022 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2023 - RS (60/60) - NB (12/12) - OS (60/60) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2024 - RS (60/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2025 - RS (60/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2026 - RS (60/60) - NB (12/12) - OS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2027 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2028 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2029 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2030 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2031 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2032 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2033 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2034 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2035 - RS (60/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2036 - RS (60/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock SSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2037 - RS (60/60) - NB (12/12) - OS (40/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2038 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2039 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2040 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2041 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2042 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2043 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2044 - RS (60/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2045 - RS (60/60) - NB (12/12) - OS (20/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2046 - RS (60/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2047 - RS (60/60) - NB (12/12) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2048 - RS (60/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2049 - RS (60/60) - NB (12/12) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2050 - RS (60/60) - NB (12/12) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2051 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2052 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/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')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2053 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2054 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2055 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2056 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2057 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2058 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2059 - RS (60/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2060 - RS (60/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2061 - RS (60/60) - NB (6/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2062 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2063 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2064 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2065 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2066 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2067 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2068 - RS (60/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2069 - RS (60/60) - NB (6/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2070 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2071 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2072 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2073 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2074 - RS (60/60) - NB (6/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2075 - RS (60/60) - NB (6/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2076 - RS (60/60) - NB (6/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2077 - RS (60/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2078 - RS (60/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2079 - RS (60/60) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2080 - RS (60/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2081 - RS (60/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2082 - RS (60/60) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2083 - RS (60/60) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2084 - RS (60/60) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2085 - RS (60/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2086 - RS (60/60) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2087 - RS (60/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2088 - RS (60/60) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2089 - RS (60/60) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2090 - RS (60/60) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2091 - RS (60/60) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2092 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2093 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2094 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2095 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2096 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2097 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2098 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2099 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2100 - RS (40/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2101 - RS (40/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2102 - RS (40/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2103 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2104 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2105 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2106 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2107 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2108 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2109 - RS (40/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2110 - RS (40/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2111 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2112 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2113 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2114 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2115 - RS (40/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2116 - RS (40/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2117 - RS (40/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2118 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2119 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2120 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2121 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2122 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2123 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2124 - RS (40/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2125 - RS (40/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2126 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2127 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2128 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2129 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2130 - RS (40/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2131 - RS (40/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2132 - RS (40/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 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 +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2133 - RS (40/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2134 - RS (40/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2135 - RS (40/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2136 - RS (40/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2137 - RS (40/60) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2138 - RS (40/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2139 - RS (40/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2140 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2141 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTAverage_1_5_and_9_13 SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2142 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2143 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2144 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2145 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2146 - RS (20/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4 WMUAverage5_8')
IndexRowModel <- IndexRowModel$Number
Model <- Permutation_Function(Normalized_Factor_scores_WMC_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2147 - RS (20/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2148 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2149 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2150 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2151 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2152 - RS (20/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2153 - RS (20/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2154 - RS (20/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2155 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2156 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2157 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2158 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2159 - RS (20/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2160 - RS (20/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2161 - RS (20/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2162 - RS (20/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2163 - RS (20/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2164 - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2165 - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2166 - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2167 - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2168 - NB (12/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2169 - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2170 - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2171 - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2172 - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2173 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60)
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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2174 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2175 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2176 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - 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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2177 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2178 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2179 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2180 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2181 - RS (60/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2182 - RS (60/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock SSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2183 - RS (60/60) - NB (12/12) - OS (60/60) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2184 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2185 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2186 - RS (60/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2187 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2188 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock SSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2189 - RS (60/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2190 - RS (60/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2191 - RS (60/60) - NB (12/12) - OS (40/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2192 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2193 - RS (60/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2194 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2195 - RS (60/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2196 - RS (60/60) - NB (12/12) - OS (20/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2197 - RS (60/60) - NB (12/12) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  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 +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2198 - RS (60/60) - NB (12/12) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 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 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2199 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2200 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2201 - RS (60/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2202 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2203 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2204 - RS (60/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2205 - RS (60/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2206 - RS (60/60) - NB (6/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2207 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2208 - RS (60/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2209 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2210 - RS (60/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2211 - RS (60/60) - NB (6/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2212 - RS (60/60) - NB (6/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  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 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2213 - RS (60/60) - NB (6/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 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 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2214 - RS (60/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2215 - RS (60/60) - OS (60/60) - BT (10/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2216 - RS (60/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2217 - RS (60/60) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2218 - RS (60/60) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2219 - RS (60/60) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2220 - RS (60/60) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2221 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2222 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2223 - RS (40/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2224 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2225 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2226 - RS (40/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2227 - RS (40/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2228 - RS (40/60) - NB (12/12) - OS (60/60) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2229 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2230 - RS (40/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2231 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2232 - RS (40/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2233 - RS (40/60) - NB (12/12) - OS (40/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2234 - RS (40/60) - NB (12/12) - OS (20/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2235 - RS (40/60) - NB (12/12) - OS (20/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2236 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2237 - RS (40/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2238 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2239 - RS (40/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2240 - RS (40/60) - NB (6/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2241 - RS (40/60) - NB (6/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2242 - RS (40/60) - NB (6/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2243 - RS (40/60) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2244 - RS (40/60) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock 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 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2245 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (8/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2246 - RS (20/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2247 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2248 - RS (20/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2249 - RS (20/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2250 - RS (20/60) - NB (12/12) - OS (40/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2251 - RS (20/60) - NB (12/12) - OS (40/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2252 - RS (20/60) - NB (6/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2253 - RS (20/60) - NB (6/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock 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 +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  NBAverage1_6 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2254 - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ 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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTAverage_1_5_and_9_13 +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2255 - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == '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 ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2256 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (60/60) - WMU (4/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')
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,
                              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,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2257 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (40/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2258 - RS (60/60) - NB (12/12) - OS (60/60) - BT (10/16) - SS (20/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 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 +  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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2259 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (60/60) - WMU (4/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock SSAverage3rdblock WMUAverage1_4')
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,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  SSAverage3rdblock +  WMUAverage1_4,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2260 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (40/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock SSAverage2ndblock 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 +  WMUAverage1_4 +  WMUAverage5_8,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  SSAverage2ndblock +  WMUAverage1_4 +  WMUAverage5_8,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2261 - RS (60/60) - NB (12/12) - OS (60/60) - BT (16/16) - SS (20/60) - WMU (12/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock BTTotalAverage SSAverage1stblock 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 +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              Normalized_Factor_scores_Gf_regression ~ RS_Average1stblock +  RSAverage2ndblock +  RSAverage3rdblock +  NBAverage1_6 +  NBAverage7_12 +  OSAverage1stblock +  OSAverage2ndblock +  OSAverage3rdblock +  BTTotalAverage +  SSAverage1stblock +  WMUAverage1_4 +  WMUAverage5_8 +  WMUAverage9_12,
                              DB_imputed_WMTasksbyBlocks,
                              IndexRowModel)

#########################################################################################
##10.2262 - RS (60/60) - NB (12/12) - OS (60/60) - SS (60/60) - WMU (8/12)
IndexRowModel <- BD_Combinations %>% filter(Models == 'RS_Average1stblock RSAverage2ndblock RSAverage3rdblock NBAverage1_6 NBAverage7_12 OSAverage1stblock OSAverage2ndblock OSAverage3rdblock 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 +  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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_WMTasksbyBlocks,
                              IndexRowModel)

##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 - Comparing homogenous and heterogenous models

####################################################################################
#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

## Levene's Test for Homogeneity of Variance (center = median)
##        Df F value    Pr(>F)    
## group   1  35.436 1.025e-08 ***
##       221                      
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

shapiroHeterModelsGf

## 
##  Shapiro-Wilk normality test
## 
## data:  HeterModelsGf$Gf_Variance_Predicted
## W = 0.89798, p-value = 3.402e-09

shapiroHomoModelsGf

## 
##  Shapiro-Wilk normality test
## 
## data:  HomoModelsGf$Gf_Variance_Predicted
## W = 0.91688, p-value = 0.0005756

##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

## [1] 32.61

AverageHomoGf

## [1] 24.76

SDHeteroGf  <- round(sd(unlist(HeterModelsGf)),2)
SDHomoGf <- round(sd(unlist(HomoModelsGf)),2)
SDHeteroGf

## [1] 7.7

SDHomoGf

## [1] 4.57

##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

## # A tibble: 1 × 7
##   .y.                   group1       group2        n1    n2 statistic        p
## * <chr>                 <chr>        <chr>      <int> <int>     <dbl>    <dbl>
## 1 Gf_Variance_Predicted Heterogenous Homogenous   163    60      7736 2.74e-11

EffectSizewilcoxtestHeteroHomoGf

## # A tibble: 1 × 7
##   .y.                   group1       group2     effsize    n1    n2 magnitude
## * <chr>                 <chr>        <chr>        <dbl> <int> <int> <ord>    
## 1 Gf_Variance_Predicted Heterogenous Homogenous   0.446   163    60 moderate

cohen_d_wilcoxtestHeteroHomoGf

## Effect size (r) 
##       0.9967545

#PermutationAnalysisFInalBD
#WMOLSModels
#WMWLSModels
#WMGLSModels
#GfOLSModels
#GfWLSModels
#GfGLSModels
#DurbinWatsonPermutationAnalysis
#VIFValues
#BDCompareHeteroHomoModels

11. Shiny Application

This script was used to build the Shiny web application containing the results of the permutation analysis. The application is publicly available at https://shortwmtasks.shinyapps.io/Results_Permutation_Analysis/.

# #Load required libraries
# library(shiny)
# library(DT)
# library(readxl)
# library(dplyr)
# library(writexl)
# 

# PermutationAnalysisFInalBD <- PermutationAnalysisFInalBD %>%
#   mutate(Models = trimws(Models))
# 
# ui <- fluidPage(
#   tags$head(
#     tags$style(HTML("
#       html, body {
#         height: 100%;
#         margin: 0;
#         padding: 0;
#       }
#       #app-container {
#         height: 100vh; /* Use the full height of the viewport */
#         display: flex;
#         flex-direction: column;
#       }
#       .content-container {
#         flex-grow: 1; /* Allow the content to grow and fill space */
#         overflow-y: auto; /* Enable vertical scrolling if needed */
#       }
#       .title-container {
#         display: flex;
#         justify-content: space-between;
#         align-items: center;
#         padding: 10px 20px;
#         border-bottom: 1px solid #ccc;
#       }
#       .app-title {
#         font-size: 24px;
#         font-weight: bold;
#         margin: 0;
#       }
#     "))
#   ),
#   
#   div(
#     id = "app-container",
#     
#     div(
#       class = "title-container",
#       div(class = "app-title", "Original Results Permutation Analysis"),
#       downloadButton("download_results", "Download Results")
#     ),
#     
#     sidebarLayout(
#       sidebarPanel(
#         h4("Filter Criteria"),
#         numericInput("max_minutes", 
#                      "Enter Maximum Time (Minutes):", 
#                      value = NA,
#                      min = 1, 
#                      step = 1),
#         numericInput("min_wm_variance", 
#                      "Minimum Proportion of WMC Variance Predicted (%):", 
#                      value = NA,
#                      min = 0, 
#                      max = 100, 
#                      step = 1),
#         numericInput("min_gf_proportion", 
#                      "Minimum Proportion of Gf Variance Predicted (%):", 
#                      value = NA,
#                      min = 0, 
#                      max = 100, 
#                      step = 1),
#         selectInput("filter_models",
#                     "Target WM Dimensions:",
#                     choices = c(
#                       "All" = "ALL",
#                       "Simultaneous Storage and Processing & Updating Capacity" = "exclude_BT",
#                       "Simultaneous Storage and Processing & Binding Ability" = "exclude_NB_WMU",
#                       "Updating Capacity & Binding Ability" = "exclude_RS_OS_SS",
#                       "Simultaneous Storage and Processing" = "exclude_NB_WMU_BT",
#                       "Updating Capacity" = "exclude_RS_OS_SS_BT",
#                       "Binding Ability" = "exclude_RS_OS_SS_WMU_NB"
#                     ),
#                     selected = "ALL"),
#         actionButton("apply_filters", "Apply Filters"),
#         hr(),
#         h4("Search Model by Task"),
#         textInput("include_terms", 
#                   HTML("Inclusion terms separated by ';'<br>
#                        (e.g., OS; NB; BT):"), 
#                   ""),
#         textInput("exclude_terms", 
#                   HTML("Exclusion terms separated by ';'<br>
#                        (e.g., OS; NB; BT):"), 
#                   ""),
#         actionButton("search", "Apply Search"),
#         width = 3
#       ),
#       
#       mainPanel(
#         div(
#           class = "content-container",
#           DTOutput("model_table")
#         ),
#         width = 9
#       )
#     )
#   )
# )
# 
# server <- function(input, output, session) {
#   
#   filtered_model_data <- reactive({
#     data <- PermutationAnalysisFInalBD
#     
#     
#     if (!is.na(input$max_minutes)) {
#       data <- data %>%
#         filter(`Minutes for 95% of Ss to complete` <= input$max_minutes)
#     }
#     if (!is.na(input$min_wm_variance)) {
#       data <- data %>%
#         filter(WM_Variance_Predicted >= input$min_wm_variance)
#     }
#     if (!is.na(input$min_gf_proportion)) {
#       data <- data %>%
#         filter(`Proportion_of_Gf_Variance_Predicted` >= input$min_gf_proportion)
#     }
#     
#     if (input$filter_models != "ALL") {
#       exclude_terms <- switch(input$filter_models,
#                               "exclude_BT" = c("BT"),
#                               "exclude_NB_WMU" = c("NB", "WMU"),
#                               "exclude_RS_OS_SS" = c("RS", "OS", "SS"),
#                               "exclude_NB_WMU_BT" = c("NB", "WMU", "BT"),
#                               "exclude_RS_OS_SS_BT" = c("RS", "OS", "SS", "BT"),
#                               "exclude_RS_OS_SS_WMU_NB" = c("RS", "OS", "SS", "WMU", "NB")
#       )
#       data <- data %>%
#         filter(!sapply(Models, function(model) {
#           model_components <- unlist(strsplit(model, "[^a-zA-Z]+"))
#           any(exclude_terms %in% model_components)
#         }))
#     }
#     
#     if (input$include_terms != "") {
#       include_terms <- strsplit(input$include_terms, ";")[[1]] %>% 
#         trimws() %>% 
#         tolower()
#       
#       data <- data %>%
#         filter(sapply(include_terms, function(term) {
#           grepl(term, tolower(Models), fixed = TRUE)
#         }) %>% rowSums() > 0)
#     }
#     
#     if (input$exclude_terms != "") {
#       exclude_terms <- strsplit(input$exclude_terms, ";")[[1]] %>% 
#         trimws() %>% 
#         tolower()
#       
#       data <- data %>%
#         filter(!sapply(exclude_terms, function(term) {
#           grepl(term, tolower(Models), fixed = TRUE)
#         }) %>% rowSums() > 0)
#     }
#     
#     data
#   })
#   
#   output$model_table <- renderDT({
#     datatable(
#       filtered_model_data(),
#       options = list(
#         pageLength = -1,
#         scrollY = "calc(100vh - 150px)",
#         scrollX = TRUE,
#         scrollCollapse = TRUE,
#         autoWidth = TRUE,
#         searching = FALSE
#       ),
#       rownames = FALSE
#     )
#   })
#   
#   output$download_results <- downloadHandler(
#     filename = function() {
#       "Permutation_Analyses_Search.xlsx"
#     },
#     content = function(file) {
#       write_xlsx(filtered_model_data(), file)
#     }
#   )
# }
# 
# shinyApp(ui = ui, server = server)

12. Discussion

The primary aim of this study was to examine whether WM tasks from the complex span (reading, operation, and symmetry spans), updating (n-back and working memory updating), and binding (binding and maintenance) paradigms could be effectively shortened while maintaining robust psychometric properties.

Our analyses showed that the shortened WM tasks demonstrated good internal consistency, with all Cronbach’s α values meeting or exceeding the conventional threshold of 0.70. Moreover, the shortened tasks explained the vast majority of the variance in the WM factor scores derived from the full-length WM tasks (R² = 0.90). There was also no significant difference between the shortened and full-length versions in their ability to predict Gf. Importantly, the shortened versions reduced total administration time by approximately 35%, requiring only 56 minutes compared to 86.7 minutes for the full-length tasks.

A key finding of this study is that updating and binding tasks can be substantially reduced without compromising their psychometric integrity — an aspect that, to our knowledge, has not been evaluated before. Previous research with similar goals has primarily focused on complex span tasks (e.g., Felez-Nobrega et al., 2018; Foster et al., 2015; Gonthier et al., 2016; Oswald et al., 2015). Complex spans are highly reliable and valid measures of WM, and many studies have used single (Al-Rashidi et al., 2023; Unsworth & Engle, 2005) or multiple variants (Burgoyne et al., 2023; Engle et al., 1999; Kane et al., 2004) of this paradigm to estimate WMC. However, relying on a single task or paradigm may conflate true individual differences in WM with task- or paradigm-specific variance. Administering multiple tasks from different paradigms can help disentangle these sources of variance, providing more accurate WM estimates. Yet, this approach is time-consuming, as participants must adapt to multiple instruction sets and task structures. By developing shortened versions of WM tasks from multiple paradigms, our study offers a time-efficient way to obtain robust WM estimates that minimize task- and paradigm-specific variance.

To further support researchers, we conducted a permutation analysis that assessed the predictive performance of every possible combination of short and full-length tasks. The results are available in an interactive web application (https://shortwmtasks.shinyapps.io/Results_Permutation_Analysis/), which provides detailed guidance for selecting the most suitable task combinations. This tool allows users to customize their selection based on available testing time, desired levels of explained Gf and WMC variance, targeted WM components, and the inclusion or exclusion of specific tasks.

Overall, the information presented in this application offers valuable insights for researchers, highlighting efficient strategies to obtain robust WM estimates while substantially reducing testing time.

Psychometric validation of the shortened version of the OpenWMB

Fábio Monteiro

2025-11-01

0. Libraries used to compute the analyses

1. Measure-shortening procedures and internal consistency analysis

2. Importing raw data from excel workbooks

3. Replacement of missing values via multiple imputation

4. Assessment and removal of multivariate outliers

5. Computation of factor scores

6. Assumption testing

6.1. Assessment of the assumption of linearity

6.2. Assessment of the independence of errors

6.3. Assessment of multicolinearity

6.4. Assessment of homoscedasticity

6.5. Assessment of normality of the residuals