# Test basic arithmetic
2 + 2
# Create a simple vector
numbers <- c(1, 2, 3, 4, 5)
print(numbers)

library(dplyr)
library(lubridate)
library(stringr)
library(ggplot2)
library(tidyr)


# Create sample data 
test_data <- data.frame(
  ID = 1:5,
  Age = c(25, 34, 45, 29, 38),
  Income = c(45000, 62000, 85000, 51000, 73000)
)
# View the data
print(test_data)
str(test_data)
