Create consistent mcs_mileage_data
based on an existing data.frame
(preferred)
or on multiple equal length vectors
mcs_mileage_data(
data = NULL,
mileage,
time,
status = NULL,
id = NULL,
.keep_all = FALSE
)
Either NULL
or a data.frame
. If data is NULL
, mileage
, time
,
status
and id
must be vectors containing the data. Otherwise mileage
, time
,
status
and id
can be either column names or column positions.
Covered distances. Use NA
for missing elements.
Operating times. Use NA
for missing elements.
Optional argument. If used, it must contain binary data (0 or 1) indicating whether a unit is a right censored observation (= 0) or a failure (= 1).
If status
is provided, class wt_reliability_data
is assigned to the
output of mcs_mileage, which enables the direct application of estimate_cdf
on distances.
Identification of every unit.
If TRUE
keep remaining variables in data
.
A tibble
with class wt_mcs_mileage_data
that is formed for the downstream
Monte Carlo method mcs_mileage.
It contains the following columns (if .keep_all = FALSE
):
mileage
: Input mileages.
time
: Input operating times.
status
(optional) :
If is.null(status)
column status
does not exist.
If status
is provided the column contains the entered binary
data (0 or 1).
id
: Identification for every unit.
If .keep_all = TRUE
, the remaining columns of data
are also preserved.
The attribute mcs_characteristic
is set to "mileage"
.
dist_mileage for the determination of a parametric annual mileage distribution and mcs_mileage for the Monte Carlo method with respect to unknown distances.
# Example 1 - Based on an existing data.frame/tibble and column names:
mcs_tbl <- mcs_mileage_data(
data = field_data,
mileage = mileage,
time = dis,
status = status
)
# Example 2 - Based on an existing data.frame/tibble and column positions:
mcs_tbl_2 <- mcs_mileage_data(
data = field_data,
mileage = 3,
time = 2,
id = 1
)
# Example 3 - Keep all variables of the tibble/data.frame entered to argument data:
mcs_tbl_3 <- mcs_mileage_data(
data = field_data,
mileage = mileage,
time = dis,
status = status,
id = vin,
.keep_all = TRUE
)
# Example 4 - Based on vectors:
mcs_tbl_4 <- mcs_mileage_data(
mileage = field_data$mileage,
time = field_data$dis,
status = field_data$status,
id = field_data$vin
)