fixed the R scripts based on simp imp exp