How to use Manipulate[]
to make a point move vertically and become an outlier? Here I am trying to make $50$-th point move vertically.I have tried as below:
n = 100;
data3 = Table[{t, t^2 + 0.4 RandomReal[]}, {t, 0.0, 10.0, 10/n}];
Print [data3];
point = Part[data3, 50];
Manipulate[ListPlot[data3], {data3[[1]], 0.0, 10}];
Manipulate[ListPlot[ReplacePart[data3, {50, 2} -> i]], {i, 0.0, 100}]
Is that what you want? $\endgroup$;
after your manipulate, it's suppressing the output. $\endgroup$