Как написать функцию в R?