Running ‘demo-test.R’ [0s/0s]
Running the tests in ‘tests/demo-test.R’ failed.
Complete output:
  > 
  > library("MVA")
  Loading required package: HSAUR2
  Loading required package: tools
  > 
  > sapply(demo(package = "MVA")$results[, "Item"], demo, character.only = TRUE,
  +        ask = FALSE)
  
  
  	demo(Ch-CA)
  	---- ~~~~~
  
  > ### R code from vignette source 'Ch-CA.Rnw'
  > 
  > ###################################################
  > ### code chunk number 1: setup
  > ###################################################
  > library("MVA")
  
  > set.seed(280875)
  
  > library("lattice")
  
  > lattice.options(default.theme =
  +     function()
  +         standard.theme("pdf", color = FALSE))
  
  > if (file.exists("deparse.R")) {
  +     if (!file.exists("figs")) dir.create("figs")
  +     source("deparse.R")
  +     options(prompt = "R> ", continue = "+  ", width = 64,
  +         digits = 4, show.signif.stars = FALSE, useFancyQuotes = FALSE)
  + 
  +     options(SweaveHooks = list(onefig =   function() {par(mfrow = c(1,1))},
  +                            twofig =   function() {par(mfrow = c(1,2))},                           
  +                            figtwo =   function() {par(mfrow = c(2,1))},                           
  +                            threefig = function() {par(mfrow = c(1,3))},
  +                            figthree = function() {par(mfrow = c(3,1))},
  +                            fourfig =  function() {par(mfrow = c(2,2))},
  +                            sixfig =   function() {par(mfrow = c(3,2))},
  +                            nomar = function() par("mai" = c(0, 0, 0, 0))))
  + }
  
  > ###################################################
  > ### code chunk number 2: ch:CA:data
  > ###################################################
  > measure <-
  + structure(list(V1 = 1:20, V2 = c(34L, 37L, 38L, 36L, 38L, 43L, 
  + 40L, 38L, 40L, 41L, 36L, 36L, 34L, 33L, 36L, 37L, 34L, 36L, 38L, 
  + 35L), V3 = c(30L, 32L, 30L, 33L, 29L, 32L, 33L, 30L, 30L, 32L, 
  + 24L, 25L, 24L, 22L, 26L, 26L, 25L, 26L, 28L, 23L), V4 = c(32L, 
  + 37L, 36L, 39L, 33L, 38L, 42L, 40L, 37L, 39L, 35L, 37L, 37L, 34L, 
  + 38L, 37L, 38L, 37L, 40L, 35L)), .Names = c("V1", "V2", "V3", 
  + "V4"), class = "data.frame", row.names = c(NA, -20L))
  
  > measure <- measure[,-1]
  
  > names(measure) <- c("chest", "waist", "hips")
  
  > measure$gender <- gl(2, 10)
  
  > levels(measure$gender) <- c("male", "female")
  
  > ###################################################
  > ### code chunk number 3: ch:CA-scplot
  > ###################################################
  > library("mvtnorm")
  Error: package or namespace load failed for 'mvtnorm' in dyn.load(file, DLLpath = DLLpath, ...):
   unable to load shared object '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/mvtnorm/libs/mvtnorm.so':
    /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/mvtnorm/libs/mvtnorm.so: failed to map segment from shared object
  Execution halted