mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-27 15:21:55 +01:00
49 lines
974 B
R
49 lines
974 B
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/as_factor.R
|
|
\name{fct2num}
|
|
\alias{fct2num}
|
|
\title{Allows conversion of factor to numeric values preserving original levels}
|
|
\usage{
|
|
fct2num(data)
|
|
}
|
|
\arguments{
|
|
\item{data}{vector}
|
|
}
|
|
\value{
|
|
numeric vector
|
|
}
|
|
\description{
|
|
Allows conversion of factor to numeric values preserving original levels
|
|
}
|
|
\examples{
|
|
c(1, 4, 3, "A", 7, 8, 1) |>
|
|
as_factor() |>
|
|
fct2num()
|
|
|
|
structure(c(1, 2, 3, 2, 10, 9),
|
|
labels = c(Unknown = 9, Refused = 10),
|
|
class = "haven_labelled"
|
|
) |>
|
|
as_factor() |>
|
|
fct2num()
|
|
|
|
structure(c(1, 2, 3, 2, 10, 9),
|
|
labels = c(Unknown = 9, Refused = 10),
|
|
class = "labelled"
|
|
) |>
|
|
as_factor() |>
|
|
fct2num()
|
|
|
|
# Outlier with labels, but no class of origin, handled like numeric vector
|
|
# structure(c(1, 2, 3, 2, 10, 9),
|
|
# labels = c(Unknown = 9, Refused = 10)
|
|
# ) |>
|
|
# as_factor() |>
|
|
# fct2num()
|
|
|
|
v <- sample(6:19,20,TRUE) |> factor()
|
|
dput(v)
|
|
named_levels(v)
|
|
fct2num(v)
|
|
}
|