#Izmanto kā kalkulatoru
3 + 5
2/4
2 ^ 2

#Mainīgie jeb vektori
x <- 2
y = 4
z = x + y
z

#Vērtību piešķiršana vektoriem
a = 3
a
b = "Jānis"
b

#Vienā rindā var rakstīt vairākas komandas, ja tās atdala ar semikolu
c  = TRUE; c ; d = FALSE ; d

#Vektori ar vairākiem elementiem
a = c (1,2,3,5)  ; a
b = c ("a", "b", "c", "e") ; b

#Vektoru apvienošana
c = c (9, 11, 18)
d = c (a, c)
d

#Regulāru vektoru veidošana
v1 = seq(from = 1, to = 7, by = 1)
v1
v2 = rep(x = c("A", "B", "C"), times = 2)
v2
v3 = rep(x = c("A", "B", "C"), each = 2)
v3

#Darbības ar vektoriem
d
m = mean(d); m
max(d)
range(d)
sum(d)

#Datu veida pārbaude
mode(d)
mode(b)
mode(c)

#Vektora garuma noskaidrošana
length(d)
length(b)
length(c)

#Aritmētiskās darbības
f = d + 5 ; f
g = d + f ; g

#Loģiskie operatori
d
lg1 = d == 5 ; lg1
lg2 = d >= 9 ; lg2

#Vektora elementu izvēle
d[4]
d[c(1,3,5,7)]
d[lg1]
d[d>6]

d[2:5]
v4 = c(v3,"A") ; v4
lg4 = v4 == "A" ; lg4
d[lg4]

#Matrices veidošana
d ; f ;  g
mt1 = cbind(d,f,g) ; mt1
mt2 = rbind(d,f,g) ; m2
mt3 = matrix(data = c(1,2,3,4,5,6), nrow = 3, ncol = 2) ; mt3

#Saraksta veidošana
ls = list(vektors = v4, matrice = mt2)
ls

#Tabulas veidošana
tab1 = data.frame(paraugl = v4, dati = mt1)
edit(tab1)

#Datu importēšana
tab2a = read.table(file = "piemers_1a.txt", header = TRUE, sep = "\t", dec = ".")
tab2a
tab2b = read.table(file = "piemers_1b.txt", header = TRUE, sep = "\t", dec = ".")
tab2b
tab3 = read.csv(file = "piemers_1a.csv", header = TRUE, sep = ";", dec = ".")
tab3

#Aiļu un rindu nosaukumu apskate
names(tab2a)
row.names(tab2b)

#Aiļu izvēle
tab2a$gads
tab2a[ ,1]
tab2a$gpl
tab2a[ ,2]
tab2a[ ,3:4]

#Aktīvie objekti
ls()