# on choisit le dossier dans lequel on veut sauver le fichier

setwd("U:/simulations")


# on crée un jeu de données,
#ici on simule une densité de probabilité d'une loi normale de moyenne 2 et d'écart type 0.5

v<-seq(0,7,by=0.1)
a<-dnorm(v,mean=2,sd=0.5)
plot(v,a) # on vérifie visuellement

#on crée un dataframe avant de le sauver

data<-data.frame(TL=v,F=a)

# on utilise la fonction write.table, voir ?write.table
# ne pas oublier le .csv à la fin du nom du fichier excel "data.csv"

write.table(data, "data.csv", row.names=FALSE, sep="t",dec=",", na=" ")