r - 曲线错误(): 'expr' did not evaluate to an object of length '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'

我尝试了 Vectorizing g 但没有成功。感谢任何帮助。

Answer 1

你可以试试:

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