Fine tuning , show the results of R code  "results='hold'"