This is an “RNotebook” for integrating text and figures with code. In this RNotebook, we will wrap up data types in vectors.
character_vector <- c("a", "b", "c")
print(character_vector)
[1] "a" "b" "c"
class(character_vector)
[1] "character"
(
numeric_vector <- c(1, 2, 3)
) #parentheses print the variable just like the print() command
[1] 1 2 3
class(numeric_vector)
[1] "numeric"
(boolean_vector <- c(TRUE, FALSE, TRUE))
[1] TRUE FALSE TRUE
class(boolean_vector)
[1] "logical"
mixed_numbool <- c(boolean_vector, numeric_vector)
class(mixed_numbool)
[1] "numeric"
mixed_numbool
[1] 1 0 1 1 2 3
sum(mixed_numbool)
[1] 8
(mixed_character_anything <- c(boolean_vector, numeric_vector, character_vector))
[1] "TRUE" "FALSE" "TRUE" "1" "2" "3" "a" "b"
[9] "c"
sort(mixed_character_anything)
[1] "1" "2" "3" "a" "b" "c" "FALSE" "TRUE"
[9] "TRUE"
#in square brackets: selecting just elements that equal the digit 1 as string
str(one_number)
chr "a"
LS0tCnRpdGxlOiAiQmFzaWMgdmVjdG9yIHR5cGVzIgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdAogIHdvcmRfZG9jdW1lbnQ6IGRlZmF1bHQKLS0tClRoaXMgaXMgYW4gIlJOb3RlYm9vayIgZm9yIGludGVncmF0aW5nIHRleHQgYW5kIGZpZ3VyZXMgd2l0aCBjb2RlLiAKSW4gdGhpcyBSTm90ZWJvb2ssIHdlIHdpbGwgd3JhcCB1cCBkYXRhIHR5cGVzIGluIHZlY3RvcnMuIAoKCmBgYHtyfQpjaGFyYWN0ZXJfdmVjdG9yIDwtIGMoImEiLCAiYiIsICJjIikKcHJpbnQoY2hhcmFjdGVyX3ZlY3RvcikKYGBgCgpgYGB7cn0KY2xhc3MoY2hhcmFjdGVyX3ZlY3RvcikKYGBgCgpgYGB7cn0KKCAgIG51bWVyaWNfdmVjdG9yIDwtIGMoMSwgMiwgMykgICApICNwYXJlbnRoZXNlcyBwcmludCB0aGUgdmFyaWFibGUganVzdCBsaWtlIHRoZSBwcmludCgpIGNvbW1hbmQKYGBgCmBgYHtyfQpjbGFzcyhudW1lcmljX3ZlY3RvcikKYGBgCmBgYHtyfQooYm9vbGVhbl92ZWN0b3IgPC0gYyhUUlVFLCBGQUxTRSwgVFJVRSkpCmBgYAoKYGBge3J9CmNsYXNzKGJvb2xlYW5fdmVjdG9yKQpgYGAKYGBge3J9Cm1peGVkX251bWJvb2wgPC0gYyhib29sZWFuX3ZlY3RvciwgbnVtZXJpY192ZWN0b3IpCmNsYXNzKG1peGVkX251bWJvb2wpCmBgYAoKYGBge3J9Cm1peGVkX251bWJvb2wKYGBgCgpgYGB7cn0Kc3VtKG1peGVkX251bWJvb2wpCmBgYAoKYGBge3J9CihtaXhlZF9jaGFyYWN0ZXJfYW55dGhpbmcgPC0gYyhib29sZWFuX3ZlY3RvciwgbnVtZXJpY192ZWN0b3IsIGNoYXJhY3Rlcl92ZWN0b3IpKQpgYGAKYGBge3J9CnNvcnQobWl4ZWRfY2hhcmFjdGVyX2FueXRoaW5nKQpgYGAKCmBgYHtyfQpvbmVfbnVtYmVyIDwtIG1peGVkX2NoYXJhY3Rlcl9hbnl0aGluZ1ttaXhlZF9jaGFyYWN0ZXJfYW55dGhpbmcgPT0gImEiXQptaXhlZF9jaGFyYWN0ZXJfYW55dGhpbmcgPT0gImEiCgoKI2luIHNxdWFyZSBicmFja2V0czogc2VsZWN0aW5nIGp1c3QgZWxlbWVudHMgdGhhdCBlcXVhbCB0aGUgZGlnaXQgMSBhcyBzdHJpbmcKc3RyKG9uZV9udW1iZXIpCmBgYAoKCgo=