tests/testthat/test-GammaFunction.R

In jgillam13/IRASD: What the Package Does (One Line, Title Case)

test_that("GammaFunction is working correctly", {
  df1<-list(data.frame(Time=c("2020-01-01 00:10:09", "2020-01-01 01:12:34"),
                       Cat=c('A','B')),
            data.frame(Time=c("2020-01-02 06:38:09", "2020-01-02 07:21:51"),
                       Cat=c('A','C')))
  sqslist<-SQSList(df1,2)
  allsqs<-AllSQS(c('A','B','C'),2)
  sqsindex<-data.frame(V1=c(1,1,0,0,1,0,0,0,0,0,0,0),V2=c(1,0,1,0,0,1,0,0,0,0,0,0))
  df2<-GammaFunction(df1,allsqs,sqsindex,c('A','B','C'),1,0.5)
  df3<-matrix(c(1, NA, 0 , NA,NA,0,NA,NA,NA,NA,NA,NA),ncol=1)
  expect_equal(df2,df3)
})