if (FALSE) {
beta <- matrix(c(1,-2,3,1),ncol=2)
mr <- multiRun(...) #see bootstrap example in ?multiRun
#mr[[i]] is a list of estimated parameters matrices
mu <- normalize(beta)
for (i in 1:2)
mr[[i]] <- alignMatrices(res[[i]], ref=mu, ls_mode="exact")
params <- rbind( c(.5,.5), beta, c(0,0) ) #p, beta, b stacked in a matrix
plotCoefs(mr[[1]], params)}
Run the code above in your browser using DataLab