# NOT RUN {
data(puechcirc)
puechcirc
## Extract the second and third bursts
(toto <- puechcirc[2:3])
## Extracts all bursts collected on the animal JE
puechcirc[id = "JE93"]
## Replace one burst
toto[2] <- puechcirc[1]
toto
# }
Run the code above in your browser using DataLab