library("broadcast")
# matrix example ====
<- matrix(sample(-1:28), ncol = 5)
x colnames(x) <- month.name[1:5]
rownames(x) <- month.abb[1:6]
names(x) <- c(letters[1:20], LETTERS[1:10])
print(x)
## January February March April May
## Jan 11 6 2 9 25
## Feb 19 15 10 22 7
## Mar 26 5 18 17 27
## Apr 14 12 4 21 0
## May 13 20 28 8 1
## Jun -1 3 24 16 23
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_bool(x)
## January February March April May
## Jan TRUE TRUE TRUE TRUE TRUE
## Feb TRUE TRUE TRUE TRUE TRUE
## Mar TRUE TRUE TRUE TRUE TRUE
## Apr TRUE TRUE TRUE TRUE FALSE
## May TRUE TRUE TRUE TRUE TRUE
## Jun TRUE TRUE TRUE TRUE TRUE
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_int(x)
## January February March April May
## Jan 11 6 2 9 25
## Feb 19 15 10 22 7
## Mar 26 5 18 17 27
## Apr 14 12 4 21 0
## May 13 20 28 8 1
## Jun -1 3 24 16 23
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_dbl(x)
## January February March April May
## Jan 11 6 2 9 25
## Feb 19 15 10 22 7
## Mar 26 5 18 17 27
## Apr 14 12 4 21 0
## May 13 20 28 8 1
## Jun -1 3 24 16 23
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_chr(x)
## January February March April May
## Jan "11" "6" "2" "9" "25"
## Feb "19" "15" "10" "22" "7"
## Mar "26" "5" "18" "17" "27"
## Apr "14" "12" "4" "21" "0"
## May "13" "20" "28" "8" "1"
## Jun "-1" "3" "24" "16" "23"
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_cplx(x)
## January February March April May
## Jan 11+0i 6+0i 2+0i 9+0i 25+0i
## Feb 19+0i 15+0i 10+0i 22+0i 7+0i
## Mar 26+0i 5+0i 18+0i 17+0i 27+0i
## Apr 14+0i 12+0i 4+0i 21+0i 0+0i
## May 13+0i 20+0i 28+0i 8+0i 1+0i
## Jun -1+0i 3+0i 24+0i 16+0i 23+0i
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_raw(x)
## January February March April May
## Jan 0b 06 02 09 19
## Feb 13 0f 0a 16 07
## Mar 1a 05 12 11 1b
## Apr 0e 0c 04 15 00
## May 0d 14 1c 08 01
## Jun 00 03 18 10 17
## attr(,"names")
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
################################################################################
# factor example ====
<- factor(month.abb, levels = month.abb)
x names(x) <- month.name
print(x)
## January February March April May June July August
## Jan Feb Mar Apr May Jun Jul Aug
## September October November December
## Sep Oct Nov Dec
## Levels: Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
as_bool(as_int(x) > 6)
## January February March April May June July August
## FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## September October November December
## TRUE TRUE TRUE TRUE
as_int(x)
## January February March April May June July August
## 1 2 3 4 5 6 7 8
## September October November December
## 9 10 11 12
as_dbl(x)
## January February March April May June July August
## 1 2 3 4 5 6 7 8
## September October November December
## 9 10 11 12
as_chr(x)
## January February March April May June July August
## "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug"
## September October November December
## "Sep" "Oct" "Nov" "Dec"
as_cplx(x)
## January February March April May June July August
## 1+0i 2+0i 3+0i 4+0i 5+0i 6+0i 7+0i 8+0i
## September October November December
## 9+0i 10+0i 11+0i 12+0i
as_raw(x)
## January February March April May June July August
## 01 02 03 04 05 06 07 08
## September October November December
## 09 0a 0b 0c
typecast
Atomic and List Type Casting With Names and Dimensions Preserved
Description
Type casting usually strips away attributes of objects.
The functions provided here preserve dimensions, dimnames, and names, which may be more convenient for arrays and array-like objects.
The functions are as follows:
-
as_bool()
: converts object to atomic typelogical
(TRUE, FALSE, NA
). -
as_int()
: converts object to atomic typeinteger
. -
as_dbl()
: converts object to atomic typedouble
(AKA numeric). -
as_cplx()
: converts object to atomic typecomplex
. -
as_chr()
: converts object to atomic typecharacter
. -
as_raw()
: converts object to atomic typeraw
. -
as_list()
: converts object to recursive typelist
.
as_num()
is an alias for as_dbl()
.
as_str()
is an alias for as_chr()
.
See also typeof.
Usage
as_bool(x, ...)
as_int(x, ...)
as_dbl(x, ...)
as_num(x, ...)
as_chr(x, ...)
as_str(x, ...)
as_cplx(x, ...)
as_raw(x, ...)
as_list(x, ...)
Arguments
x
|
an R object. |
…
|
further arguments passed to or from other methods. |
Value
The converted object.