Вот простая программа-калькулятор на R:

# Calculator Program in R
# Function to add two numbers
add <- function(a, b) {
  return(a + b)
}
# Function to subtract two numbers
subtract <- function(a, b) {
  return(a - b)
}
# Function to multiply two numbers
multiply <- function(a, b) {
  return(a * b)
}
# Function to divide two numbers
divide <- function(a, b) {
  return(a / b)
}
# Main program
choice <- 0
while (choice != 5) {

  cat("Calculator Program\n")
  cat("1. Add\n")
  cat("2. Subtract\n")
  cat("3. Multiply\n")
  cat("4. Divide\n")
  cat("5. Exit\n")

  choice <- as.integer(readline("Enter your choice: "))

  if (choice == 5) {
    cat("Exiting...\n")
    break
  }

  num1 <- as.integer(readline("Enter first number: "))
  num2 <- as.integer(readline("Enter second number: "))

  result <- switch(choice,
                   add(num1, num2),
                   subtract(num1, num2),
                   multiply(num1, num2),
                   divide(num1, num2))

  cat("Result: ", result, "\n")
  cat("\n")
}

Эта программа позволяет пользователю выполнять основные арифметические операции, такие как сложение, вычитание, умножение и деление. Он предоставляет пользователю простой интерфейс меню, позволяющий выбрать нужную операцию и ввести числа.

Обратите внимание, что программа предполагает, что входные числа являются целыми числами. Вы можете изменить его для обработки других типов данных в соответствии с вашими требованиями.