Использование функции lapply в R