Question

我需要一些帮助来创建一个函数来评估形式的多项式：

P（x）= c1 + c2 * x + c3 * x ^ 2 + ... + cn-1 * x ^ n-2 + cn * x ^ n-1

使用向量x和系数向量的参数。我需要使用for循环来计算多项式和，而不是计算x的不同值。我需要做的最后一件事是检查系数向量的长度是否小于2.这是我试过的：

＆＃13;

directpoly<-function(x,coef) {
  total=coef[1]
  for(n in length(coef)) {
    total<-total+coef[-1]*x^n-1
  }
  ifelse(length(coef)>2,"Vector is less than length 2")
}

＆＃13;

我知道这种尝试可能是令人尴尬的可怕，但我对这个程序非常陌生并且非常深入，我以前从来没有编过任何代码。提前谢谢。

Answer 1

x <- 3
coefs <- c(4,5,3,1)
n <- length coefs 
result <- sum(coefs * x^(0:(n-1))

支票：

if(n < 2){
  stop("n must be > 1")
}

使用函数

1 个答案: