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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: multiridge-package
> ### Title: Fast cross-validation for multi-penalty ridge regression
> ### Aliases: multiridge-package multiridge
> ### Keywords: package
> 
> ### ** Examples
> 
> data(dataXXmirmeth)
> resp <- dataXXmirmeth[[1]]
> XXmirmeth <- dataXXmirmeth[[2]]
> 
> # Find initial lambdas: fast CV per data block separately.
> cvperblock2 <- fastCV2(XXblocks=XXmirmeth,Y=resp,kfold=10,fixedfolds = TRUE)
[1] "Initial penalties:"
[1] 100
[1] "Using Brent for optimization"
[1] "Initial penalties:"
[1] 100
[1] "Using Brent for optimization"
> lambdas <- cvperblock2$lambdas
> 
> # Create (repeated) CV-splits of the data.
> leftout <- CVfolds(Y=resp,kfold=10,nrepeat=3,fixedfolds = TRUE)
> 
> # Compute cross-validated score for initial lambdas
> CVscore(penalties=lambdas, XXblocks=XXmirmeth,Y=resp,folds=leftout,
+ score="loglik")
[1] "Error: Number of penalty parameters should equal number of blocks"
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
Error in P1W %*% GammaW : non-conformable arguments
[1] "penalties:"
list()
[1] "CV-score: -0.693"
[1] -0.6931472
> 
> # Optimizes cross-validate criterion (default: log-lik)
> # Increase the number of iterations for optimal results
> jointlambdas <- optLambdasWrap(penaltiesinit=lambdas, XXblocks=XXmirmeth,Y=resp,
+ folds=leftout,score="loglik",save=T, maxItropt1=5, maxItropt2=5)
[1] "Initial penalties:"
list()
[1] "Using SANN for optimization"
Error in assign("allscores", c(), envir = baseenv()) : 
  cannot add binding of 'allscores' to the base environment
[1] "Initial penalties:"
list()
[1] "Using Nelder-Mead for optimization"
Error in assign("allscores", c(), envir = baseenv()) : 
  cannot add binding of 'allscores' to the base environment
Calls: optLambdasWrap -> optLambdas -> assign
Execution halted