[R] How do I get a rough quick utility plot of a time series?

[Hurr]

A friend of mine added plot code to the function SimpleTS() as follows 
but it misses the single point between two missing points:

SimpleTS <- function() { 
  fileStg <- "C:/ad/dta/TryRRead/Rcode/SHIYU/SimpleTS.dta" 
  titleline <- readLines(fileStg, n=1) 
  print(titleline) 
  dta <- read.table(fileStg, skip = 1, header = TRUE, sep = ",", colClasses
= "character")
  print(dta) 
  dta=linearizeTime(dta) 
  print(titleline) 
  print(dta) 
  #Plot code starts
  N=ncol(dta)-1 # N function columns 
  layout(matrix(seq(from=0,to=N,by=1),ncol=1),heights =
c(0.1,rep(0.8,N-1),1))
  for(i in 2:N) { # numb of functs -1 #leave first subplot blank.
    mar<-c(0,4,0,1)
    par(mar = mar)
   
plot(dta[,1],dta[,i],xlab="",ylab=colnames(dta)[i],axes=F,pch="*",type="l")
    box()
  }
  mar<-c(4,4,0,1)
  par(mar=mar,las=0)
 
plot(dta[,1],dta[,N+1],xlab="",ylab=colnames(dta)[N+1],axes=F,pch="*",type="l")
  axis(1)
  title(xlab="time")
  box()
  #plot ends
} #end SimpleTS 
SimpleTS()


--
View this message in context: http://r.789695.n4.nabble.com/How-do-I-get-a-rough-quick-utility-plot-of-a-time-series-tp4522709p4538842.html
Sent from the R help mailing list archive at Nabble.com.