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
73
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/variableKey.R
\name{safeInteger}
\alias{safeInteger}
\title{If a numeric variable has only integer values, then
make it an integer.}
\usage{
safeInteger(
x,
tol = .Machine$double.eps,
digits = 7,
vmax = .Machine$integer.max,
verbose = FALSE
)
}
\arguments{
\item{x}{a numeric variable}
\item{tol}{Tolerance value. Defaults to Machine$double.eps. See
details.}
\item{digits}{Digits value passed to the zapsmall
function. Defaults to 7.}
\item{vmax}{Maximum value allowed for an integer. Defaults to
Machine$integer.max.}
\item{verbose}{Default FALSE: print warnings about x}
}
\value{
Either an integer vector or the original variable
}
\description{
Users often accidentally create floating point numeric variables
when they really mean integers, such as c(1, 2, 3), when they
should have done c(1L, 2L, 3L). Before running \code{as.integer()}
to coerce the variable, we'd rather be polite and ask the variable
"do you mind being treated as if you are an integer?" This
function checks to see if the variable is "close enough" to being
an integer, and then coerces as integer. Otherwise, it returns
NULL. And issues a warning.
}
\details{
First, calculate absolute value of differences between \code{x}
and \code{as.integer(x)}. Second, find out if the sum of those
differences is smaller than \code{tol}. If so, then x can
reasonably be coerced to an integer.
Be careful with the return. The correct return value for variables
that should not be coerced as integer is uncertain at this
point. We've tested various strategies, sometimes returning FALSE,
NULL, or just the original variable.
}
\examples{
x1 <- c(1, 2, 3, 4, 5, 6)
is.integer(x1)
is.double(x1)
is.numeric(x1)
(x1int <- safeInteger(x1))
is.integer(x1int)
is.double(x1int)
is.numeric(x1int)
x2 <- rnorm(100)
x2int <- safeInteger(x2)
head(x2int)
x3 <- factor(x1, labels = c(LETTERS[1:6]))
x3int <- safeInteger(x3)
}
\author{
Paul Johnson <pauljohn@ku.edu> and Ben Kite
<bakite@ku.edu>
}
|
