Running ‘build.matches.test.R’
  Running ‘classes.test.R’
  Running ‘df.category.mean.test.R’
  Running ‘map.market.test.R’
  Running ‘matchit.test.R’
  Running ‘nearest.multiple.test.R’
  Running ‘next.treatment.test.R’
  Running ‘portfolio.Arith.test.R’
  Running ‘portfolio.all.equal.test.R’
  Running ‘portfolio.calcShares.test.R’
  Running ‘portfolio.calcWeights.test.R’
  Running ‘portfolio.create.test.R’
  Running ‘portfolio.expandData.test.R’
  Running ‘portfolio.expose.test.R’
  Running ‘portfolio.matching.test.R’
  Running ‘portfolio.mvLong.test.R’
  Running ‘portfolio.mvShort.test.R’
  Running ‘portfolio.performance.test.R’
  Running ‘portfolio.updatePrices.test.R’
  Running ‘portfolioBasic.Arith.test.R’
  Running ‘portfolioBasic.all.equal.test.R’
  Running ‘portfolioBasic.contribution.test.R’
  Running ‘portfolioBasic.exposure.test.R’
  Running ‘portfolioBasic.performance.test.R’
  Running ‘portfolioBasic.test.R’
  Running ‘prob.matrix.test.R’
  Running ‘sample.matrix.test.R’
  Running ‘tradelist.calcActual.test.R’
  Running ‘tradelist.calcCandidates.test.R’
  Running ‘tradelist.calcChunks.test.R’
  Running ‘tradelist.calcChunksActual.test.R’
  Running ‘tradelist.calcRanks.test.R’
  Running ‘tradelist.calcSwaps.test.R’
  Running ‘tradelist.calcSwapsActual.test.R’
  Running ‘trades.test.R’
  Running ‘weight.test.R’
Running the tests in ‘tests/map.market.test.R’ failed.
Complete output:
  > ################################################################################
  > ##
  > ## $Id: map.market.test.R 346 2006-10-01 05:08:55Z enos $
  > ##
  > ## Test for the map.market function
  > ##
  > ################################################################################
  > 
  > library(portfolio)
  Loading required package: grid
  Loading required package: lattice
  Loading required package: nlme
  > 
  > load("map.market.test.RData")
  > 
  > ## save(test.data, truth, file = "map.market.test.RData", compress = TRUE)
  > 
  > result <- map.market(id = test.data$id, area = test.data$area,
  +                      group = test.data$group, color = test.data$color,
  +                      lab = TRUE, print = FALSE)
  > 
  > stopifnot(
  +           isTRUE(all.equal(getGrob(result, "MAP"), truth))
  +           )
  Error: isTRUE(all.equal(getGrob(result, "MAP"), truth)) is not TRUE
  Execution halted
Running the tests in ‘tests/portfolioBasic.exposure.test.R’ failed.
Complete output:
  > ################################################################################
  > ##
  > ## $Id: portfolioBasic.exposure.test.R 346 2006-10-01 05:08:55Z enos $
  > ##
  > ## Tests for the portfolioBasic class.
  > ##
  > ################################################################################
  > 
  > library(portfolio)
  Loading required package: grid
  Loading required package: lattice
  Loading required package: nlme
  > 
  > load("portfolioBasic.exposure.test.RData")
  > 
  > ## save(data, exp.1, x, file = "portfolioBasic.exposure.test.RData", compress = TRUE)
  > 
  > ## data <- data.frame(id = 1:20, in.var = 1:20)
  > ## data$in.var <- as.numeric(data$in.var)
  > 
  > ## ## Construct by.var's.  Note that the assigned vectors are
  > ## ## deliberately recycled.
  > 
  > ## data$by.var.1 <- c("1","2")
  > ## data$by.var.2 <- c("1","2","3","4")
  > ## data$by.var.3 <- c(-1,0,0,1)
  > 
  > ## x <- new("portfolioBasic", in.var = "in.var", type = "sigmoid", size = 8, data = data)
  > ## x <- create(x)
  > 
  > exp.1.test <- exposure(x, exp.var = c("by.var.1","by.var.2","by.var.3"))
  > 
  > ## Function to test equality of data frame components of the exposure
  > ## object's data slot.  Different default handling of row.names in
  > ## 2.4.0 makes it necessary to compare column-by-column.
  > 
  > exp.df.equal <- function(e1, e2) {
  +   return(all.equal(e1$variable, e2$variable) &&
  +          all.equal(e1$long,     e2$long) &&
  +          all.equal(e1$short,    e2$short) &&
  +          all.equal(e1$exposure, e2$exposure))
  + }
  > 
  > stopifnot(all.equal(names(exp.1@data), names(exp.1.test@data)),
  +           exp.df.equal(exp.1@data$numeric,  exp.1.test@data$numeric),
  +           exp.df.equal(exp.1@data$by.var.1, exp.1.test@data$by.var.1),
  +           exp.df.equal(exp.1@data$by.var.2, exp.1.test@data$by.var.2))
  Error in all.equal(e1$variable, e2$variable) && all.equal(e1$long, e2$long) : 
    invalid 'x' type in 'x && y'
  Calls: stopifnot -> exp.df.equal
  Execution halted
Running the tests in ‘tests/tradelist.calcCandidates.test.R’ failed.
Complete output:
  > ################################################################################
  > ##
  > ## $Id: tradelist.calcCandidates.test.R 346 2006-10-01 05:08:55Z enos $
  > ##
  > ## Tests calcCandidates method of "tradelist" class
  > ##
  > ################################################################################
  > 
  > library(portfolio)
  Loading required package: grid
  Loading required package: lattice
  Loading required package: nlme
  > 
  > load("tradelist.calcCandidates.test.RData")
  > 
  > ## save(data, p.orig, p.target, truth.candidates, truth.restricted, truth.2, truth.3, file = "tradelist.calcCandidates.test.RData", compress = TRUE)
  > 
  > ## Creates base objects for use in the remainder of the test
  > 
  > tl.base <- new("tradelist", turnover = 64000, data = data)
  > 
  > ## Simulates actual use of the tradelist class by using 2 non-empty
  > ## portfolio.  Tests the overall functionality of the method.
  > 
  > tl.1 <- portfolio:::calcCandidates(tl.base, p.orig, p.target)
  > 
  > stopifnot(all.equal(tl.1@candidates, truth.candidates))
  > stopifnot(all.equal(tl.1@restricted, truth.restricted))
  Error: tl.1@restricted and truth.restricted are not equal:
    Component "reason": Modes: character, numeric
    Component "reason": Attributes: < target is NULL, current is list >
    Component "reason": target is character, current is factor
  Execution halted