# Zeichenketten ----

paste("Ich", "heiße", "Miguel")
paste0("Ich", "heiße", "Miguel")

paste("Ich", "heiße", "Miguel", sep = "-")

Ich <- list(Name = "Miguel", Alter = 40,
            Herkunft = "Chile")

paste("Ich heiße", Ich$Name, "Ich bin", Ich$Alter,
      "und komme aus", Ich$Herkunft)

Nachricht <- paste0("Ich heiße \"", Ich$Name,
                    "\".\nIch bin ", Ich$Alter,
      " Jahre alt und komme aus ", Ich$Herkunft, ".")
cat(Nachricht)

"Ich"
'du'

'Ich bin "Miguel"'

# In Datensätzen
Bezirke <- readRDS("BonnBezirke.rds")
head(Bezirke)

Bezirke$Zettel <- with(Bezirke, {
  paste0(BezirkName, " (", BezirkNr, ")")
})

head(Bezirke)

toupper("Miguel")
tolower("Miguel")

?grepl
grepl("tor", tolower(Bezirke$BezirkName))

Bezirke[grepl("tor", tolower(Bezirke$BezirkName)), ]
Bezirke[grepl("tor$", tolower(Bezirke$BezirkName)), ]

Bezirke[grepl("tor$", Bezirke$BezirkName,
              ignore.case = TRUE), ]

Bezirke[grepl("^neu", Bezirke$BezirkName,
              ignore.case = TRUE), ]

# Zeit ----
as.Date("2025-06-17")

Sys.Date()

Sys.Date() - as.Date("1978-10-27")

?strptime

format(Sys.Date(), format = "%V")

format(as.Date("1978-10-27"), format = "%A")
format(Sys.Date(), format = "%A")

format(Sys.Date(), format = "%d. %B %Y")

as.Date(strptime("17.06.2025",
                 format = "%d.%m.%Y"))

Sys.time()

# Schleifen ----
for (i in c(1:1000)) {
  print(paste("Runde", i))
}

# Funktionen ----
stats <- function(x) {
  m <- mean(x)
  s <- sd(x)
  return(c(mean = m, sd = s))
}

stats(iris$Sepal.Length)
stats(iris$Sepal.Width)

summary(iris$Sepal.Length)

var1 <- sample(1:100, 100, replace = TRUE)/10
var1[15] <- NA

stats(var1)
?mean

stats <- function(x, ...) {
  m <- mean(x, ...)
  s <- sd(x, ...)
  return(c(mean = m, sd = s))
}

stats(var1)
stats(var1, na.replace = TRUE)

stats(var1, FALSE)
stats(x = var1, na.rm = FALSE)
stats(na.rm = FALSE, x = var1)
# stats(FALSE, var1)