Как написать цикл в R?