Вот простая программа-калькулятор, написанная на R, которая принимает пользовательский ввод для двух чисел и выполняет основные арифметические операции, такие как сложение, вычитание, умножение и деление:

# Calculator Program in R
# Function to perform addition
add <- function(a, b) {
  return(a + b)
}
# Function to perform subtraction
subtract <- function(a, b) {
  return(a - b)
}
# Function to perform multiplication
multiply <- function(a, b) {
  return(a * b)
}
# Function to perform division
divide <- function(a, b) {
  if (b != 0) {
    return(a / b)
  } else {
    return("Error: Division by zero!")
  }
}
# Taking user input
num1 <- as.numeric(readline("Enter the first number: "))
num2 <- as.numeric(readline("Enter the second number: "))
# Performing calculations
result_add <- add(num1, num2)
result_sub <- subtract(num1, num2)
result_mul <- multiply(num1, num2)
result_div <- divide(num1, num2)
# Printing the results
cat("Addition: ", result_add, "\n")
cat("Subtraction: ", result_sub, "\n")
cat("Multiplication: ", result_mul, "\n")
cat("Division: ", result_div, "\n")

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

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