# 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_fft(time_wave,resp_wave,L=1024,omega=3.16 , M=15,p=1)
ft_amp= out$ft_out$ft_amp
fft_resp= out$ft_out$fft_resp
spp_params= out$spp_params
plotFft(ft_amp,fft_resp,spp_params)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab