# NOT RUN {
data(mydata)
df <- rpp_read2(mydata , selected=c(2, 3, 4, 0, 0, 1, 0, 0))
time_wave <- df$raw_time
resp_wave <- data.frame(df$strain,df$strain_rate,df$stress)
out <- Rpp_num(time_wave, resp_wave , L=1024, k=8, num_mode=1)
time_wave= out$spp_data_out$time_wave
stress= out$spp_data_out$stress
time_wave_in= out$spp_data_in$time_wave
strain_rate= out$spp_data_in$strain_rate
plotTimeStress(time_wave,stress,time_wave_in,strain_rate)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab