scripts de simulation R