# NOT RUN {
data(puechcirc)
puechcirc
## To see the ID and the burst
id(puechcirc)
burst(puechcirc)
## Change the burst
burst(puechcirc) <- c("glou", "toto", "titi")
puechcirc
burst(puechcirc)[2] <- "new name"
puechcirc
## Change the ID
id(puechcirc)[id(puechcirc)=="CH93"] <- "WILD BOAR"
puechcirc
# }
Run the code above in your browser using DataLab