function(x, y, ...)
{
opt.arg.list <- list(...)
i <- 1
for(arg in opt.arg.list) {
cat(paste("Arg", i, " = ", "'", arg, "'", "\n", sep = ""))
i <- i + 1
}
plot(x, y, ...)
}
Other places to look: