# Sample R script for testing
cat("Hello from FileDummy!\n")

# Vector operations
numbers <- c(1, 2, 3, 4, 5)
doubled <- numbers * 2
print(paste("Doubled:", paste(doubled, collapse = ", ")))

# Data frame example
df <- data.frame(
  name = c("Alice", "Bob", "Charlie"),
  age = c(25, 30, 35),
  city = c("NYC", "London", "Tokyo")
)
print(summary(df))