xs <- -200:200
para <- vec2par(c(37,25,114), type="st3")
plot(xs, pdfst3(xs, para), type='l')
para <- vec2par(c(11,36,1000), type="st3")
lines(xs, pdfst3(xs, para), lty=2)
para <- vec2par(c(-7,60,40), type="st3")
lines(xs, pdfst3(xs, para), lty=3)
Run the code above in your browser using DataLab