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) messages_features <- merge(messages_features, features, all=TRUE)
} }
# Fill seleted columns with a high number # 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(.) colnames(.)
call_features <- call_features %>% messages_features <- messages_features %>%
mutate_at(., time_cols, ~replace(., is.na(.), 1000000)) mutate_at(., time_cols, ~replace(., is.na(.), 1000000))
# Fill NA values with 0 # Fill NA values with 0