Defines functions plot.tgram

Documented in plot.tgram

plot.tgram <-
function(x, xlim=NULL, ylim=NULL, colores=c("red","green"),leyenda = c("lumen","double wall"), lwd=2, add=FALSE,traq.0=TRUE,bg.legend=NULL,...)

traq <- x$traq
puntos <- x$cut.points
que <- x$what

            s<- 1:(length(puntos[,1])-1)
if (add==FALSE) plot(traq, type="l", xlim=xlim, ylim=ylim,...) else lines(traq, ...)
if(traq.0 ==TRUE) lines(x$traq0, col="pink")
points(puntos, col="red")
color <- colores[que]
segments(puntos[s,1],puntos[s,2],puntos[s+1,1],puntos[s+1,2], lwd=2,col=color )
legend(min(axis(1)),max(axis(2)),leyenda, col=colores, lwd=lwd,bg=bg.legend)

Try the tgram package in your browser

Any scripts or data that you put into this service are public.

tgram documentation built on May 1, 2019, 8:07 p.m.