diff --git a/src/randomForest.R b/src/randomForest.R index f984453d43046ce807e0ba5f724f1d060d05df0a..526b60215b02cfa64de9525d9bf83bfe133b98fb 100644 --- a/src/randomForest.R +++ b/src/randomForest.R @@ -325,7 +325,7 @@ table <- as_tibble(read.csv(db)) #table <-table %>% filter(!is.infinite(!!sym(x1))) #table <- table %>% filter(!is.na(!!sym(x1))) - +colnames(table) table$deltaTDD_Lympho <- table$Abs.TDD..Lympho_Activated.Trip_CHX.Ref_Trip_0h.3h - table$Abs.TDD..Lympho_Resting.Trip_CHX.Ref_Trip_0h.3h table$deltaNonTDD_Lympho <- table$Abs.NonTDD..Lympho_Activated.Trip_CHX.Ref_Trip_0h.3h - table$Abs.NonTDD..Lympho_Resting.Trip_CHX.Ref_Trip_0h.3h @@ -334,8 +334,8 @@ table$deltaRiboDens_Macro <- table$RiboDens.Macro_Activated - table$RiboDens.Mac table$deltaUTRlength_Lympho <- table$Exp_UTR3_Lympho_Activated_Mean - table$Exp_UTR3_Lympho_Resting_Mean table$deltaUTRlength_Macro <- table$Exp_UTR3_Macro_Activated_Mean - table$Exp_UTR3_Macro_Resting_Mean -table$delta_TDD_new_Lympho <- table$Lympho_Activated.Abs_TDD_mean.3 - table$Lympho_Resting.Abs_TDD_mean.3 -table$delta_TID_new_Lympho <- table$Lympho_Activated.Abs_TID_mean.3 - table$Lympho_Resting.Abs_TID_mean.3 +# table$delta_TDD_new_Lympho <- table$Lympho_Activated.Abs_TDD_mean.3 - table$Lympho_Resting.Abs_TDD_mean.3 +# table$delta_TID_new_Lympho <- table$Lympho_Activated.Abs_TID_mean.3 - table$Lympho_Resting.Abs_TID_mean.3