axfun <-
function(side, ...) {
if(side == "bottom")
{
w = seq(-2500, -1000, by = 500)
wlab = as.character(-w)
panel.axis(side=side, at = w, labels = wlab, outside=T, rot=0)
}
if(panel.number()==1)
{
if(side == "left")
{
w = seq(-1000, -200, by = 200)
wlab = as.character(-w)
panel.axis(side=side, at = w, labels = wlab, outside=T, rot=0)
}
}
# else
# axis.default(side = side, ...)
}