Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
plot(1,1,type = "n", xlim = c(0,12), axes = FALSE ,xlab = "", ylab = "")
axis(3)
l <- seq_log(10^0,10^12,divide = TRUE)
convertAxis(1,y ~ log10(x),l[[1]],l[[2]])
# }
Run the code above in your browser using DataLab