Running examples in ‘nlr-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: carbon
> ### Title: Carbon Dioxide data.
> ### Aliases: carbon
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(carbon)
>  carbon$year
 [1] 1754 1772 1806 1825 1864 1894 1914 1932 1949 1958 1965 1973 1744 1764 1791
[16] 1816 1839 1843 1847 1854 1869 1874 1878 1887 1899 1903 1905 1909 1915 1921
[31] 1927 1935 1943 1953 1959 1960 1961 1962 1963 1965 1966 1967 1968 1969 1970
[46] 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985
[61] 1986 1987
>  carbon$co2
 [1] 279.00 279.00 280.00 284.00 288.00 297.00 300.00 306.00 311.00 312.00
[11] 318.00 328.00 276.80 276.70 279.70 283.80 283.10 287.40 286.80 288.20
[21] 289.30 289.50 290.30 292.30 295.80 294.80 296.90 299.20 300.50 301.60
[31] 305.50 306.60 307.90 312.70 316.10 317.02 317.74 318.63 319.13 320.41
[41] 321.09 321.90 322.72 324.21 325.51 326.48 327.60 329.82 330.41 331.01
[51] 332.06 333.62 335.19 336.54 338.40 339.46 340.76 342.76 344.34 345.65
[61] 346.84 348.62
>  crbdt<-list(xr=nlr::carbon$year,yr=nlr::carbon$co2)
>  ScalExp<- convexpr2nlform(yr ~ p1 + exp(-(p2 - p3 * xr)),
+                         selfStart=function(data){
+                             y1 <-as.double(data$yr)
+                             p1<-min(y1)
+                             y<-log(y1-p1+10*.Machine$double.eps)
+                             x<-as.double(data$xr)
+                             b1<-lm(y~x)
+                             p2<- -b1$coefficients[1]
+                             p3<- b1$coefficients[2]
+                             return(list(p1=p1,p2=p2,p3=p3))
+                         },
+                         name="Scaled Exp convex",
+                         start=list(p1=700,p2=21,p3=0.01)
+ )
>  carbon.ols <- nlr(formula=ScalExp, data=crbdt, 
+                   control=nlr.control(method="OLS"))
> plot(carbon.ols,control=nlr.control(history=TRUE))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
nlr
 --- call from context --- 
is.Fault(.expr3)
 --- call from argument --- 
if (class(obj) == "Fault") if (obj$FL) return(T) else return(F)
 --- R stacktrace ---
where 1: is.Fault(.expr3)
where 2: parInfer(nlfited)
where 3: parInfer(nlfited)
where 4: predictionI(x)
where 5: predictionI(x)
where 6: .local(x, y, ...)
where 7: plot(carbon.ols, control = nlr.control(history = TRUE))
where 8: plot(carbon.ols, control = nlr.control(history = TRUE))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (obj) 
{
    if (class(obj) == "Fault") 
        if (obj$FL) 
            return(T)
        else return(F)
    flt2 <- F
    if (.hasSlot(obj, "Fault")) 
        if (obj$Fault$FL) 
            flt2 <- T
    return(flt2)
}
<bytecode: 0x558d64824d98>
<environment: namespace:nlr>
 --- function search by body ---
Function is.Fault in namespace nlr has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1