# sample data
data('sp4')
# promote to SPC
depths(sp4) <- id ~ top + bottom
# duplicate each profile 2 times
d <- duplicate(sp4, times = 2)
# graphical check
par(mar = c(0, 0, 3, 1))
plotSPC(d, color = 'Ca', width = 0.25)
Run the code above in your browser using DataLab