Running examples in 'depmixS4-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: vcov
> ### Title: Parameter standard errors
> ### Aliases: vcov confint standardError hessian vcov,mix-method
> ###   confint,mix-method standardError,mix-method hessian,mix-method
> ### Keywords: methods
> 
> ### ** Examples
> 
> 
> 	data(speed)
> 
> 	# 2-state model on rt and corr from speed data set 
> 	# with Pacc as covariate on the transition matrix
> 	# ntimes is used to specify the lengths of 3 separate series
> 	mod1 <- depmix(list(rt~1,corr~1),data=speed,transition=~Pacc,nstates=2,
+ 		family=list(gaussian(),multinomial("identity")),ntimes=c(168,134,137))
> 	
> 	# fit the model
> 	set.seed(3)
> 	fmod1 <- fit(mod1)
converged at iteration 26 with logLik: -248.9722 
> 	
> 	vcov(fmod1)$vcov # $
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
depmixS4
 --- call from context --- 
hessian2vcov(hs$hessian, lincon)
 --- call from argument --- 
if (class(di) == "try-error") {
    warning("Hessian singular, ses could not be computed.")
    vcov <- 0
} else {
    ada <- A %*% di %*% t(A)
    adai <- try(solve(ada), silent = TRUE)
    if (class(adai) == "try-error") {
        warning("Near-singular hessian, ses may be bad.\n")
        diag(ada) <- diag(ada) * 1.000001
        adai <- try(solve(ada))
        if (class(adai) == "try-error") {
            warning("Corrected hessian also singular, ses computed without contraints.\n")
        }
        else {
            vcov <- di - di %*% t(A) %*% adai %*% A %*% di
        }
    }
    else {
        vcov <- di - di %*% t(A) %*% adai %*% A %*% di
    }
}
 --- R stacktrace ---
where 1: hessian2vcov(hs$hessian, lincon)
where 2: .local(object, ...)
where 3: vcov(fmod1)
where 4: vcov(fmod1)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (hessian, lincon = NULL) 
{
    np <- dim(hessian)[1]
    if (!(dim(hessian)[1] == dim(hessian)[2])) 
        stop("'hessian' should be a square matrix")
    if (!is.null(lincon)) {
        nc <- ncol(lincon)
        if (np != nc) 
            stop("Nr of columns in linear constraint matrix not compatible with 'hessian' dimension")
        if (nrow(lincon) > 0) {
            A <- lincon
            d <- hessian + t(lincon) %*% lincon
            di <- try(solve(d), silent = TRUE)
            if (class(di) == "try-error") {
                warning("Hessian singular, ses could not be computed.")
                vcov <- 0
            }
            else {
                ada <- A %*% di %*% t(A)
                adai <- try(solve(ada), silent = TRUE)
                if (class(adai) == "try-error") {
                  warning("Near-singular hessian, ses may be bad.\n")
                  diag(ada) <- diag(ada) * 1.000001
                  adai <- try(solve(ada))
                  if (class(adai) == "try-error") {
                    warning("Corrected hessian also singular, ses computed without contraints.\n")
                  }
                  else {
                    vcov <- di - di %*% t(A) %*% adai %*% A %*% 
                      di
                  }
                }
                else {
                  vcov <- di - di %*% t(A) %*% adai %*% A %*% 
                    di
                }
            }
        }
        else {
            vcov <- solve(hessian)
        }
    }
    else {
        vcov <- solve(hessian)
    }
    vcov
}
<bytecode: 0x488c9a0>
<environment: namespace:depmixS4>
 --- function search by body ---
Function hessian2vcov in namespace depmixS4 has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1