Nothing
# this function is basically a wrapper for axis with msectopoints embedded and with some little additional features.
# for finer tuning use directly axis (see also par).
## NOTICE!! If you call this after another axis, then you cannot use anymore the y.pos parameter. you have to use the
erp.yaxis <- function (length.erp = NULL, startmsec=-200, endmsec = 1200, y.tick=seq(-6,6,2), y.labels = y.tick, y.pos = NA, y.outer = FALSE, y.font = NA, y.lty = "solid", y.lwd = 1, y.lwd.ticks = 1, y.col = NULL, y.col.ticks = NULL, y.hadj=NA, y.padj = NA, y.tcl = -0.5, y.tick.both= FALSE, y.cex = 1)
{
if (!is.na(y.pos)){
y.pos=msectopoints(y.pos, length.erp, startmsec, endmsec)
}
# tick and labels positions
axis(2, at= y.tick, labels=y.labels, pos= y.pos, tick = y.tick, outer = y.outer, font = y.font, lty = y.lty, lwd = y.lwd, lwd.ticks = y.lwd.ticks, col = y.col, col.ticks = y.col.ticks, padj = y.padj, tcl = y.tcl, cex.axis = y.cex)
if (y.tick.both==TRUE){
axis(2, at= y.tick, labels= FALSE, pos= y.pos, tick = y.tick, outer = y.outer, font = y.font, lty = y.lty, lwd = y.lwd, lwd.ticks = y.lwd.ticks, col = y.col, col.ticks = y.col.ticks, hadj = y.hadj, padj = y.padj, tcl = - y.tcl) # NOTICE the minus: it is for plotting in the other direction
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.