setwd('/home/Hornik/tmp/')
1
2
1+1
2*3
3/4
2-3
2^3
2 * 3
2*3
2 * 3
3/4
sin(0)
cos(0)
exp(1)
log(1)
exp(log(1))
log(0)
exp(log(0))
1 / 0
1 / (-0)
0 / 0
sqrt(-1)
NaN
NaN + 1
2 + 3
x <- 2
x
x
y <- 3
y
x + y
ls()
x
rm("x")
x
x <- 2
c(2, 3)
x
y
c(x, y)
z <- c(x, y)
z
length(x)
length(z)
z
c(z, z, z)
c(z, z, z, z, z)
rep(z, 5)
rep(z, 12)
rep(z, 42)
length(rep(z, 42))
rep(z, 42)
1 : 10
seq(1, 10)
seq(1, 42)
seq(1, 42, by = 4)
z <- seq(1, 42, by = 4)
z
length(z)
z[8]

z[4]
z[4, 8]
z[c(4, 8)]
z[c(1, 4, 8)]
z
24
24]
length(z[z > 24])
24
sum(z > 24)
z
z[6]
z[-6]
z
z[-1]
z[-11]
z[-length(z)]
a <- c(Nikola = 22, Yulia = 21)
a
names(a)
a[2]
a["Yulia"]
a
names(a) <- NULL
a
names(a) <- c("Nikola", "Yulia")
a
rep
seq
seq.default
function() writeLines("Hello world.")
hell <- function() writeLines("Hello world.")
hell
hell()
hell <- function() writeLines("Hello world.")
hell()
save(hell, "hell.rda")
save(hell, file = "hell.rda")
hell
rm(hell)
hell()
load("hell.rda")
hell
hell
dump("hell", "hell.R")
hell
rm(hell)
hell
source("hell.R")
hell
hell()
rm(hell)
hell
hell <-

hell
pi
options(digits = 13)
pi
options(digits = 6)
pi
pi
e
exp(1)
sin(0)
sin(90)
sin(pi / 2)
seq
help("seq")
q()