Nothing
# Initialize the gnuplot handle
h1 <- Gpinit()
# set gnuplot's additional search directories, to the extdata directory from Rgnuplot (default)
Gpsetloadpath(h1)
# change gnuplot's working directory to be the same as R's working directory (default)
Gpsetwd(h1)
# filename for a temporary path+file
tmpfile <- tempfile()
Gpgetloadpath(h1)
Gpgetwd(h1)
getwd()
z <- matrix(sample(1:6, 6^2, replace = TRUE), 6, 6, byrow = FALSE)
z
GpMatrixr2gnu(z, "6x6.dat")
Gpcmd(h1, "reset\nmin = 0\ncol = 5\ngridflag = 0\ndatfile = \"6x6.dat\"\ntmpfile = \"" %s% tmpfile %s% "\"\nload \"fenceplot.gnu\"") #
# pause R and gnuplot
Gppause()
tmpfile <- tempfile()
Gpcmd(h1, "reset\nmin = 0\ncol = 5\ngridflag = 1\ndatfile = \"6x6.dat\"\ntmpfile = \"" %s% tmpfile %s% "\"\nload \"fenceplot.gnu\"")
# pause R and gnuplot
Gppause()
# close gnuplot handle
h1 <- Gpclose(h1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.