小编Ma *_*hen的帖子

当我使用名为 HydroMe 的包来拟合模型时，某些数据组将返回以下错误：

Error in qr.default(.swts * attr(rhs, "gradient")) : 
 NA/NaN/Inf in foreign function call (arg 1)

实际上，数据组中没有缺失值。代码如下：

library(HydroMe)
fortst<-read.csv(file="F:/fortst.csv")
van.lis <-nlsList(y~SSvan(x,Thr, Ths, alp, scal)|Sample,data=fortst)

示例数据可以从这里下载：

http://www.fileden.com/files/2012/9/13/3346981/fortst.csv

如帮助(predict.nls)中所述,当se.fit = TRUE时,应计算预测的标准误差.但是,我在下面的代码不显示,而只显示预测.

alloy <- data.frame(x=c(10,30,51,101,203,405,608,810,1013,2026,4052,6078,
                        8104,10130),
                    y=c(0.3561333,0.3453,0.3355,0.327453,0.3065299,0.2839316,
                        0.2675214,0.2552821,0.2455726,0.2264957,0.2049573,
                        0.1886496,0.1755897,0.1651624))
model <- nls(y ~ a * x^(-b), data=alloy, start=list(a=.5, b=.1))
predict(model, se=TRUE)

我的代码出了什么问题？谢谢!

下面的代码只返回结果:"d:/result.txt"中的"0 0".我已经显示了下面返回的同时错误.我的计划有什么问题？

for (i in 2:31)
{
if(i%%5=2)
{cat(i,1,"\n",append=TRUE,file="d:/result.txt")}
else{cat(0,0,"\n",append=TRUE,file="d:/result.txt")}
}

> for (i in 2:31)
+ {
+ if(i%%5=2){
 Error: unexpected '=' in:
 "{
 if(i%%5="
> cat(i,1,"\n",append=TRUE,file="d:/result.txt") 
Error in cat(i, 1, "\n", append = TRUE, file = "d:/result.txt") : 
object 'i' not found
> }
Error: unexpected '}' in "}"
> else    {
 Error: unexpected 'else' in "else"
>      cat(0,0,"\n",append=TRUE,file="d:/result.txt") 
> }
Error: unexpected '}' in "}"
 > }
 Error: unexpected '}' in "}"