install.packages('tinytex')
tinytex::install_tinytex()  # install TinyTeX

1 R chunk

x <- c(1,2,0/0, -5/0, -6, NA)
x
[1]    1    2  NaN -Inf   -6   NA
is.na(x)
[1] FALSE FALSE  TRUE FALSE FALSE  TRUE
is.nan(x)
[1] FALSE FALSE  TRUE FALSE FALSE FALSE
y <- c("Freshman", "Sophomore", "Junior", "Senior", "Freshman", "Junior", "Junior")
y
[1] "Freshman"  "Sophomore" "Junior"    "Senior"    "Freshman" 
[6] "Junior"    "Junior"   
typeof(y)
[1] "character"
z <- factor(y)
z
[1] Freshman  Sophomore Junior    Senior    Freshman  Junior   
[7] Junior   
Levels: Freshman Junior Senior Sophomore
table(z)
z
 Freshman    Junior    Senior Sophomore 
        2         3         1         1 
LS0tDQp0aXRsZTogIkZhY3RvcnMgYW5kIE1pc3NpbmcgVmFsdWVzIg0Kb3V0cHV0Og0KICBodG1sX25vdGVib29rOiANCiAgICB0b2M6IHllcw0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KICB3b3JkX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQogICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlDQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KICAgIHRvY19kZXB0aDogMw0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KICBodG1sX2RvY3VtZW50OiANCiAgICB0b2M6IHllcw0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KLS0tDQoNCg0KYGBge3IgZXZhbD1GQUxTRX0NCmluc3RhbGwucGFja2FnZXMoJ3Rpbnl0ZXgnKQ0KdGlueXRleDo6aW5zdGFsbF90aW55dGV4KCkgICMgaW5zdGFsbCBUaW55VGVYDQpgYGANCg0KIyBSIGNodW5rDQoNCmBgYHtyfQ0KeCA8LSBjKDEsMiwwLzAsIC01LzAsIC02LCBOQSkNCngNCmBgYA0KDQoNCmBgYHtyfQ0KaXMubmEoeCkNCmBgYA0KDQpgYGB7cn0NCmlzLm5hbih4KQ0KYGBgDQoNCg0KYGBge3J9DQp5IDwtIGMoIkZyZXNobWFuIiwgIlNvcGhvbW9yZSIsICJKdW5pb3IiLCAiU2VuaW9yIiwgIkZyZXNobWFuIiwgIkp1bmlvciIsICJKdW5pb3IiKQ0KeQ0KYGBgDQoNCmBgYHtyfQ0KdHlwZW9mKHkpDQpgYGANCmBgYHtyfQ0KeiA8LSBmYWN0b3IoeSkNCnoNCmBgYA0KYGBge3J9DQp0YWJsZSh6KQ0KYGBgDQoNCg0KDQoNCg0K