Code : Tout sélectionner
toto <- as.matrix(1:10)
for(i in letters) {
write.table(toto, gsub(":", "-", paste(i, Sys.time(), ".txt", sep = "")), row.names = F)
}
Code : Tout sélectionner
tab$Jour == (1:5)
Code : Tout sélectionner
is.element(tab$Jour, 1:5)
Code : Tout sélectionner
win.metafile("test.wmf")
plot(0)
dev.off()
Code : Tout sélectionner
> cat(deparse(form[[2]]))
dn$a>
> paste(deparse(form[[2]])," en fonction de ",deparse(form[[3]]))
[1] "dn$a en fonction de dn$b"