powered by
plotarrivals(x, THEORY, add = FALSE)
S1 = symshot1() wiggleimage(S1$smograms , dt=(-S1$dt), dx=S1$dx) plotarrivals(S1$x, S1$THEORY, add = TRUE)
Run the code above in your browser using DataLab