Contextual imputation correction
parent
d6adda30cf
commit
9b3447febd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue