library(MazamaTimeSeries)
# Untrimmed range
range(example_mts$data$datetime)
# Replace the first 50 data values for all non-"datetime" columns
example_mts$data[1:50, -1] <- NA
# Trimmed range
mts_trimmed <- mts_trim(example_mts)
range(mts_trimmed$data$datetime)
Run the code above in your browser using DataLab