ugd() # Initialize graphics device
# Plot something
x <- seq(0, 3 * pi, by = 0.1)
plot(x, sin(x), type = "l")
# Render plot as SVG
ugd_render(width = 600, height = 400, as = "svg")
dev.off() # alternatively: ugd_close()
Run the code above in your browser using DataLab