R init