编写一个R程序(函数)。输入一个整数n，如果n≤0,则中止运算，并输出一句话“要求输入一个正整数”，否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1账给n。不断循环，直到n=1,才停止计算，并输出一句话:“运算成功”。

你可以使用下面这个R语言函数来实现所述的功能：

is_one <- function(n) {
  if (n <= 0) {
    cat("要求输入一个正整数\n")
    return(FALSE)
  } else if (n %% 2 == 0) {  # 检查是否为偶数
    n <- n / 2
  } else {
    n <- 3 * n + 1
  }
  
  # 循环检查直到n等于1
  while (n != 1) {
    if (n <= 0) {
      cat("要求输入一个正整数\n")
      return(FALSE)
    }
    if (n %% 2 == 0) {
      n <- n / 2
    } else {
      n <- 3 * n + 1
    }
  }

  cat(paste("运算成功，最终结果为:", n, "\n"))
  TRUE
}

# 示例
result <- is_one(5)  # 调用函数并传入一个整数

当你运行这个函数并传入一个非负整数时，它会按照描述的过程进行操作。如果输入的是负数或零，它会提示你输入正整数。