# Split the example vpts into two separate time series, one containing
# profile 1-10 and a second containing profile 11-20
vpts1 <- example_vpts[1:10]
vpts2 <- example_vpts[11:20]
# Bind the two vpts together
vpts1_and_2 <- bind_into_vpts(vpts1, vpts2)
# Verify that the binded vpts now has 20 profiles, 10 from vpts1 and 10 from
# vpts2
summary(vpts1_and_2)
# Extract two profiles
vp1 <- example_vpts[1]
vp1
vp2 <- example_vpts[2]
vp2
# Bind the two profiles back into a vpts:
bind_into_vpts(vp1, vp2)
Run the code above in your browser using DataLab