powered by
wiggleimage(Arot, dt = 1, dx = 1, col = "black")
S1 = symshot1() wiggleimage(S1$smograms, dt = -S1$dt, dx = S1$x, col = "black")
Run the code above in your browser using DataLab