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)
|
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
|
||||||
|
|
Loading…
Reference in New Issue