The problem only seems to occur when there's one element in the zero set? I suspect it's something to do with R's types. R is complaining of non-conformable arrays.
Rerun with Debug
Error in diag(as.matrix(mult$mC[zero.set, ]) %% mult$mLambda %% t(as.matrix(mult$mC[zero.set, :
error in evaluating the argument 'x' in selecting a method for function 'diag': Error in as.matrix(mult$mC[zero.set, ]) %*% mult$mLambda :
non-conformable arguments
The problem only seems to occur when there's one element in the zero set? I suspect it's something to do with R's types. R is complaining of non-conformable arrays.
Rerun with Debug Error in diag(as.matrix(mult$mC[zero.set, ]) %% mult$mLambda %% t(as.matrix(mult$mC[zero.set, : error in evaluating the argument 'x' in selecting a method for function 'diag': Error in as.matrix(mult$mC[zero.set, ]) %*% mult$mLambda : non-conformable arguments