Hi,
I'm trying to modify this function.I want to remove the existing xaxis(the
tick marks and the values below each tick) and make it dynamic so that i can
choose whether i want the xaxis at the top or bottom but i cant seem to
change that.can somebody help me?

plot.Sample <- function(x,xlab=NULL,ylab=NULL,...){
  sampletest <- is.Sample(x,argname="'x' ")
  if (!sampletest$test) stop(sampletest$error)
  s <- loadSample(x,filecheck=FALSE)
  s <- normalize(s)
  if (channels(s)==1) {
#    if (is.null(ylab)) ylab <- "waveform"

plot(sound(s)[1,],type="l",col="black",xlab=xlab,ylab=ylab,axes=FALSE,...)

#    axis(1)
#    axis(2,at=c(-1,0,1),labels=as.character(c(-1,0,1)))
#    abline(h=0)
#    abline(h=c(-1,1))
#    lines(par()$usr[1:2],y=c(rep(par()$usr[3],2)),xpd=TRUE)


-- 
Rajesh.J

	[[alternative HTML version deleted]]


