# vytvoření vektoru s numerickým datovým typem
v <- c(1,3,8,5,12)

# vytvoření vektoru datovým typem "character" 
v_char <- c("a","b","e")

# výběr určitých členů vektoru, pomocí operací s []
v[1]
v_char[c(1,3)]
v[v > 4]
v[length(v) - 1]

# vytvoření vektoru datovým typem "character", ale obsahující čísla + převedení na typ "numeric" 
v_char2 <- c("1","2","3")
v_num <- as.numeric(v_char2)

# vytvoření prázdného vektoru a následný zápis do něj 
v_empty <- vector()
v_empty <- append(v_empty, "c")
v_empty <- append(v_empty, 1)
v_empty[2] <- "strom"

# vytvoření numerického vektoru o 3 členech a zápis do nich 
v_3 <- numeric(3)
v_3[1] <- 11000 
v_3[2] <- 1 
v_3[3] <- -5 

# vymazání proměnných 
rm(v_empty)
rm(v_char2)


# některé základní funkce v R 
sum(v) 
mean(v) 
median(v) 
sd(v) 
round(1.488) 
abs(v_3)

seq(1,101, by = 10)
rep(3, 20)
rep("ahoj", 20)

length(v)
unique( c(1,2,1,2,3,3,3,8,5,1,2,10) )
which(v > 2)

# sekvence celých čísel 
x <- 2:10
y <- -3:0

### práce se stringy = textem 
# vytvoření stringu 
string <- paste0("place: ", v[2], ", name: ", v_char[3])
# nahrazení části stringu 
string_2 <- gsub("place","time",string)
# výběr části stringu
string_part <- substr(string, 1, 6)


# vytvoření matice 
mat <- matrix(data = NA, nrow = 5, ncol = 3)

# zápis do matice 
mat[2,2] <- 12
mat[,3] <- 7:11

# výběr prvků matice 
mat[2,3] 
mat[1:4,3]


# vytvoření data.framu 
df <- data.frame( roky = 2001:2020, typ = rep( c("lichý","sudý"), 10 ), vzdalenost = 5:24 )

# výběr prvků/proměnných data.framu 
df[,1]
df$roky
df[,"roky"]

df[2,1]
df$roky[1]
df[2,"roky"]

df[df$vzdalenost < 15,]
df[df$vzdalenost < 15,c(1,3)]

# Přidání nového sloupce, kombinace data.framů 
df$novy <- 1
cbind(df,df,df)
rbind(df,df)


# velmi jednoduché vykreslení numerických hodnot 
plot(df$vzdalenost) 
plot(df$vzdalenost, type = "l")
plot(df$roky,df$vzdalenost)