créer une serie variables par rapport à une fonction

# generates the seeds for random selection

n=10 
  job = unlist(lapply(runif(n,100,800),function(i){floor(i)}),use.names=FALSE)

créer des colonnes 

ND=10

Names=c("week","id","patho","poussee","douleur")
  PNames=c(Names,unlist(lapply(c(1:ND),function(i){paste0("P",i)}),use.names=FALSE))