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)

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

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)

A-B

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

length(z)
dim(A)

min(z)
max(z)

min(A)
max(A)

sum(z)
sum(A)

#zaokrouhlovani
odmocnina <- sqrt(2)
odmocnina

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

#posloupnosti
x <- 1:10
x

y <- 50:55
y

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

pst2 <- seq(from=0, to=1, by=0.0001)
pst2


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 <- matrix(c(vaha, pohlavi), nrow=2, ncol=10, byrow=T)
hmotnost
hmotnost.r <- rbind(vaha, pohlavi)
hmotnost.r
hmotnost.c <- cbind(vaha, pohlavi)
hmotnost.c

#podmnoziny

hmotnost
hmotnost[1, ]
hmotnost[2, ]
hmotnost[ ,4]
hmotnost[ ,8]
hmotnost[ , c(3,5,8)]
hmotnost[2,7]

vyska <- c(133, 132, 145, 126)
vyska[c(1,3)]

getwd()
dir()
setwd('C:/Disk D/ND-Skola/02-Vyuka/04-Aplikovaná statistika 2016/R-Workplace')

data <- read.delim('1-Teploty.txt', sep='\t', dec='.')
hodiny <- data$hodina
teploty <- data$teplota

teploty == 13
teploty

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

pdf('graf.pdf')
plot(hodiny, teploty, main='Teploty', xlab='cas (v hodinach)',
     ylab='denni teploty', col='orchid2', type='l', lwd=2,
     xlim=c(0,25), ylim=c(7,20))
points(hodiny, teploty, pch=19, cex=1.2, col='orchid4')
dev.off()

dir()ll