changed and cleaned up ecoli.R