inst/unitTests/test_EventPointer.R

test_EventPointer <- function() {
  
  obs <- tryCatch(EventPointer(Design=matrix(0,nrow=5),
                               Contrast=matrix(0,nrow=5),
                               ExFit=NULL,
                               Eventstxt=NULL,
                               Statistic="Test"), error=conditionMessage)
  
  checkIdentical("Wrong statistical test given", obs)
  
  obs <- tryCatch(EventPointer(Design=rep(0,5),
                               Contrast=matrix(0,nrow=5),
                               ExFit=NULL,
                               Eventstxt=NULL,
                               Statistic="Test"), error=conditionMessage)
  
  checkIdentical("Wrong Design and/or Contrast matrices", obs)
  
  
}
jpromeror/EventPointer documentation built on May 17, 2023, 10:29 p.m.