cat("Enter your name: ")
user_name <- readline(prompt = "")
cat("Enter your age: ")
user_age <- as.numeric(readline(prompt = ""))

cat("\nEnter the numbers separated by spaces: ")
numbers <- scan(what = numeric(), quiet = TRUE)

# Print User Input
cat("\n\nUser Information:\n")
cat("Name: ", user_name, "\n")
cat("Age: ", user_age, "\n")
cat("Numbers entered: ", numbers, "\n")

data <- data.frame(
  Name = c("John", "Jane", "Bob"),
  Age = c(25, 30, 22),
  Grade = c("A", "B", "C")
)

# Writing to File
write.table(data, "output_data.txt", row.names = FALSE)

# Formatted Output
formatted_result <- sprintf("The mean age is %.2f", mean(data$Age))
cat("\nFormatted Output:\n")
cat(formatted_result, "\n")

# Plotting
x <- seq(0, 2 * pi, length.out = 100)
y <- sin(x)
png("sine_plot.png")
plot(x, y, type = "l", col = "blue", lwd = 2, xlab = "X-axis", ylab = "Y-axis", main = "Sine Function")
dev.off()

cat("\nOutput Files and Plots Created.\n")

a = 5

a

Taking Input and showing the Outputs are important in a programming language.
Here are the functions used

1. Input Functions - scan(), read.table(), read.csv(), readLines(), readline()
2. Output Functions - print(), write.table(), write.csv(), cat(), sprintf(), plot and graph functions

Functions which take Input from the user are called Input Functions
Here are the Input Functions used in R

scan() - Reads data from the console.
Example: input_data <- scan(n = 1, quiet = TRUE)

read.table() - Reads data from a file into a data frame.
Example: data <- read.table("filename.txt", header = TRUE)

read.csv() - Reads data from a CSV file into a data frame.
Example: data <- read.csv("filename.csv", header = TRUE)

readLines() - Reads lines from a text file.
Example: lines <- readLines("filename.txt")

readline() - Reads a line of text from the console.
Example: user_input <- readline(prompt = "Enter something: ")

Functions which gives Output to the user are called Output Functions
Here are the Output Functions used in R

print() - Prints values to the console.
Example: print(result)

write.table() - Writes a data frame to a text file.
Example: write.table(data, "output.txt", row.names = FALSE)

write.csv() - Writes a data frame to a CSV file.
Example: write.csv(data, "output.csv", row.names = FALSE)

cat() - Concatenates and prints values to the console or a file.
Example: cat("Hello", "World", file = "output.txt", sep = "\n")

sprintf() - Formats values as strings.
Example: formatted_result <- sprintf("%.2f", result)
print(formatted_result)

plot and graphs functions will come.