updated init.R, more interesting example