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