Running 'bsch.R' [2s]
  Comparing 'bsch.Rout' to 'bsch.Rout.save' ...3a4
> 
  Running 'penInf.R' [5s]
  Comparing 'penInf.Rout' to 'penInf.Rout.save' ...5a6
> 
  Running 'sh9.2012.R' [3s]
  Comparing 'sh9.2012.Rout' to 'sh9.2012.Rout.save' ...3a4
> 
  Running 'shPUR.R' [2s]
  Comparing 'shPUR.Rout' to 'shPUR.Rout.save' ...3a4
> 
  Running 'test1Fast.R' [4s]
  Comparing 'test1Fast.Rout' to 'test1Fast.Rout.save' ...3a4
> 
  Running 'test1QE.R' [2s]
  Comparing 'test1QE.Rout' to 'test1QE.Rout.save' ...3a4
> 
  Running 'test2Fast.R' [4s]
  Comparing 'test2Fast.Rout' to 'test2Fast.Rout.save' ...3a4
> 
  Running 'test2QE.R' [1s]
  Running 'test3Fast.R' [5s]
  Comparing 'test3Fast.Rout' to 'test3Fast.Rout.save' ...3a4
> 
  Running 'test3QE.R' [2s]
  Running 'test5Fast.R' [4s]
  Comparing 'test5Fast.Rout' to 'test5Fast.Rout.save' ...3a4
> 
  Running 'test7Fast.R' [5s]
  Comparing 'test7Fast.Rout' to 'test7Fast.Rout.save' ...3a4
> 
  Running 'testMyFam.R' [1s]
  Comparing 'testMyFam.Rout' to 'testMyFam.Rout.save' ...3a4
> 
Running the tests in 'tests/test2QE.R' failed.
Complete output:
  > library(GGMselect)
  Loading required package: mvtnorm
  > itest=2
  > # +++++++++++++++++++++++++++++++++++++++++++++++++
  > p=30
  > n=30
  > eta=0.13
  > dmax=3
  > iG = 7
  > iS = 9
  > set.seed(iG)
  > Gr <- simulateGraph(p,eta)
  > set.seed(iS*(pi/3.1415)**iG)
  > X <- rmvnorm(n, mean=rep(0,p), sigma=Gr$C)
  > 
  > K=2.5
  > 
  > # ptm <- proc.time()
  > 
  > print(selectQE(X, dmax, K, verbose=TRUE))
  *** Run family QE
  Number of RSS calculated: 122670 
  ***    Running loop GrSymQE from iK = 1 to 1 
  ***    Running loop GrSymQE for iK = 1 and d = 1 to 10 
  ***    GrSymQE: iK = 1 d = 1 
  ***    GrSymQE: iK = 1 d = 2 
  ***    GrSymQE: iK = 1 d = 3 
  ***    GrSymQE: iK = 1 d = 4 
  ***    GrSymQE: iK = 1 d = 5 
  ***    GrSymQE: iK = 1 d = 6 
  ***    GrSymQE: iK = 1 d = 7 
  ***    GrSymQE: iK = 1 d = 8 
Running the tests in 'tests/test3QE.R' failed.
Complete output:
  > library(GGMselect)
  Loading required package: mvtnorm
  > itest=3
  > # +++++++++++++++++++++++++++++++++++++++++++++++++
  > p=30
  > n=30
  > eta=0.17
  > dmax=3
  > iG = 7
  > iS = 9
  > set.seed(iG)
  > Gr <- simulateGraph(p,eta)
  > set.seed(iS*(pi/3.1415)**iG)
  > X <- rmvnorm(n, mean=rep(0,p), sigma=Gr$C)
  > 
  > K=2.5
  > 
  > # ptm <- proc.time()
  > 
  > print(selectQE(X, dmax, K, verbose=TRUE))
  *** Run family QE
  Number of RSS calculated: 122670 
  ***    Running loop GrSymQE from iK = 1 to 1 
  ***    Running loop GrSymQE for iK = 1 and d = 1 to 10 
  ***    GrSymQE: iK = 1 d = 1 
  ***    GrSymQE: iK = 1 d = 2 
  ***    GrSymQE: iK = 1 d = 3 
  ***    GrSymQE: iK = 1 d = 4 
  ***    GrSymQE: iK = 1 d = 5 
  ***    GrSymQE: iK = 1 d = 6 
  ***    GrSymQE: iK = 1 d = 7