# Jetzt geht es um Vektoren ----

# numeric und integer
M <- c(1:200)
class(M)
length(M)

letters
class(letters)
length(letters)

M2 <- M/100

is.integer(M)
is.integer(letters)

as.integer(M2)
as.integer(0.9)

round(0.9)
round(0.09)
round(0.09, digits = 1)

# Character
M3 <- sample(letters, size = 5)
M3
class(M3)
length(M3)

is.character(M3)
as.integer(M3)

# connect (Verbinden)
Zahlen <- c(8, 5, 3, 1)
Zahlen <- c(Zahlen, 3)

Zahlen[3]
Zahlen[c(4, 2)]

Zahlen[-5]
Zahlen[c(-1, -5)]
Zahlen[-c(1, 5)]

# Auswahl von 100 Zahlen
Zahlen <- sample(0:9, size = 100,
                 replace = TRUE)

# Hilfeleistung für sample()
?sample

Zahlen < 3
Zahlen <= 2

Zahlen[Zahlen < 3]
length(Zahlen[Zahlen < 3])

as.integer(Zahlen < 3)
as.integer(FALSE)
as.integer(TRUE)

sum(Zahlen < 3)

sum(Zahlen < 3) == length(Zahlen[Zahlen < 3])

sum(Zahlen < 3)
length(Zahlen) - sum(Zahlen < 3)
sum(Zahlen >= 3)
sum(!Zahlen < 3)

sum(c(1, 4))

# Verbinden von Elementen
# Klassen können nicht gemischt werden
Miguel <- c("männlich", 30, "CL")
Miguel
class(Miguel)
Miguel + 1