# exemple de script R annee <- 2013 essai <- c(1,8) cat(" tout va bien pour l'année ",2013,".\n Voici la date et l'heure :") date() essai # est-ce affiché ? nba <- 10 # nombre de valeurs aléatoires cat("voici ",nba," nombres entiers \"au hasard\" (enfin, presque)\n") print( round(runif(n=nba,min=1,max=50)) )