tightened up interventionTable.R and incorporated some results into draft