x <-
c(0, 0.172413793103448, 0.344827586206897, 0.517241379310345,
0.689655172413793, 0.862068965517241, 1.03448275862069, 1.20689655172414,
1.37931034482759, 1.55172413793103, 1.72413793103448, 1.89655172413793,
2.06896551724138, 2.24137931034483, 2.41379310344828, 2.58620689655172,
2.75862068965517, 2.93103448275862, 3.10344827586207, 3.27586206896552,
3.44827586206897, 3.62068965517241, 3.79310344827586, 3.96551724137931,
4.13793103448276, 4.31034482758621, 4.48275862068966, 4.6551724137931,
4.82758620689655, 5)
y <-
c(-1.20706574938542, 0.449843035214108, 1.42926876288995, -1.828456323319,
1.11877986122484, 1.36812485767482, 0.459742798486041, 0.660264695939951,
0.814858345734303, 0.661686308886931, 1.24694523128094, 0.898165279278227,
1.29271162260339, 2.3058381276211, 3.37328716241905, 2.47592140216095,
2.24761118384853, 2.01983906612881, 2.26627659559313, 5.69169724745486,
3.582364082221, 3.13000375848147, 3.35255557592264, 4.42510668238516,
3.44421078754528, 2.86213991719974, 5.05751434159038, 3.63151669082923,
4.81244790653237, 4.06405139883161)
N <-
30
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.