Universal Code Snippet
cat("Hello, World!\n")
cat("Enter your name: ")
name <- readLines(con = "stdin", n = 1)
cat("Hello,", name, "!\n")
age <- 20
if (age >= 18) {
cat("You are an adult.\n")
} else {
cat("You are a minor.\n")
}
str1 <- "Hello"
str2 <- " World"
cat("Length:", nchar(str1), "\n")
combined <- paste0(str1, str2)
cat("Concatenated:", combined, "\n")
cat("Uppercase:", toupper(combined), "\n")
a <- 15.0
b <- 4.0
cat("Add: ", a + b, "\n")
cat("Subtract:", a - b, "\n")
cat("Multiply:", a * b, "\n")
cat("Divide: ", a / b, "\n")
