tests/testthat/test-DenEst.R

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

test_that("multiplication works", {
  df<-data.frame(Time=c("2020-01-01 00:10:09", "2020-01-01 01:12:34" ,
                        "2020-01-01 06:38:09","2020-01-02 03:21:51", "2020-01-02 04:34:09",
                        "2020-01-02 07:09:38" , "2020-01-03 02:15:25","2020-01-03 05:35:45",
                        "2020-01-03 06:54:14"),
                 Cat=c('A','B','C','C','A','B','C','A','B'))
  newdf<-data.frame(Time=c("2020-01-04 01:30:20", "2020-01-04 04:19:14" ,
                           "2020-01-04 06:51:29"),Cat=c('A','B','A'))
  seqlist<-SeqList(df,'%Y-%m-%d')
  sqslist<-SQSList(seqlist,2)
  newseqlist<-SeqList(newdf,'%Y-%m-%d')
  newsqslist<-SQSList(newseqlist,2)
  allsqs<-AllSQS(c('A','B','C'),2)
  sqsindex<-SQSIndex(allsqs,sqslist)
  newsqsindex<-SQSIndex(allsqs,newsqslist)
  regseqscore<-RegSeqScore(seqlist,allsqs,sqsindex,c('A','B','C'),c(1/3,1/3,1/3)
                           ,2,1,0.5)
  scoretable<-ScoreTable(regseqscore, newseqlist[[1]], seqlist, allsqs, newsqsindex,
                  sqsindex, c('A','B','C'),c(1/3,1/3,1/3), 2, 1, 0.5)
  df1<-DensEst(list(scoretable),0.05,'nrd0','gaussian')
  load('DenEst_testdata.Rdata')
  expect_equal(denest_testdata,df1)
})