Browse code

Update crossValidate.R

Ellis Patrick authored on 05/09/2022 03:26:43 • GitHub committed on 05/09/2022 03:26:43
Showing 1 changed files

... ...
@@ -426,12 +426,9 @@ setMethod("crossValidate", "list",
426 426
               }, df_list, names(df_list))
427 427
               
428 428
               
429
-              # combined_df <- do.call("cbind", df_list) was adding the list names to the colnames
429
+              combined_df <- do.call("cbind", df_list) 
430
+              colnames(combined_df) <- mcols(combined_df)$feature
430 431
 
431
-                combined_df <- df_list[[1]]
432
-                for(i in names(df_list)[-1]){
433
-                    combined_df <- S4Vectors::combineRows(combined_df, df_list[[i]], use.names=FALSE)
434
-                }
435 432
 
436 433
               
437 434
               crossValidate(measurements = combined_df,