of plot( type="n")
for
persp.perspEmpty(x1, x2, y, x1lab, x2lab, ylab, ...)
x1 <- 1:10
x2 <- 40:50
y <- rnorm(10)
perspEmpty(x1, x2, y)
res <- perspEmpty(x1, x2, y, ticktype="detailed", nticks=10)
mypoints1 <- trans3d ( x1, x2, y, pmat = res )
points( mypoints1, pch = 16, col= "blue")
Run the code above in your browser using DataLab