R lang examples