## example usage
set.seed(271)
U <- rCopula(200, tCopula(0.8, df=3))
doPDF <- dev.interactive(orNone=TRUE)
if(doPDF) pdf(file=(file <- "myfile.pdf"), width=6, height=6)
plot(U, xlab=expression(italic(U[1])), ylab=expression(italic(U[2])))
if(doPDF) dev.off.pdf(file=file)
Run the code above in your browser using DataLab