R: Check if transformation/coercing of a vector is good enaough

exceed_threshold {rccmisc} | R Documentation

## Check if transformation/coercing of a vector is good enaough

### Description

This function is primarly aimed to check if the transformation of a vector was succesfull enough to return the transformed value instead of the original.

### Usage

    exceed_threshold(original, transformed, threshold = 0.9, force = FALSE,
      ask = FALSE, var_name = "the input vector")

### Arguments

`original` | the original vector
`transformed` | the transformed vector with NA-values for non transformed values
`threshold` | is a numeric value in [0,1] specifying the proportion of cells in `transformed` that should be recognised as correctly coerced to accept the new class. This does not effect the function output (except when `force = TRUE`) but will have some diagnostic benefits.
`force` | Should a candidate vector (candidate according to `threshold`) be forced to its suggested class (with non-coercable elements set to NA). `FALSE` by default but if the function is called interactivelly, the user will also have the option to set force = TRUE on the fly.
`ask` | this argument gives you the chance to interactively inspect your data and specify if a column is a date or not, on the fly. This is `FALSE` by default for `as.Dates.default` but `TRUE` for `as.Dates.dataframe`. It only applies when the function is runed interactively and only when `force == FALSE`.
`var_name` | a name for the object to be used in messages (you could probably just leave this as default, NULL; it is mostly used for internal purposes!).

### Value

Either `original` or `transformed`.

### Examples

    x <- c(rep("2012-01-01", 9), "foo")
    exceed_threshold(x, as.Date(x))
    exceed_threshold(x, as.Date(x), force = TRUE)
    exceed_threshold(x, as.Date(x), ask = TRUE)
    exceed_threshold(x, as.Date(x), threshold = 1)
    exceed_threshold(x, as.Date(x), var_name = "bar", force = TRUE)

    x <- c(1:9, "baz")
    exceed_threshold(x, suppressWarnings(as.numeric(x)))

[Package rccmisc version 0.3.7 Index]