added function to plot with manipulate package