Coercion from bit, bitwhich, which and ri to logical, integer, double
Coercion from bit is quite fast because we use a double loop that fixes each word in a processor register.
## S3 method for class 'bit' as.logical(x, ...) ## S3 method for class 'bit' as.integer(x, ...) ## S3 method for class 'bit' as.double(x, ...) ## S3 method for class 'bitwhich' as.integer(x, ...) ## S3 method for class 'bitwhich' as.double(x, ...) ## S3 method for class 'bitwhich' as.logical(x, ...) ## S3 method for class 'ri' as.logical(x, ...) ## S3 method for class 'ri' as.integer(x, ...) ## S3 method for class 'ri' as.double(x, ...) ## S3 method for class 'which' as.logical(x, length = attr(x, "maxindex"), ...)
as.logical
returns a vector of FALSE, TRUE
,
as.integer
and as.double
return a vector of
0,1
.
Jens Oehlschlägel
x <- ri(2, 5, 10) y <- as.logical(x) y stopifnot(identical(y, as.logical(as.bit(x)))) stopifnot(identical(y, as.logical(as.bitwhich(x)))) y <- as.integer(x) y stopifnot(identical(y, as.integer(as.logical(x)))) stopifnot(identical(y, as.integer(as.bit(x)))) stopifnot(identical(y, as.integer(as.bitwhich(x)))) y <- as.double(x) y stopifnot(identical(y, as.double(as.logical(x)))) stopifnot(identical(y, as.double(as.bit(x)))) stopifnot(identical(y, as.double(as.bitwhich(x))))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.