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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
