r语言for循环语句案例