在R中提取拟合值

Question

我正在尝试从拟合模型中提取值。到目前为止，我一直在网上找到所有建议的错误。

这是我的代码

plotPoints(absorbance~time,data=a)
f1 = fitModel(absorbance~B*time^(A),data=a)
plotFun(f1(time)~time,add=TRUE,col="red")
fitted(f1)
Error: object of type 'closure' is not subsettable

感谢您的时间和帮助

塞巴斯蒂安

Answer 1

f1不是模特，请尝试：

library(mosaic)
a <- data.frame(absorbance = sample(1:10,10),time = sample(1:10,10),B=sample(1:10,10))
plotPoints(absorbance~time,data=a)
f1 = fitModel(absorbance~B*time^(A),data=a)
plotFun(f1(time)~time,add=TRUE,col="red")
fitted(model(f1))

https://www.rdocumentation.org/packages/mosaic/versions/0.14.4/topics/fitModel