Update Roediger_2014.R

example 2 update