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]]) clean_features <- read.csv(snakemake@input[[1]])
cols_nan_threshold <- snakemake@params[["cols_nan_threshold"]] cols_nan_threshold <- as.numeric(snakemake@params[["cols_nan_threshold"]])
drop_zero_variance_columns <- snakemake@params[["cols_var_threshold"]] drop_zero_variance_columns <- as.logical(snakemake@params[["cols_var_threshold"]])
rows_nan_threshold <- snakemake@params[["rows_nan_threshold"]] rows_nan_threshold <- as.numeric(snakemake@params[["rows_nan_threshold"]])
days_before_threshold <- snakemake@params[["days_before_threshold"]] days_before_threshold <- as.numeric(snakemake@params[["days_before_threshold"]])
days_after_threshold <- snakemake@params[["days_after_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 # We have to do this before and after dropping rows, that's why is duplicated