只从predict.nls中获取一个值 - 为什么？

Question

我正在运行以下内容来获得预测/拟合值：

library(RCurl)
data <- getURL("https://gist.githubusercontent.com/aronlindberg/a8a6644a639c35ceb9d9/raw/5b7c13bbcd439dacbca70e07c96b6c33804273d2/data.csv")
object <- read.csv(text = data)
mod <- nls(formula = "solution_complexity ~ problem_complexity", data=object, start = list(problem_complexity=0))
predict(mod)

然而，这只给我一个值。如何获得所有预测值？

Answer 1

如果我这样做

predict(mod, newdata = object[, "problem_complexity", drop = FALSE])

[1]  2  6  4  3  3  4  8 16  7  5  3 12  4  3  9  2  1  5  1  1  4  6  2  5 

它似乎有效。