# example data
data(sp2, package = 'aqp')
depths(sp2) <- id ~ top + bottom
site(sp2) <- ~ surface
# copy pieces
x <- sp2[1:5, ]
y <- sp2[6:10, ]
# reset IDs and combine
profile_id(y) <- sprintf("%s-copy", profile_id(y))
# this should work
z <- pbindlist(list(x, y))
# check
plot(z)
Run the code above in your browser using DataLab