用curve（）繪制R中的常數函數

Question

所以我有一個錯誤...

f <- function(x){return(1)}
curve(f(x),0,100,xname="x")

Error in curve(f(x), 0, 100, xname = "x") : 
'expr' did not evaluate to an object of length 'n'

考慮到這很奇怪

F <- function(x){return(0*x+1)}
curve(F(x),0,100,xname="x")

效果很好...這讓我思考了R如何處理data.frame（）s。

a <- data.frame(1,2,3)
f(a)
# [1] 1
F(a)
#   X1 X2 X3
# 1  1  1  1

這意味着功能Vectorize（）將解決我的問題。 無論如何，這都是R做出的隱式決策的一個敏銳示例，這會導致行為不一致。

Answer 1

問題在於函數應返回與參數長度相同的向量。 在您的情況下，函數始終返回僅一個的向量，而不是n。 解決方案可能是

 f <- function(x){return(rep(1,length(x)))}