# do not run
## Not run:
# args.player(mean)
# ## End(Not run)
## Not run:
# fun <- function(n = 100, m=0, sd=1, type="l", bty="n",
# xlim = c(0,1), col = "red", main = "title" ){
# x <- rnorm(n,m,sd)
# plot(x, type=type, bty=bty, xlim = xlim, col = col, main = main)
# }
# args.player(
# fun( n = 100, m = 5, sd = 10, type = "l", bty = "n",
# xlim = c(0,10), col = "blue", main = "effect of plot parameters" ),
# main="some plot test"
# )
# ## End(Not run)
Run the code above in your browser using DataLab