R mini assignment