Fix bug of clean_features_for_model

pull/95/head
Meng Li 2020-05-15 17:53:43 -04:00
parent 915bdd04b1
commit 78cd8159be
1 changed files with 5 additions and 5 deletions

View File

@ -25,11 +25,11 @@ filter_participant_without_enough_days <- function(clean_features, days_before_t
}
clean_features <- read.csv(snakemake@input[[1]])
cols_nan_threshold <- snakemake@params[["cols_nan_threshold"]]
drop_zero_variance_columns <- snakemake@params[["cols_var_threshold"]]
rows_nan_threshold <- snakemake@params[["rows_nan_threshold"]]
days_before_threshold <- snakemake@params[["days_before_threshold"]]
days_after_threshold <- snakemake@params[["days_after_threshold"]]
cols_nan_threshold <- as.numeric(snakemake@params[["cols_nan_threshold"]])
drop_zero_variance_columns <- as.logical(snakemake@params[["cols_var_threshold"]])
rows_nan_threshold <- as.numeric(snakemake@params[["rows_nan_threshold"]])
days_before_threshold <- as.numeric(snakemake@params[["days_before_threshold"]])
days_after_threshold <- as.numeric(snakemake@params[["days_after_threshold"]])
# We have to do this before and after dropping rows, that's why is duplicated