曲线()在R中使用带参数的函数

Question

ppt=function(v, tail = 0.5){
  if (tail == 1){
    6/pi^2/v^2
  } else {
    if (v < 11) {
      (1-tail)*(11-v)/55
      } else {tail*6/pi^2/(v-10)^2}
  }
}
curve(ppt(tail = 0.2))
Error in curve(ppt(tail = 0.2)) : 
  'expr' must be a function, or a call or an expression containing 'x'

我应该如何为函数ppt()绘制一条光滑的曲线，变量尾的值不同？

谢谢。

Answer 1

也许是下一招？

w = 0.2
g <- function(z) ppt(z, tail = w)
curve(g)

别忘了替换，正如@MrFlick在评论中指出的那样：

if (v < 11) {
      (1-tail)*(11-v)/55
      } else {tail*6/pi^2/(v-10)^2}

通过

ifelse(v < 11, (1-tail)*(11-v)/55, tail*6/pi^2/(v-10)^2)

Answer 2

(1)重写ppt以将其矢量化(未显示)或其他(2)使用vectorize，如下所示，在这种情况下，ppt无需修改。也可以使用这个语法。

curve(Vectorize(ppt)(x, tail = 0.2), ylab = "ppt")

​

​