...
|
...
|
@@ -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,
|