# Compare the edf's of two simulated sets of data.
data1 <- rvonmises(n=10, mu=0, kappa=3)
data2 <- rvonmises(n=10, mu=0, kappa=1)
plot.edf(data1, xlab="Data", ylab="EDF", main="Plots of Two EDF's")
lines.edf(data2, lty=2, col=2)
Run the code above in your browser using DataLab