Update projet1.R