$\bold\math{%v}$

\text{Use the slider to explore correlation coefficients.}

\textsf{Correlation coefficient }(r)

$\textsf{NEW DATA}$

example = 30
v1s = Shuffle(Sequence[-4, -1, 0.2])
v2s = Shuffle(Sequence[0, 4, 0.2])
frequencies = Shuffle({1 / 10, 1 / 5, 1 / 3, 1 / 2, 1, 3, 4, 5, 9, 10})
AppSize = Corner(5)
MoveGuideLine = (-5.0665210464023005, -5.528101594730434)
hGuideline: y = y(MoveGuideLine)
vGuideline: x = x(MoveGuideLine)
r = 0 (slider from -1 to 1, step 0.01)
v1 = Element(v1s, Mod[example, Length[v1s]] + 1)
v2 = Element(v2s, Mod[example, Length[v2s]] + 1)
g = Line((-5, v1), (5, v2))
slp = Slope(g)
l2 = Sequence(RandomNormal[0, (((1 - r^(2)) * (r^(2) + 0.1)) * 5)], ii, 1, 100)
l1 = Sample(Sequence[-5, 5, 0.1], 100, true)
frec = Element(frequencies, Mod[example, Length[frequencies]] + 1)
h1(x) = (5 * cos(((frec * 3) * x)))
vGuideline' = Translate(vGuideline, Vector[(Vector[Corner[1], Corner[2]] / 800 * 16)])
ViewCorner1_{1}: (-5, -5)
ViewCorner3_{1}: (5, 5)
q1_{1} = Polygon({ViewCorner1_{1}, (x(ViewCorner3_{1}), y(ViewCorner1_{1})), ViewCorner3_{1}, (x(ViewCorner1_{1}), y(ViewCorner3_{1}))})
xAxisFake_{1} = Segment((x(ViewCorner1_{1}), 0), (x(ViewCorner3_{1}), 0))
yAxisFake_{1} = Segment((0, y(ViewCorner1_{1})), (0, x(ViewCorner3_{1})))
text1_{1} = Text("x", (x(ViewCorner3_{1}), 0.1), true, true, 1, 0)
text2_{1} = Text("y", (0, y(ViewCorner3_{1})), true, true, 0, 1)
hGuideline' = Translate(hGuideline, Vector[(Vector[Corner[1], Corner[4]] / 500 * 16)])
Cor1 = (-11.661782609259701, -7.011270954012842)
Cor3 = (11.661782609259701, 7.587768621668879)
ord: y(Intersect[g, yAxis])
f(x) = (slp * x) + ord
l3 = Zip((xx, (r * f(xx)) + (h1(xx) * (1 - abs(r))) + ii), xx, l1, ii, l2)
l4 = KeepIf(abs(y(PP)) ≤ 5, PP, l3)
a = PMCC(l4)
A: (r, a)