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

> ### Name: KenwardRoger
> ### Title: Ftest and degrees of freedom based on Kenward-Roger
> ###   approximation
> ### Aliases: KRmodcomp KRmodcomp.lmerMod KRmodcomp_internal KRmodcomp.mer
> ### Keywords: function
> 
> ### ** Examples
> 
> (fmLarge <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy))
Linear mixed model fit by REML ['lmerMod']
Formula: Reaction ~ Days + (Days | Subject)
   Data: sleepstudy
REML criterion at convergence: 1743.628
Random effects:
 Groups   Name        Std.Dev. Corr
 Subject  (Intercept) 24.740       
          Days         5.922   0.07
 Residual             25.592       
Number of obs: 180, groups:  Subject, 18
Fixed Effects:
(Intercept)         Days  
     251.41        10.47  
> ## removing Days
> (fmSmall <- lmer(Reaction ~ 1 + (Days|Subject), sleepstudy))
Linear mixed model fit by REML ['lmerMod']
Formula: Reaction ~ 1 + (Days | Subject)
   Data: sleepstudy
REML criterion at convergence: 1769.845
Random effects:
 Groups   Name        Std.Dev. Corr 
 Subject  (Intercept) 25.53         
          Days        11.93    -0.18
 Residual             25.59         
Number of obs: 180, groups:  Subject, 18
Fixed Effects:
(Intercept)  
      257.8  
> anova(fmLarge,fmSmall)
refitting model(s) with ML (instead of REML)
Data: sleepstudy
Models:
fmSmall: Reaction ~ 1 + (Days | Subject)
fmLarge: Reaction ~ Days + (Days | Subject)
        Df    AIC    BIC  logLik deviance  Chisq Chi Df Pr(>Chisq)    
fmSmall  5 1785.5 1801.4 -887.74   1775.5                             
fmLarge  6 1763.9 1783.1 -875.97   1751.9 23.537      1  1.226e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> KRmodcomp(fmLarge,fmSmall)

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

Traceback:
 1: unique.default(labels)
 2: unique(labels)
 3: .findInheritedMethods(classes, fdef, mtable)
 4: (function (classes, fdef, mtable) {    methods <- .findInheritedMethods(classes, fdef, mtable)    if (length(methods) == 1L)         return(methods[[1L]])    else if (length(methods) == 0L) {        cnames <- paste0("\"", vapply(classes, as.character,             ""), "\"", collapse = ", ")        stop(gettextf("unable to find an inherited method for function %s for signature %s",             sQuote(fdef@generic), sQuote(cnames)), domain = NA)    }    else stop("Internal error in finding inherited methods; didn't return a unique method",         domain = NA)})(list("ddiMatrix", "dpoMatrix"), function (x, y) standardGeneric("%*%", .Primitive("%*%")), <environment>)
 5: Is %*% from
 6: forceSymmetric(Is %*% from %*% Is)
 7: .class1(object)
 8: as(forceSymmetric(Is %*% from %*% Is), "dpoMatrix")
 9: .nextMethod(.Object = .Object, ... = ...)
10: callNextMethod()
11: initialize(value, ...)
12: initialize(value, ...)
13: new("corMatrix", as(forceSymmetric(Is %*% from %*% Is), "dpoMatrix"),     sd = unname(sd))
14: .set.factors(from, "correlation", new("corMatrix", as(forceSymmetric(Is %*%     from %*% Is), "dpoMatrix"), sd = unname(sd)))
15: asMethod(object)
16: as(rr, "corMatrix")
17: vcov.merMod(object)
18: vcov(object)
19: vcovAdj.lmerMod(largeModel, details)
20: vcovAdj(largeModel, details)
21: KRmodcomp.lmerMod(fmLarge, fmSmall)
22: KRmodcomp(fmLarge, fmSmall)
An irrecoverable exception occurred. R is aborting now ...