another try at novice R lesson