小生这厢有礼了(BioFaceBook Personal Blog)

可重复的示例：

the_plot <- function() { x <- seq(0, 1, length.out = 100) y <- pbeta(x, 1, 10) plot( x, y, xlab = “False Positive Rate”, ylab = “Average true positive rate”, type = “l” ) }

png( “test.png”, width = 3.25, height = 3.25, units = “in”, res = 1200, pointsize = 4 ) […]