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

> ### Name: CO2
> ### Title: Carbon Dioxide uptake in grass plants
> ### Aliases: CO2
> ### Keywords: datasets
> 
> ### ** Examples
> 
> require(stats); require(graphics)
> coplot(uptake ~ conc | Plant, data = CO2, show.given = FALSE, type = "b")
> ## fit the data for the first plant
> fm1 <- nls(uptake ~ SSasymp(conc, Asym, lrc, c0),
+    data = CO2, subset = Plant == 'Qn1')
> summary(fm1)

Formula: uptake ~ SSasymp(conc, Asym, lrc, c0)

Parameters:
     Estimate Std. Error t value Pr(>|t|)    
Asym  38.1398     0.9164  41.620 1.99e-06 ***
lrc  -34.2766    18.9661  -1.807    0.145    
c0    -4.3806     0.2042 -21.457 2.79e-05 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 1.663 on 4 degrees of freedom

Number of iterations to convergence: 0 
Achieved convergence tolerance: 1.663e-06

> ## fit each plant separately
> fmlist <- list()
> for (pp in levels(CO2$Plant)) {
+   fmlist[[pp]] <- nls(uptake ~ SSasymp(conc, Asym, lrc, c0),
+       data = CO2, subset = Plant == pp)
+ }

 *** caught segfault ***
address e0000052, cause 'memory not mapped'

Traceback:
 1: qr.qty(QR.rhs, .swts * lhs)
 2: assign("cc", c(topzero, qr.qty(QR.rhs, .swts * lhs)[-(1L:p1)]),     envir = thisEnv)
 3: (function () {    assign("cc", c(topzero, qr.qty(QR.rhs, .swts * lhs)[-(1L:p1)]),         envir = thisEnv)    rr <- qr.qy(QR.rhs, cc)    B <- qr.qty(QR.rhs, .swts * ddot(attr(rhs, "gradient"), lin))    B[1L:p1, ] <- dtdot(.swts * attr(rhs, "gradient"), rr)    R <- t(qr.R(QR.rhs)[1L:p1, ])    if (p1 == 1)         B[1, ] <- B[1, ]/R    else B[1L:p1, ] <- forwardsolve(R, B[1L:p1, ])    assign("QR.B", qr(B), envir = thisEnv)    rr <- qr.qty(QR.B, cc)    sqrt(fac * sum(rr[1L:p1]^2)/sum(rr[-(1L:p1)]^2))})()
 4: nls(y ~ cbind(1 - exp(-exp(lrc) * x), exp(-exp(lrc) * x)), data = xy,     start = list(lrc = lrc), algorithm = "plinear")
 5: coef(nls(y ~ cbind(1 - exp(-exp(lrc) * x), exp(-exp(lrc) * x)),     data = xy, start = list(lrc = lrc), algorithm = "plinear"))
 6: (attr(object, "initial"))(mCall = mCall, data = data, LHS = LHS)
 7: getInitial.selfStart(func, data, mCall = as.list(match.call(func,     call = object[[3L]])), LHS = object[[2L]], ...)
 8: getInitial(func, data, mCall = as.list(match.call(func, call = object[[3L]])),     LHS = object[[2L]], ...)
 9: getInitial.formula(formula, mf)
10: getInitial(formula, mf)
11: nls(uptake ~ SSasymp(conc, Asym, lrc, c0), data = CO2, subset = Plant ==     pp)
An irrecoverable exception occurred. R is aborting now ...