Example growth r code