R prog assign 2 take 2