# NOT RUN {
data(traj)
trajectry <- data_imputation(traj, id_field=TRUE, method = 1,
replace_with = 1, verbose=FALSE)
trajectry <- props(trajectry$CompleteData, id_field=TRUE)
outp <- outlier_detect(trajectry, id_field = TRUE, method = 1,
threshold = 0.95, count = 1, replace_with = 1, verbose=TRUE)
outp <- outlier_detect(trajectry, id_field = TRUE, method = 2, threshold = 15,
count = 4, replace_with = 3, verbose=TRUE)
# }
Run the code above in your browser using DataLab