SetDirectory["~/Desktop"];
data=Import["CoffeeFilter.csv"];
filter13=data[[3;;23,{1,2}]];
filter9=data[[3;;22,{1,3}]];
filter6=data[[3;;23,{1,4}]];
filter4=data[[3;;26,{1,5}]];
filter2=data[[3;;37,{1,6}]];
filter1=data[[3;;51,{1,7}]];
ballfilter=data[[3;;15,{1,8}]];
ball=data[[3;;15,{1,9}]];

Manipulate[
soln=NDSolve[
{y''[t]==-9.8-(b/m)*y'[t]-(c/m)*y'[t]*Abs[y'[t]],
y'[0]==v0,
y[0]==y0},
{y},{t,0,10}];
Show[
ListPlot[
{dSet},
PlotRange->{{0,tmax},{0,1.7}},
PlotStyle->{RGBColor[0.2,0.4,1.0]},
PlotMarkers->{●,Medium},
Frame->{{True,True},{True,True}},
LabelStyle->({FontSize->14,FontFamily->"Times"}),
PlotRangeClipping->False,
ImagePadding->{{40,10},{35,10}},
ImageSize->600,
AspectRatio->0.75,
Epilog->{
{
Text[Style["Time (s)",{FontSize->14,FontFamily->"Times"}],{tmax/2,-0.1}],
Text[Style["Position (m)",{FontSize->14,FontFamily->"Times"}],{-0.066*tmax+.008,0.85},{0,0},{0,1}]
}
}
],
Plot[
{{y[t]}/.soln},{t,0,1.6}
]
],
{{dSet,filter1,"Data Set"},{filter1->"1 Filter",filter2->"2 Filters",filter4->"4 Filters",filter6->"6 Filters",filter9->"9 Filters",filter13->"13 Filters",ballfilter->"Ball & Filter",ball->"Ball"}},
{{m,0.00164,"mass"},{0.00164->"1 Filter - 1.64 g",0.00328->"2 Filters - 3.28 g",0.00656->"4 Filters - 6.56 g",0.00984->"6 Filters - 9.84 g",0.01476->"9 Filters - 14.76 g",0.02132->"13 Filters - 21.32 g",0.06754->"Ball & Filter - 67.54 g",0.0659->"Ball - 65.9 g"}},{{y0,1.654,"(Subscript[y, 0])"},1.5,1.8, 0.001,Appearance->"Labeled"},
{{v0,0,"(Subscript[v, 0])"},-1.5,0.5, 0.01,Appearance->"Labeled"},
{{tmax,1.6,"(Subscript[t, max])"},0.6,1.6, 0.05,Appearance->"Labeled"},
{{b,0,"b"},0,0.1, 0.001,Appearance->"Labeled"},
{{c,0,"c"},0,0.05, 0.001,Appearance->"Labeled"}
]