suppressed plot of selectivity function, changed output of gif from animation.gif, to Page 6.gif, commented out setwd()