##load the data
data(mesa.data.model)
##Compute dimensions for the data structure
dim <- loglike.dim(mesa.data.model)
##Let's create random parameter vectors ...
x <- runif(dim$nparam.cov)
x.all <- runif(dim$nparam)
##... and pick them apart
get.params(x, dim)
get.params(x.all, dim)
Run the code above in your browser using DataLab