curve()出错:'expr'没有计算长度为'n'的对象

Question

我有一个函数,在分子中有一个向量,在分母中有向量的总和.因此,每个组件是向量的一个组件除以一个取决于组件总和的函数.我想绘制一条曲线,表示第一个组件中的功能,固定其他组件.为什么这段代码不起作用？

y <- vector(length=2)
y0 <- c(1,2)
f <- function(y) y/(1+sum(y))
g <- function(x) f(c(x,y0[2]))[1]
curve(g, 0, 2)

f和g都在数值处按预期进行评估,但曲线函数给出了误差:

Error in curve(g, 0, 2) : 
  'expr' did not evaluate to an object of length 'n'

我试过没有成功的矢量化g.感谢任何帮助.

Answer 1

你可以尝试:

h <- Vectorize(g); curve(h, 0, 2)