# NOT RUN {
test_data <- data.frame(
coef = c(2, 0.5),
low = c(1.5, 0.05),
high = c(3, 0.75),
boxsize = c(0.5, 0.5)
)
# Exponential form where the exponent base i 2 for easier understanding
getTicks(
low = test_data$low,
high = test_data$high,
clip = c(-Inf, Inf),
exp = TRUE
)
# Non exponential form with using pretty
getTicks(
low = test_data$low,
high = test_data$high,
clip = c(-Inf, Inf),
exp = FALSE
)
# A very simple example
getTicks(1:5 * 2.33,
exp = FALSE
)
# A slightly more advanced exponential version
getTicks(1:10 * .33,
digits = 2,
exp = TRUE
)
# }
Run the code above in your browser using DataLab