Running 'test_LINGAM.R' [4s/5s]
  Running 'test_addBgKnowledge.R' [3s/3s]
  Running 'test_adjustment.R' [5s/6s]
  Running 'test_ages.R' [2s/2s]
  Running 'test_amat2dag.R' [2s/2s]
  Running 'test_arges.R' [2s/3s]
  Running 'test_backdoor.R' [9s/10s]
  Comparing 'test_backdoor.Rout' to 'test_backdoor.Rout.save' ... OK
  Running 'test_bicscore.R' [3s/3s]
  Running 'test_causalEffect.R' [2s/2s]
  Running 'test_coercion.R' [2s/3s]
  Running 'test_compareGraphs.R' [2s/2s]
  Running 'test_dag2cpdag.R' [2s/2s]
  Running 'test_dag2essgraph.R' [2s/3s]
  Running 'test_displayAmat.R' [2s/3s]
  Running 'test_dsep.R' [2s/3s]
  Running 'test_dsepAM.R' [2s/3s]
  Running 'test_dsepAMTest.R' [3s/3s]
  Running 'test_fci.R' [2s/2s]
  Running 'test_fciPlus.R' [5s/5s]
  Running 'test_gSquareBin.R' [2s/3s]
  Running 'test_gSquareDis.R' [4s/5s]
  Running 'test_gac.R' [4s/5s]
  Running 'test_getNextSet.R' [2s/2s]
  Running 'test_gies.R' [6s/7s]
  Running 'test_ida.R' [11s/12s]
  Running 'test_idaFast.R' [6s/7s]
  Running 'test_isValidGraph.R' [5s/6s]
  Running 'test_jointIda.R' [2s/3s]
  Running 'test_mat2targets.R' [2s/3s]
  Running 'test_optAdjSet.R' [3s/3s]
  Running 'test_opttarget.R' [2s/2s]
  Running 'test_pag2anc.R' [2s/2s]
  Running 'test_pag2conf.R' [2s/2s]
  Running 'test_pag2edge.R' [2s/2s]
  Running 'test_pc.R' [3s/3s]
  Running 'test_pcSelect.R' [4s/4s]
  Running 'test_pcalg2dagitty.R' [2s/3s]
  Running 'test_pcorOrder.R' [2s/2s]
  Running 'test_pdag2allDags.R' [2s/3s]
  Running 'test_pdag2dag.R' [2s/2s]
  Running 'test_possDeAn.R' [2s/2s]
  Running 'test_randDAG.R' [4s/5s]
  Comparing 'test_randDAG.Rout' to 'test_randDAG.Rout.save' ... OK
  Running 'test_randomDAG.R' [2s/2s]
  Running 'test_rfci.R' [4s/5s]
  Running 'test_rmvDAG.R' [2s/3s]
  Running 'test_searchAM.R' [2s/2s]
  Running 'test_shd.R' [2s/2s]
  Running 'test_skeleton.R' [6s/7s]
  Running 'test_udag2pag.R' [2s/2s]
  Running 'test_udag2pdag.R' [7s/8s]
  Running 'test_wgtMatrix.R' [2s/3s]
Running the tests in 'tests/test_ages.R' failed.
Complete output:
  > ## Test file ages
  > library(pcalg)
  > suppressWarnings(RNGversion("3.5.0"))
  > (doExtras <- pcalg:::doExtras())
  [1] FALSE
  > 
  > ## Known example where ges and ages output a different result
  > bool3 <- TRUE
  > set.seed(77)
  > 
  > p <- 8
  > n <- 5000
  > ## true DAG:
  > vars <- c("Author", "Bar", "Ctrl", "Goal", paste0("V",5:8))
  > gGtrue <- randomDAG(p, prob = 0.3, V = vars)
  > data = rmvDAG(n, gGtrue)
  > 
  > ## Estimate the aggregated PDAG with ages
  > ages.fit <- ages(data = data)
  Error in .Object$initialize(...) : 
    is.list(in.edges) && length(in.edges) == length(nodes) is not TRUE
  Calls: ages ... initialize -> initialize -> <Anonymous> -> stopifnot
  Execution halted