### load sample depth and temperature time series data from miniPAT:
ts_file <- system.file("example_files/104659-Series.csv",package="RchivalTag")
ts_df <- read.table(ts_file, header = TRUE, sep = ",")
head(ts_df)
ts_df$datetime <- as.POSIXct(strptime(paste(ts_df$Day, ts_df$Time),
"%d-%b-%Y %H:%M:%S",tz = "UTC"))
tsims <- resample_TS(ts_df,600)
length(tsims)
Run the code above in your browser using DataLab