1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
{
cat(x)
cat(" ")
moyenne <- print(mean(table1[[x]]))
moyenne <- round(moyenne, 8)
ecart <- print(sd(table1[[x]]))
ecart <- round(ecart, 8)
var <- print(var(table1[[x]]))
var <- round(var,8)
dirCor3 <- paste0(dirPath,"/plot")
dir.create(dirCor3)
mypath3 <- file.path(dirCor3,paste(x,".png", sep = ""))
png(filename = mypath3,width = 1000, height = 1000,units = 'px', pointsize = 12, bg = "white", res = NA,restoreConsole = TRUE)
plot(table1[[x]], main = names(table1[x]),las=1, cex.main=1, cex.lab=0.99, xlab = NULL, ylab = NULL,type="l")
dev.off()
} |
Partager