updated edmr example with data.frame object