2 + 3
(2 + 3) * 4 + 5 ** 2
5 ** 2
7 ** 2
7 ^ 4
7 ^ 2
x <- 12
y <- 5
123 -> z
(5 + 3) -> s
a = 12
(x + y)
x <- x + 1
x <- x + 1
x <- x + 1
x
2.
0.2 + 0.3
0.1 + 0.2
0.1 + 0.2 == 0.3
TRUE
true
s <- "Hello"
s
s <- 'Hello'
s
sin(2 +
5)
sin(pi)
sqrt()
sqrt(2)
v <- c(12, 34, 56, 12, 32, 3.5)
v
c(12)
c(12) == 12
v
v
v[2]
v[length(v)]
c(1, 2, 3)
c(1, 2, 3, 4.)
c(1, 2, 3, 4.1)
c(12, 23, "Hello")
v
v[c(2, 3)]
v[c(2, 2)]
v[c(1, 5, 3)]
1:5
12:15
12.5:15.5
12.5:15.7
12.3:15.7
12:15.7
12:15
v
v[1:3]
v[-2]
v[c(-1, -5)]
v[length(v) - 2 + 1]
rev(v)
rev(v)[2]
v
v[v > 13]
v > 13
v + 2
v[v > 13 & v < 50]
seq(1, 100, by = 4)
v
a = c(1, 2, 3)
b <- c(2, 3, 4, 5, 6, 7)
a + b
c(1, 2, 3, 4) + c(1, 2, 3, 4, 5)
v <- c(1, 2, 3)
w <- c(2, 3)
c(v, w)
c(c(1, 2, 3), c(1, 2))
sqrt(c(1, 2, 3, 4, 5))
v <- c(1, 2, 3)
v <- c(v, 5)
v
#asdf
v <- append(c(1, 2, 3), c(1, 2))
v
for (i in 1:10) {}
for (i in 1:10) {print(i)}
for (i in 1:10) {
print(i)
print(i ** 2)
v <- v + i
}
print(x)
x <- 2
print(x)
x <- 2
print(x)
x <- 2
print(x)
x <- 2
print(x)
x
for (i in 10) {
print(i ** 2)
}
for (i in 1L10) {
for (i in 1:10) {
print(i ** 2)
}
foo <- function(x) {
y <- x ** 2
y + x
}
foo(4)
foo <- function(x) {
y <- x ** 2
return y + x
foo <- function(x) {
y <- x ** 2
y + x
}
foo <- function(x) {
y <- x ** 2
return(y + x)
}
foo(4)
foo <- function(x) {
y <- x ** 2
return(y + x)
print("a")
}
foo(4)
foo <- function(x) {
y <- x ** 2
return(y + x)
print("Can't be here")
}
foo(4)
foo <- function(x) {
y <- x ** 2
return(y + x)
print("Can't be here")
}
foo <- function(x) {
y <- x ** 2
return(y + x)
print("Can't be here")
}
foo(4)
bar <- function(x, y) {
x + y
}
bar(2, 3)
bar(2, 3)
bar <- function(x, y=2) {
x + y
}
bar(10)
bar(10)
bar(y=3, x=10)
bar <- function(x, y=2) {
x + y * 2
}
bar(2, 3)
bar(y=3, x=10)
x <- 1
if (x == 2) {
print("x == 2")
}else {
print("x != 2")
}
x <- 1
if (x == 2) {
print("x == 2")
}else {
print("x != 2")
}
x <- 3
if (x == 2) {
print("x == 2")
}else {
print("x != 2")
}
x <- 2
if (x == 2) {
print("x == 2")
}else {
print("x != 2")
}
x <- 2
if (x == 2) {
print("x == 2")
} else {
print("x != 2")
}
x <- 3
if (x == 1) {
print("x == 1")
} else if (x == 2) {
print("x == 2")
} else if (x == 17) {
print("x == 17")
} else {
print("x is strange")
}
x <- 3
if (x == 1) {
print("x == 1")
} else if (x == 2) {
print("x == 2")
} else if (x == 17) {
print("x == 17")
} else {
print("x is strange")
}
my_list <- list(x=2, y="Hello", z=c(1, 2))
my_list
my_list <- list(x=2, y="Hello", z=c(1, 2))
my_list
my_list$x
my_list$y
my_list$z
my_list <- list(x=2, y="Hello", z=c(1, 2))
my_list
my_list[['x']]
my_list[['y']]
my_list[['z']]
my_list['z']
my_list[['z']]
my_list[['x', 'z']]
my_list[['z']]
my_list[c('x', 'y')]
my_list[c('x', 'y')]
list(c(10, 20, 30))
list(10, 20, 30)
numbers <- list(10, 20, 30)
numbers <- list(10, 20, 30)
numbers
numbers[[1]]
numbers[[2]]
v <- c(1, 2, 3)
x <- as.list(v)
x
v <- c(1, 2, 3)
x <- as.list(v)
x
x <- as.numeric("123")
x
x <- as.numeric("123")
x
x <- as.numeric("123")
x + 1
class("12")
class(12)
as.numeric(list(1, 2, 3))
as.numeric(list(1, 2, 3))
dat <- data.frame(x=c(1, 2, 3),
y=c(10, 20, 30)
s=c('a', 'b', 'c'))
dat <- data.frame(x=c(1, 2, 3),
y=c(10, 20, 30),
s=c('a', 'b', 'c'))
dat
dat <- data.frame(x=c(1, 2, 3),
y=c(10, 20, 30),
s=c('a', 'b', 'a'))
data.frame(c(1, 2), c(2, 3))
dat
dat$x
dat$y
dat$s
dat[1,]
dat[1,]
dat[1]
dat[2]
dat[3]
dat[1,]
dat[,1]
dat[1,2]
dat[1,]
dat[,1]
dat[1,]
dat[,1]
dat[,1]
dat[1,]
class(dat)
class(dat[1,])
dat[1,]
summary(dat)
?summary
summary(dat)
savehistory("~/rhistory.txt")