Added inline R code