semilog.R
##
## s e m i l o g . R
##
semilogx <- function(x, y, ...) {
plot(x, y, log = "x", ...)
grid()
}
semilogy <- function(x, y, ...) {
plot(x, y, log = "y", ...)
grid()
}
loglog <- function(x, y, ...) {
plot(x, y, log = "xy", ...)
grid()
}