Description Usage Arguments Value Examples
View source: R/resolve_data_with_error.R
This function is used to produce error result.
1 2 3 | resolve_data_with_error(data_with_error, initial_res_status_data,
error_message = "", include_error_columns = FALSE,
window_size = 487)
|
data_with_error |
The personal crossing data for RBC process with error. |
initial_res_status_data |
the initial residence status data. |
error_message |
The error message. |
include_error_columns |
Optional, if it is TRUE, the returned
result of |
window_size |
The maximum length of the scanning period.
Can be an integer giving the number of days, the result
of a call to function |
A dataframe type of object contains journeys with error.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | ## to suppresse log messages to the console
migrbc::initialize_logger(log_level = 1)
j1 <- c(journeyId = 1,
personId = 1,
is_arrival = 1,
date_crossing = '2017-01-01',
journey_sequence = 1,
journeyId_prev = NA)
j2 <- c(journeyId = 2,
personId = 1,
is_arrival = 1,
date_crossing = '2018-01-06',
journey_sequence = 2,
journeyId_prev = 1)
j3 <- c(journeyId = 3,
personId = 1,
is_arrival = 1,
date_crossing = '2018-01-16',
journey_sequence = 3,
journeyId_prev = 2)
j4 <- c(journeyId = 4,
personId = 2,
is_arrival = 0,
date_crossing = '2017-01-01',
journey_sequence = 1,
journeyId_prev = NA)
j5 <- c(journeyId = 5,
personId = 2,
is_arrival = 0,
date_crossing = '2018-01-06',
journey_sequence = 2,
journeyId_prev = 4)
j6 <- c(journeyId = 6,
personId = 2,
is_arrival = 0,
date_crossing = '2018-01-16',
journey_sequence = 3,
journeyId_prev = 5)
person_data <- as.data.frame(rbind(j1, j2, j3, j4, j5, j6),
stringsAsFactors = FALSE)
i1 <- c(personId = 1,
res_status_initial = 1,
date_finalised = '2017-01-01')
ini_data <- as.data.frame(t(i1), stringsAsFactors = FALSE)
person_data$journeyId <- as.numeric(person_data$journeyId)
person_data$personId <- as.numeric(person_data$personId)
person_data$is_arrival <- as.numeric(person_data$is_arrival)
person_data$journey_sequence <-
as.numeric(person_data$journey_sequence)
person_data$journeyId_prev <-
as.numeric(person_data$journeyId_prev)
ini_data$personId <- as.numeric(ini_data$personId)
ini_data$res_status_initial <-
as.numeric(ini_data$res_status_initial)
ini_data$date_finalised <-
as.character(ini_data$date_finalised)
res <- migrbc::resolve_data_with_error(person_data,
initial_res_status_data = ini_data,
error_message = 'custom error',
include_error_columns = TRUE)
head(res)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.