tests/testthat/test-IRASD.R

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

test_that("multiplication works", {
  seqdf<-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=as.factor(c('A','B','C','C','A','B','C','A','B')))
  newseqdf<-data.frame(Time=c("2020-01-04 01:30:20", "2020-01-04 04:19:14" ,
                           "2020-01-04 06:51:29"),Cat=as.factor(c('A','B','A')))
  # seqlist<-SeqList(df,'%Y-%m-%d')
  # newseqlist<-SeqList(newdf,'%Y-%m-%d')
  df1<-IRASD(newseqdf, seqdf, '%Y-%m-%d',2, 1, 0.5,0.05,'nrd0','gaussian')
  load('IRASD_testdata.Rdata')
  expect_equal(irasd_testdata,df1)
})