added egan's R file