if (FALSE) {
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