# NOT RUN {
data(sp5)
# replace default metadata with itself
metadata(sp5) <- metadata(sp5)
# set new metadata attribute value
metadata(sp5)$newvalue <- 'foo'
# get metadata attribute
metadata(sp5)$newvalue
# }
Run the code above in your browser using DataLab