a <- 3
vec <- c(1.2, 5.3, 6.4) 
A <- matrix(c(1,2,3,4,5,6), nrow=2, ncol=3, byrow=T) 
A

# zakladni operace
3+6/5+10*(9-7)+8

a <- 25
b <- 5
a/b

x <- c(1,2,3)
y <- c(3,2,1)

x+y

x-y

z <- c(0,1,2,3)

x+y+z

B <- matrix(c(1,1,1,1,1,1), nrow=2, ncol=3) 
C <- matrix(c(1,1,1,1,1,1), nrow=3, ncol=2)

A+B

A+C

A
C

length(z)
dim(A)

min(z)
max(z)

min(A)
max(A)

sum(z)
sum(A)

# mocniny a odmocniny
odmocnina <- sqrt(2)
odmocnina^2

# zaokrouhlovani
odmocnina

round(odmocnina, digits=2)
floor(odmocnina)
ceiling(odmocnina)

# posloupnosti
x <- 1:10
y <- 50:55
y

pst <- seq(from=0, to=1, length=100)
pst <- seq(from=0, to=1, by=0.05)
pst

vaha <- c(58, 61, 57, 59, 60, 54, 64, 71, 66, 70)
divky <- rep(1,6)
chlapci <- rep(2,4)

pohlavi <- c(divky, chlapci)
pohlavi

hmotnost <- data.frame(vaha, pohlavi)
hmotnost

student <- c(62, 2)
hmotnost2 <- rbind(hmotnost, student)
hmotnost2

cukrovka <- rep(0,11)
hmotnost3 <- cbind(hmotnost2, cukrovka)
hmotnost3

# podmnoziny
hmotnost3[1, ]
hmotnost3[ ,1]
hmotnost3[c(1,3,5,7), ]
hmotnost3[c(1,3), c(1,2)]

vyska <- c(162, 161, 164, 158)
vyska[3]


getwd()
dir()

data <- read.delim('Teploty.txt', sep='\t', dec='.')
head(data)

data[ ,1]
data[ ,'hodina']
data$hodina

data[ ,2]
data[ , 'teplota']
data$teplota

hodiny <- data$hodina
teploty <- data$teplota


# logicke operatory
(teploty == 13)*1
sum((teploty==13)*1)

(teploty <= 13)*1
(teploty >= 13)*1
(teploty < 13)*1
(teploty > 13)*1

data[ data$teplota == 13, ]
data[ data$teplota == 13, 'hodina']

pdf('graf.pdf')
plot(hodiny, teploty, 
     main='Teploty 18.9. 2017',
     xlab='cas (v hodinach)',
     ylab='teplota (Celsius)', 
     col='orchid2',
     pch=19, 
     type='l',
     lwd=2,
     xlim=c(0,25),
     ylim=c(7,20))

points(hodiny, teploty, pch=19, col='orchid4')
dev.off()