begin{figure}
begin{center}

animategraphics[controls,width=.8linewidth]{20}{Rplot8_7}{}{}

end{center}
end{figure}