powered by
unwrap(a, tol = pi, dim = 1)
phase <- c(seq(0, 2*pi, length=500), seq(0, 2*pi, length=500)) plot(phase, type = "l", ylim = c(0, 4*pi)) lines(unwrap(phase), col = "blue")
Run the code above in your browser using DataLab