scurve = loadDataSet("3D S Curve")
if(requireNamespace("graphics", quietly = TRUE))
plot(scurve, type = "pairs", main = "pairs plot of S curve")
if(requireNamespace("MASS", quietly = TRUE))
plot(scurve, type = "parpl")
if(requireNamespace("graphics", quietly = TRUE))
plot(scurve, type = "2vars", vars = c("y", "z"))
if(requireNamespace("scatterplot3d", quietly = TRUE))
plot(scurve, type = "3vars")
if(requireNamespace("rgl", quietly = TRUE))
plot(scurve, type = "3varsrgl")
Run the code above in your browser using DataLab