fix example with defaultColors and save R code