Contextual imputation correction

notes
Primoz 2022-09-28 12:40:05 +00:00
parent d6adda30cf
commit 9b3447febd
1 changed files with 2 additions and 2 deletions

View File

@ -66,10 +66,10 @@ rapids_features <- function(sensor_data_files, time_segment, provider){
messages_features <- merge(messages_features, features, all=TRUE)
}
# Fill seleted columns with a high number
time_cols <- select(call_features, contains("timefirstmessages") | contains("timelastmessages")) %>%
time_cols <- select(messages_features, contains("timefirstmessages") | contains("timelastmessages")) %>%
colnames(.)
call_features <- call_features %>%
messages_features <- messages_features %>%
mutate_at(., time_cols, ~replace(., is.na(.), 1000000))
# Fill NA values with 0