Examples## Not run: ## Test function for encodingsTestChars <- function(encoding = "ISOLatin1", ...){ pdf(encoding = encoding, ...) par(pty = "s") plot(c(-1,16), c(-1,16), type = "n", xlab = "", ylab = "", xaxs = "i", yaxs = "i") title(paste("Centred chars in encoding", encoding)) grid(17, 17, lty = 1) for(i in c(32:255)) { x <- i %% 16 y <- i %/% 16 points(x, y, pch = i) } dev.off()}## there will be many warnings.TestChars("ISOLatin2")## this does not view properly in older viewers.TestChars("ISOLatin2", family = "URWHelvetica")## works well for viewing in gs-based viewers, and often in xpdf.## End(Not run) 运行以后,pdf文档在哪里?谢谢!