>
|
with(stats[statplots]):
Xdata := [4.535, 4.029, 5.407, 1.605, 5.757, 3.527, 7.890, 8.159, 6.092,
13.442, 2.845, 5.172, 3.277, 8.810, 3.657, 7.226, 3.851, 2.162,
2.668, 4.692]:
Ydata:= [7.454, 4.476, 2.873, 5.476, 9.975,-1.476, 1.033, 1.140, 4.813,
.450, -.788, 9.389, 4.811,-3.107, 4.407, 5.534, 1.691, -.789,
1.684, 1.605]:
plots[display]({
scatterplot(Xdata,Ydata), # scatter plot
boxplot(Ydata,shift=15), # boxplot in right margin
xyexchange(boxplot(Xdata,format=notched,shift=12)) # notched box at top
}, view =[0..17,-4..14], axes=FRAME);
|