用四个参数编写一个函数

Question

我试图解决这个问题：

我们定义称为（p.q）数字的对象。在R中，（p，q）数字是具有四个元素的列表。列表的第一个元素是整数+ 1 + 1或整数-1-1。它给出了数字的符号。第二和第三个元素是p和q，每个都是非负整数。第四个元素是0到9之间的p + q + 1个整数的向量。

编写一个函数，它接受四个参数sign，p，q和nums。然后检查参数是否满足（p，q）数的所有要求。如果没有，请停止并显示错误消息。如果是，请使用structure（）函数将（p.q）数字作为具有属性pqNumber的列表返回。

到目前为止，这是我的代码。我不确定错误或我需要做什么。

`pqNumber <- function(sign, p, q, nums) {
  nums <- c()
  if (sign != 1 && sign != -1) stop ("sign must be 1 or -1")
  if (round != p) stop ("p must be an integer")
  if (round != q) stop ("q must be an integer")
  if (p < 0) stop ("p cannot be negative")
  if (q < 0) stop ("q cannot be negative")
  if (length(nums) != p + q + 1) stop ("nums must be a vector of p+q+1 integers")
  structure(list(sign = sign, p = p, q = q, nums = nums), class = "pqNumber")
}`