Running 'autoAxis.R' [149s]
  Running 'tfOnePlot.R' [0s]
  Running 'tfplot.R' [160s]
  Running 'utils.R' [161s]
Running the tests in 'tests/autoAxis.R' failed.
Complete output:
  >  require("tfplot")
  Loading required package: tfplot
  Loading required package: tframe
  >  
  > # See also
  > # - blog post :  http://www.packtpub.com/article/creating-time-series-charts-r
  > # - chart.TimeSeries in xts?
  > 
  > z <- ts(rnorm(30), start=c(1990,1), frequency=12)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > 
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG",
  +   YaxisR=TRUE, Yaxis.lab.rot = "horizontal")
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG",
  +   YaxisL=FALSE,YaxisR=TRUE, Yaxis.lab.rot = "horizontal")
  > 
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > 
  > z <- ts(rnorm(50), start=c(1990,1), frequency=12)
  > tfplot(z, Xaxis=NULL,   xlab= "time, time, time", source="Source: RNG")
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG", start=c(1991,1))
  > 
  > z <- ts(matrix(rnorm(80),40,2), start=c(1990,1), frequency=12)
  > tfplot(z, Xaxis=NULL,   xlab= "time, time, time")
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > z <- ts(matrix(rnorm(24),12,2), start=c(1990,1), frequency=12)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > z <- ts(rnorm(40), start=c(1990,6), frequency=12)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > z <- ts(rnorm(10), start=c(1990,1), frequency=12)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > 
  > z <- ts(rnorm(30), start=c(1990,2), frequency=4)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > z <- ts(rnorm(40), start=c(1990,1), frequency=4)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > 
  > z <- ts(rnorm(10), start=c(1990,1), frequency=1)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > tfplot(z, Xaxis=NULL,   xlab= "time, time, time")
  > 
  > z <- ts(rnorm(40), start=c(1990,1), frequency=1)
  > tfplot(z, Xaxis="auto", xlab= "time, time, time")
  > 
  > # require(zoo)
  > # z <- zooreg(rnorm(40), start=c(1990,1), frequency=12)
  > # tfplot(z, xlab= "time, time, time")
  > # tfplot(z, Xaxis=NULL,   xlab= "time, time, time", source="Source: RNG")
  > # tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > # 
  > # z <- zoo(rnorm(100), order.by=as.Date("2003-02-01")+1:100)
  > # tfplot(z, xlab= "time, time, time", source="Source: RNG")
  > # tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > # 
  > # z <- zoo(rnorm(1000), order.by=as.Date("2003-02-01")+1:1000)
  > # tfplot(z, Xaxis="auto", xlab= "time, time, time", source="Source: RNG")
  > 
  >  unlink("Rplots.pdf")
  > 
  > proc.time()
     user  system elapsed 
     0.28    0.12    0.37 
Running the tests in 'tests/tfplot.R' failed.
Complete output:
  >   require("tfplot")
  Loading required package: tfplot
  Loading required package: tframe
  > 
  >  Sys.info()
         sysname        release        version       nodename        machine 
       "Windows"   "Server x64"  "build 20348"     "CRANWIN3"       "x86-64" 
           login           user effective_user 
          "CRAN"         "CRAN"         "CRAN" 
  > 
  >   #x11()
  > #  postscript(file="lite.out.ps",  paper="letter", horizontal=F, onefile=T)
  > #             # width=6, height=8, pointsize=10,
  > 
  >   dat <- tframed(matrix(rnorm(300),100,3), list(start=c(1961,1), frequency=12))
  >   if(dev.cur() == 1) postscript(file=
  +      tempfile("GraphicsTest", tmpdir = tempdir(), fileext = "ps"))
  >  
  > # plot(dat)
  >   tfplot(dat)
  >   seriesNames(dat) <- c("newname 1", "newname 2", "newname 3")
  >   tfplot(dat)
  > 
  >  
  >  unlink("Rplots.pdf")
  > 
  > proc.time()
     user  system elapsed 
     0.31    0.06    0.31 
Running the tests in 'tests/utils.R' failed.
Complete output:
  >  require("stats")
  >  require("tfplot")
  Loading required package: tfplot
  Loading required package: tframe
  > 
  >  Sys.info()
         sysname        release        version       nodename        machine 
       "Windows"   "Server x64"  "build 20348"     "CRANWIN3"       "x86-64" 
           login           user effective_user 
          "CRAN"         "CRAN"         "CRAN" 
  > 
  > 
  > tmp <- tempfile()
  > 
  > z <- ts(matrix(100 + rnorm(200),100,2), start=c(1991,1), frequency=4)
  > tsWrite(z, file=tmp)
  > zz <- tsScan(tmp, nseries=2)
  Read 100 records
  > 
  > file.remove(tmp)
  [1] TRUE
  > 
  > cat("max difference ", max(abs(z - zz)) )
  max difference  4.263256e-14> if (max(abs(z - zz)) > 1e-10)   stop("file write and read comparison failed.")
  > 
  > ####  tfL  ####  
  > 
  > if ( !all(1 == (ts(1:5) - tfL(ts(1:5)))))
  +        stop("default test of tfL for ts failed.")
  > 
  > if ( !all(1 == (as.ts(1:5) - tfL((1:5)))))
  +        stop("default test of tfL for non-ts vector failed.")
  > 
  > if ( !all(2 == (ts(1:5) - tfL(ts(1:5), p= 2))))
  +        stop("2 period lag test of tfL failed.")
  > 
  > z <- ts(1:10, start=c(1992,1), frequency=4)
  > if ( !all(1 == (z - tfL(z)))) stop("frequency=4 test of tfL failed.")
  > 
  > z <- ts(matrix(1:10,5,2), start=c(1992,1), frequency=4)
  > seriesNames(z) <- c("One", "Two")
  > if ( !all(1 == (z - tfL(z)))) stop("matrix test of tfL failed.")
  > 
  > ####  annualizedGrowth  ####  
  > 
  > fuzz <- 1e-14
  > if ( !all(fuzz > (100/(1:4) - annualizedGrowth(ts(1:5)))))
  +        stop("default test of annualizedGrowth for ts failed.")
  > 
  > #if ( !all(fuzz >  (100/as.ts(1:4) - annualizedGrowth((1:5)))))
  > #       stop("default test of annualizedGrowth for non-ts vector failed.")
  > 
  > z <- ts(1:5, start=c(1992,1), frequency=4)
  > if ( !all(fuzz >  (100*((2:5 / 1:4)^4 -1) - annualizedGrowth(z)))) stop("frequency=4 test of annualizedGrowth failed.")
  > 
  > zz <- matrix(1:10,5,2)
  > z <- ts(zz, start=c(1992,1), frequency=4)
  > seriesNames(z) <- c("One", "Two")
  > if ( !all(fuzz >  (100*((zz[2:5,] / zz[1:4,])^4 -1) - annualizedGrowth(z)))) stop("matrix test of annualizedGrowth failed.")
  > 
  > proc.time()
     user  system elapsed 
     0.18    0.12    0.25