Running 'activate_tests.R' [1s]
  Running 'age.at_tests.R' [1s]
  Running 'classTests.R' [1s]
  Running 'converter_tests.R' [1s]
  Running 'get_tests.R' [3s]
  Running 'import_tests.R' [5s]
  Running 'network_tests.R' [1s]
  Running 'pid_tests.R' [1s]
  Running 'query_tests.R' [1s]
  Running 'reconcile.activityTests.R' [1s]
  Running 'tea_tests.R' [1s]
  Running 'utils_tests.R' [1s]
  Running 'when_tests.R' [1s]
Running the tests in 'tests/converter_tests.R' failed.
Complete output:
  > #  Part of the statnet package, http://statnetproject.org
  > #
  > #  This software is distributed under the GPL-3 license.  It is free,
  > #  open source, and has the attribution requirements (GPL Section 7) in
  > #    http://statnetproject.org/attribution
  > #
  > #  Copyright 2013 the statnet development team
  > ######################################################################
  > 
  > #test networkDynamic conversion functionality
  > 
  > require(networkDynamic)
  Loading required package: networkDynamic
  Loading required package: network
  network: Classes for Relational Data
  Version 1.14-377 created on 2019-03-04.
  copyright (c) 2005, Carter T. Butts, University of California-Irvine
                      Mark S. Handcock, University of California -- Los Angeles
                      David R. Hunter, Penn State University
                      Martina Morris, University of Washington
                      Skye Bender-deMoll, University of Washington
   For citation information, type citation("network").
   Type help("network-package") to get started.
  
  
  networkDynamic: version 0.9.0, created on 2016-01-12
  Copyright (c) 2016, Carter T. Butts, University of California -- Irvine
                      Ayn Leslie-Cook, University of Washington
                      Pavel N. Krivitsky, University of Wollongong
                      Skye Bender-deMoll, University of Washington
                      with contributions from
                      Zack Almquist, University of California -- Irvine
                      David R. Hunter, Penn State University
                      Li Wang
                      Kirk Li, University of Washington
                      Steven M. Goodreau, University of Washington
                      Jeffrey Horner
                      Martina Morris, University of Washington
  Based on "statnet" project software (statnet.org).
  For license and citation information see statnet.org/attribution
  or type citation("networkDynamic").
  
  > require(testthat)
  Loading required package: testthat
  > 
  > 
  > # ------ get.vertex.activity test ------
  > 
  > net<-network.initialize(5)
  > activate.vertices(net,onset=c(1,2,3,-Inf,100),terminus=c(10,20,Inf,30,Inf))
  > activate.vertices(net,at=1000)
  > expect_equal(unlist(get.vertex.activity(net)),c(1,1000,10,1000,2,1000,20,1000,3,Inf,-Inf,1000,30,1000,100,Inf),info='check if spell list has correct elements in get.vertex.activity')
  > 
  > expect_equivalent(get.vertex.activity(net,as.spellList=TRUE),data.frame(onset=c(1,1000,2,1000,3,-Inf,1000,100),terminus=c(10,1000,20,1000,Inf,30,1000,Inf),vertex.id=c(1,1,2,2,3,4,4,5),onset.censored=c(FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE),terminus.censored=c(FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE),duration=c(9,0,18,0,Inf,Inf,0,Inf)),info="check if get.vertex.activity(spellList) returns correct data")
  > 
  > # check sort order
  > expect_equal(get.vertex.activity(net,as.spellList=TRUE)$vertex.id,c(1,1,2,2,3,4,4,5),info="check sort order of get.vertex.activity vertex.id")
  > 
  > expect_equal(get.vertex.activity(net,as.spellList=TRUE)$onset,c(1,1000,2,1000,3,-Inf,1000,100),info="check sort order of get.vertex.activity onset")
  > expect_equal(get.vertex.activity(net,as.spellList=TRUE)$terminus,c(10,1000,20,1000,Inf,30,1000,Inf),info="check sort order of get.vertex.activity terminus")
  > 
  > expect_equal(get.vertex.activity(network.initialize(0)),list())
  > 
  > 
  > 
  > 
  > # check that net.obs.period triggers censoring
  > nop <- list(observations=list(c(-5,1001)), mode="discrete", time.increment=1,time.unit="step")
  > set.network.attribute(net,'net.obs.period',nop)
  > expect_equivalent(get.vertex.activity(net,as.spellList=TRUE),data.frame(onset=c(1,1000,2,1000,3,-5,1000,100),terminus=c(10,1000,20,1000,1001,30,1000,1001),vertex.id=c(1,1,2,2,3,4,4,5),onset.censored=c(FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE),terminus.censored=c(FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE),duration=c(9,0,18,0,998,35,0,901)),info="check that net.obs.period triggers censoring in get.vertex.activity(spellList)")
  > 
  > 
  > # check for bug with no activity #192
  > nd<-network.initialize(2)
  > nd<-add.edges.active(nd,at=1,tail=1,head=2)
  > 
  > expect_equivalent(get.vertex.activity(nd,as.spellList=TRUE),data.frame(onset=c(-Inf,-Inf),terminus=c(Inf,Inf),vertex.id=c(1,2),onset.censored=c(TRUE,TRUE),terminus.censored=c(TRUE,TRUE),duration=c(Inf,Inf)),info="checking with no vertex activity")
  > 
  > # test if activity is missing for an element
  > activate.vertices(nd,onset=1,terminus=2,v=2)
  > expect_equivalent(get.vertex.activity(nd,as.spellList=TRUE),data.frame(onset=c(-Inf,1),terminus=c(Inf,2),vertex.id=c(1,2),onset.censored=c(TRUE,FALSE),terminus.censored=c(TRUE,FALSE),duration=c(Inf,1)),info="test when only some verticies have activity")
  > 
  > # test when default activity set false
  > expect_equivalent(
  +   get.vertex.activity(nd,as.spellList=TRUE,active.default=FALSE),
  +   data.frame(onset=1,terminus=2,vertex.id=2,onset.censored=FALSE,terminus.censored=FALSE,duration=1),info="test when only some verticies have activity and active.default=FALSE")
  > 
  > # test if v specified for spellmatrix
  > nd <- network.initialize(5)
  > activate.vertices(nd,onset=0:4,terminus=1:5)
  > expect_equivalent(
  +  get.vertex.activity(nd,as.spellList=TRUE,v=2:4)[,1:3],
  +  data.frame(onset=1:3,terminus=2:4,vertex.id=2:4),info="test when when v argument specified with spellmatrix")
  > 
  > expect_equivalent(
  +   unlist(get.vertex.activity(nd,,v=2:4)),c(1,2,2,3,3,4)
  +   ,info="test when when v argument specified")
  > 
  > 
  > # test if called with ordinary network
  > expect_equal(unlist(get.vertex.activity(network.initialize(3))),c(-Inf,Inf,-Inf,Inf,-Inf,Inf),info="calling with ordinary network")
  > 
  > # test when called with something else
  > expect_error(get.vertex.activity(list()),'requires an argument of class network')
  Error: `get.vertex.activity(list())` threw an error with unexpected message.
  Expected match: "requires an argument of class network"
  Actual message: "no applicable method for 'network.size' applied to an object of class \"list\""
  Execution halted