cleaned up.  Good working copies.  R and Rstudio, dplyr package updates have somehow disabled the summarize function, rewrote using loops to get around it, but should use more apply and summarize if rewritten.