#args <- commandArgs(TRUE)
# This works okay but I would like to replace 10 as a parameter though
x <- c(1:10)
y <- c(x^2)
png(filename="plot.png", bg="transparent")
plot(x, y)
dev.off()