and one in R: