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