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=