Change example to demonstrate log scale

man/axes3d.Rd

@@ -149,21 +149,21 @@ box around the plot, and
 
   # add titles
   title3d('main', 'sub', 'xlab', 'ylab', 'zlab')
-
-  rgl.bringtotop()
   
+  # Use a log scale for z
+    
   open3d()
-  points3d(rnorm(10), rnorm(10), rnorm(10))
   
-  # Use fixed axes
+  x <- rnorm(10)
+  y <- rnorm(10)
+  z <- exp(rnorm(10, mean = 3, sd = 2))
+  logz <- log10(z)
+  zticks <- axisTicks(range(logz), log = TRUE)
+  zat <- log10(zticks)
   
-  axes3d(c('x', 'y', 'z'))
-         
-  # Put 4 x-axes on the plot
-  axes3d(c('x--', 'x-+', 'x+-', 'x++'))         
+  plot3d(x, y, logz, zlab = "z")
+  axes3d(zat = zat, zlab = zticks, box = TRUE)
   
-  axis3d('x', pos = c(NA, 0, 0))     
-  title3d('main', 'sub', 'xlab', 'ylab', 'zlab')
 }