R vignette code updated