# Manipulate function to generate outliers

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? – N.J.Evans Mar 1 '16 at 21:45
• 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[ReplacePart[data3, {50, 2} -> i]], {i, 0.0, 100}]; may be ,.....but its not printing anything....the plot etc – kranthi kumar Mar 1 '16 at 21:47
• You need to get rid of the ; after your manipulate, it's suppressing the output. – N.J.Evans Mar 1 '16 at 21:49
• Yes...It works..Thank you. :D – kranthi kumar Mar 2 '16 at 0:51
• hi N.J.Evans......can you help me with this question...an extension to current one.mathematica.stackexchange.com/questions/109151/… – kranthi kumar Mar 5 '16 at 7:54

Thanks to the comment by @N.J.Evans above:

Manipulate[ListPlot[ReplacePart[data3, {50, 2} -> i]], {i, 0.0, 100}]

• Consider acknowledging in this answer the comment by @N.J.Evans. – bbgodfrey Mar 2 '16 at 1:25
• Yes...Thank you N.J.Evans for the answer.. and Thank you bbgodfrey for your suggestion .... – kranthi kumar Mar 2 '16 at 1:27