set.seed () и ГСЧ в R