linguists2018-lesson1.R

3 + 2
3 * (2 + 3) + sqrt(4)
3 + 4
print(2 + 3)
print(3 * (4 + 1))
x <- 5
y <- 10
x
x + y
x <- x + 1
vec <- c(1, 3, 4, 5, 10, 20)
vec
vec[1]
vec[2]
vec[1] <- 100
vec
vec1 <- c(1, 2, 3)
vec2 <- c(5, 6, 7)
c(vec1, vec2)
vec3 <- c(vec1, vec2)
vec3
x <- 5
x
length(x)
typeof(x)
typeof(vec1)
typeof("Hello")
vec1
vec2
vec1 + vec2
vec1 * vec2
vec <- c(10, 20, 30, 40, 50)
vec
vec[c(1, 3, 5)]
vec[-1]
vec[c(-1, -3)]
vec[6]
vec[8]
vec <- c(1, 3, -3, 4, 3, -5, 4, -7)
vec
vec[vec >= 0]
vec >= 0
vec[c(TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE)]
seq(1, 100)
seq(1, 100) * 10
1:100
5:123
rep(c(1, 2, 3), 5)
dat <- read.csv("http://bit.ly/2Dgwajo")
View(dat)
dat$Pclass
dat[1:4,]
dat[1, 1]
dat[1, 2]
dat[1, 3]
dat[1, 4]
dat[1, ]
dat[1:4, ]
head(dat)
head(dat, n = 3)
newdat <- dat[,-1]
newdat
View(newdat)
newdat <- dat[,1]
newdat <- dat[,7]
newdat <- dat[,5]
dat
colnames(dat)
newdat <- dat[,"PClass"]
newdat <- dat[,PClass]
newdat <- dat[["PClass"]]
newdat
newdat <- dat$Pclass
newdat <- dat[["Pclass", "Survived"]]
string <- "Hello, World!"
string[3:5]
substr(string, 3, 5)
length(string)
vec_of_string <- c("Hello", "World")
vec_of_string
c("Hello", 12, "This")
dat
class3 <- dat[dat$Pclass == 3, ]
View(class3)
class3 <- dat[dat$Pclass == 3]
class3 <- dat[dat$Pclass == 3,]