# NOT RUN {
# Generate a random ensemble
m <- rmatrix(WishartModel(100,400))
# Select sub-matrices
library(datasets)
select(swiss, "Rive")
select(swiss, col.pat='^E')
select(swiss, "Rive", '^E') <- -1
dimnames <- list( c(rownames(swiss), 'Zermat', 'Zurich', 'Geneva'),
c(colnames(swiss), 'Age','Hair.Color') )
my.swiss <- expand(swiss, dimnames)
# }
Run the code above in your browser using DataLab