x1 <- 1:10
x2 <- 41:50
y <- rnorm(10)
perspBox(x1, x2, y)
box <- perspBox(x1, x2, y, ticktype = "detailed", nticks=10)
mypoints1 <- trans3d( x1, x2, y, pmat = box )
points(mypoints1, pch = 16, col= "blue")
Run the code above in your browser using DataLab