added real R code
version 1
submited to rbubs - 1.0
added code