Running 'test-all.R' [2s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library(testthat)
  > library(MRMR)
  Loading required package: lubridate
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:base':
  
      date
  
  > 
  > test_package("MRMR")
  -- 1. Error: Cumulative measures (@test-TriangleConstruction.R#5)  -------------
  Invalid timezone of input vector: ""
  1: newTriangle(TriangleData = myDF, OriginPeriods = AccidentYear, DevelopmentLags = Month, 
         Cumulative = TRUE, StochasticMeasures = c("Paid"), StaticMeasures = c("EP"), 
         Verbose = FALSE) at D:/temp/RtmpY3gpT8/RLIBS_25a74aa1377c/MRMR/tests/test-TriangleConstruction.R:5
  2: CreateEvaluationDates(OriginPeriods, DevelopmentLags)
  3: int_start(OriginPeriod) + DevelopmentLag
  4: int_start(OriginPeriod) + DevelopmentLag
  5: add_period_to_date(e2, e1)
  6: update(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  7: update.POSIXt(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  8: do.call(update_date_time, c(list(object, roll = roll, week_start = week_start), list(...)))
  9: (function (object, years = integer(), months = integer(), days = integer(), mdays = integer(), 
         ydays = integer(), wdays = integer(), hours = integer(), minutes = integer(), 
         seconds = double(), tzs = NULL, roll = FALSE, week_start = 7) 
     {
         if (!length(object)) 
             return(object)
         if (length(days) > 0) 
             mdays = days
         updates <- list(year = years, month = months, yday = ydays, mday = mdays, wday = wdays, 
             hour = hours, minute = minutes, second = seconds)
         maxlen <- max(unlist(lapply(updates, length)))
         if (maxlen > 1) {
             for (nm in names(updates)) {
                 len <- length(updates[[nm]])
                 if (len != maxlen && len > 1) 
                     updates[[nm]] <- rep_len(updates[[nm]], maxlen)
             }
         }
         if (is.null(tzs)) 
             tzs <- tz(object)
         updates[["dt"]] <- as.POSIXct(object)
         updates[["roll"]] <- roll
         updates[["tz"]] <- tzs
         updates[["week_start"]] <- week_start
         reclass_date(do.call(C_update_dt, updates), object)
     })(structure(list(sec = c(0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 
     0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L, 1L), mon = c(12, 24, 36, 12, 24, 
     12), year = c(102L, 102L, 102L, 103L, 103L, 104L), wday = c(2L, 2L, 2L, 3L, 3L, 4L
     ), yday = c(0L, 0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L), zone = c("CET", 
     "CET", "CET", "CET", "CET", "CET"), gmtoff = c(3600L, 3600L, 3600L, 3600L, 3600L, 
     3600L)), .Names = c("sec", "min", "hour", "mday", "mon", "year", "wday", "yday", 
     "isdst", "zone", "gmtoff"), class = c("POSIXlt", "POSIXt"), tzone = c("", "CET", 
     "CEST")), roll = FALSE, week_start = 7, days = c(1, 1, 1, 1, 1, 1), hours = c(0, 
     0, 0, 0, 0, 0), minutes = c(0, 0, 0, 0, 0, 0), seconds = c(0, 0, 0, 0, 0, 0))
  10: reclass_date(do.call(C_update_dt, updates), object)
  11: reclass_date.POSIXlt(do.call(C_update_dt, updates), object)
  12: as.POSIXlt(new)
  13: do.call(C_update_dt, updates)
  14: (function (dt, year, month, yday, mday, wday, hour, minute, second, tz = NULL, roll = FALSE, 
         week_start = 7L) 
     {
         .Call(`_lubridate_C_update_dt`, dt, year, month, yday, mday, wday, hour, minute, 
             second, tz, roll, week_start)
     })(year = integer(0), month = integer(0), yday = integer(0), mday = c(1, 1, 1, 1, 
     1, 1), wday = integer(0), hour = c(0, 0, 0, 0, 0, 0), minute = c(0, 0, 0, 0, 0, 0
     ), second = c(0, 0, 0, 0, 0, 0), dt = structure(c(1041375600, 1072911600, 1104534000, 
     1072911600, 1104534000, 1104534000), class = c("POSIXct", "POSIXt"), tzone = ""), 
         roll = FALSE, tz = "", week_start = 7)
  
  -- 2. Error: Incremental measures (@test-TriangleConstruction.R#23)  -----------
  Invalid timezone of input vector: ""
  1: newTriangle(TriangleData = TestDataFrame(), OriginPeriods = AccidentYear, DevelopmentLags = Month, 
         Cumulative = FALSE, StochasticMeasures = c("Paid"), StaticMeasures = c("EP"), 
         Verbose = FALSE) at D:/temp/RtmpY3gpT8/RLIBS_25a74aa1377c/MRMR/tests/test-TriangleConstruction.R:23
  2: CreateOriginPeriods(OriginPeriods, OriginEnd, OriginLength, StartDay, StartMonth, 
         Verbose)
  3: OriginPeriodFromYears(OriginStart, OriginLength, StartDay = 1, StartMonth = 1, Verbose)
  4: `year<-`(`*tmp*`, value = c(2002L, 2002L, 2002L, 2003L, 2003L, 2004L))
  5: `year<-`(`*tmp*`, value = c(2002L, 2002L, 2002L, 2003L, 2003L, 2004L))
  6: x + years(value - year(x))
  7: x + years(value - year(x))
  8: add_period_to_date(e2, e1)
  9: update(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  10: update.POSIXt(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  11: do.call(update_date_time, c(list(object, roll = roll, week_start = week_start), list(...)))
  12: (function (object, years = integer(), months = integer(), days = integer(), mdays = integer(), 
         ydays = integer(), wdays = integer(), hours = integer(), minutes = integer(), 
         seconds = double(), tzs = NULL, roll = FALSE, week_start = 7) 
     {
         if (!length(object)) 
             return(object)
         if (length(days) > 0) 
             mdays = days
         updates <- list(year = years, month = months, yday = ydays, mday = mdays, wday = wdays, 
             hour = hours, minute = minutes, second = seconds)
         maxlen <- max(unlist(lapply(updates, length)))
         if (maxlen > 1) {
             for (nm in names(updates)) {
                 len <- length(updates[[nm]])
                 if (len != maxlen && len > 1) 
                     updates[[nm]] <- rep_len(updates[[nm]], maxlen)
             }
         }
         if (is.null(tzs)) 
             tzs <- tz(object)
         updates[["dt"]] <- as.POSIXct(object)
         updates[["roll"]] <- roll
         updates[["tz"]] <- tzs
         updates[["week_start"]] <- week_start
         reclass_date(do.call(C_update_dt, updates), object)
     })(structure(list(sec = c(2.70282292366028, 2.70282292366028, 2.70282292366028, 2.70282292366028, 
     2.70282292366028, 2.70282292366028), min = c(23L, 23L, 23L, 23L, 23L, 23L), hour = c(22L, 
     22L, 22L, 22L, 22L, 22L), mday = c(4L, 4L, 4L, 4L, 4L, 4L), mon = c(-189, -189, -189, 
     -177, -177, -165), year = c(118L, 118L, 118L, 118L, 118L, 118L), wday = c(3L, 3L, 
     3L, 3L, 3L, 3L), yday = c(93L, 93L, 93L, 93L, 93L, 93L), isdst = c(1L, 1L, 1L, 1L, 
     1L, 1L), zone = c("CEST", "CEST", "CEST", "CEST", "CEST", "CEST"), gmtoff = c(7200L, 
     7200L, 7200L, 7200L, 7200L, 7200L)), .Names = c("sec", "min", "hour", "mday", "mon", 
     "year", "wday", "yday", "isdst", "zone", "gmtoff"), class = c("POSIXlt", "POSIXt"
     ), tzone = c("", "CET", "CEST")), roll = FALSE, week_start = 7, days = c(4, 4, 4, 
     4, 4, 4), hours = c(22, 22, 22, 22, 22, 22), minutes = c(23, 23, 23, 23, 23, 23), 
         seconds = c(2.70282292366028, 2.70282292366028, 2.70282292366028, 2.70282292366028, 
         2.70282292366028, 2.70282292366028))
  13: reclass_date(do.call(C_update_dt, updates), object)
  14: reclass_date.POSIXlt(do.call(C_update_dt, updates), object)
  15: as.POSIXlt(new)
  16: do.call(C_update_dt, updates)
  17: (function (dt, year, month, yday, mday, wday, hour, minute, second, tz = NULL, roll = FALSE, 
         week_start = 7L) 
     {
         .Call(`_lubridate_C_update_dt`, dt, year, month, yday, mday, wday, hour, minute, 
             second, tz, roll, week_start)
     })(year = integer(0), month = integer(0), yday = integer(0), mday = c(4, 4, 4, 4, 
     4, 4), wday = integer(0), hour = c(22, 22, 22, 22, 22, 22), minute = c(23, 23, 23, 
     23, 23, 23), second = c(2.70282292366028, 2.70282292366028, 2.70282292366028, 2.70282292366028, 
     2.70282292366028, 2.70282292366028), dt = structure(c(1017951782.70282, 1017951782.70282, 
     1017951782.70282, 1049487782.70282, 1049487782.70282, 1081110182.70282), class = c("POSIXct", 
     "POSIXt"), tzone = ""), roll = FALSE, tz = "", week_start = 7)
  
  -- 3. Error: Multiple stochastic measures (@test-TriangleConstruction.R#41)  ---
  Invalid timezone of input vector: ""
  1: newTriangle(TriangleData = TestDataFrame(), OriginPeriods = AccidentYear, DevelopmentLags = Month, 
         Cumulative = FALSE, StochasticMeasures = c("Paid", "Reported"), StaticMeasures = c("EP"), 
         Verbose = FALSE) at D:/temp/RtmpY3gpT8/RLIBS_25a74aa1377c/MRMR/tests/test-TriangleConstruction.R:41
  2: CreateOriginPeriods(OriginPeriods, OriginEnd, OriginLength, StartDay, StartMonth, 
         Verbose)
  3: OriginPeriodFromYears(OriginStart, OriginLength, StartDay = 1, StartMonth = 1, Verbose)
  4: `year<-`(`*tmp*`, value = c(2002L, 2002L, 2002L, 2003L, 2003L, 2004L))
  5: `year<-`(`*tmp*`, value = c(2002L, 2002L, 2002L, 2003L, 2003L, 2004L))
  6: x + years(value - year(x))
  7: x + years(value - year(x))
  8: add_period_to_date(e2, e1)
  9: update(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  10: update.POSIXt(lt, days = mday(lt) + per@day, hours = hour(lt) + per@hour, minutes = minute(lt) + 
         per@minute, seconds = second(lt) + per@.Data)
  11: do.call(update_date_time, c(list(object, roll = roll, week_start = week_start), list(...)))
  12: (function (object, years = integer(), months = integer(), days = integer(), mdays = integer(), 
         ydays = integer(), wdays = integer(), hours = integer(), minutes = integer(), 
         seconds = double(), tzs = NULL, roll = FALSE, week_start = 7) 
     {
         if (!length(object)) 
             return(object)
         if (length(days) > 0) 
             mdays = days
         updates <- list(year = years, month = months, yday = ydays, mday = mdays, wday = wdays, 
             hour = hours, minute = minutes, second = seconds)
         maxlen <- max(unlist(lapply(updates, length)))
         if (maxlen > 1) {
             for (nm in names(updates)) {
                 len <- length(updates[[nm]])
                 if (len != maxlen && len > 1) 
                     updates[[nm]] <- rep_len(updates[[nm]], maxlen)
             }
         }
         if (is.null(tzs)) 
             tzs <- tz(object)
         updates[["dt"]] <- as.POSIXct(object)
         updates[["roll"]] <- roll
         updates[["tz"]] <- tzs
         updates[["week_start"]] <- week_start
         reclass_date(do.call(C_update_dt, updates), object)
     })(structure(list(sec = c(2.73402309417725, 2.73402309417725, 2.73402309417725, 2.73402309417725, 
     2.73402309417725, 2.73402309417725), min = c(23L, 23L, 23L, 23L, 23L, 23L), hour = c(22L, 
     22L, 22L, 22L, 22L, 22L), mday = c(4L, 4L, 4L, 4L, 4L, 4L), mon = c(-189, -189, -189, 
     -177, -177, -165), year = c(118L, 118L, 118L, 118L, 118L, 118L), wday = c(3L, 3L, 
     3L, 3L, 3L, 3L), yday = c(93L, 93L, 93L, 93L, 93L, 93L), isdst = c(1L, 1L, 1L, 1L, 
     1L, 1L), zone = c("CEST", "CEST", "CEST", "CEST", "CEST", "CEST"), gmtoff = c(7200L, 
     7200L, 7200L, 7200L, 7200L, 7200L)), .Names = c("sec", "min", "hour", "mday", "mon", 
     "year", "wday", "yday", "isdst", "zone", "gmtoff"), class = c("POSIXlt", "POSIXt"
     ), tzone = c("", "CET", "CEST")), roll = FALSE, week_start = 7, days = c(4, 4, 4, 
     4, 4, 4), hours = c(22, 22, 22, 22, 22, 22), minutes = c(23, 23, 23, 23, 23, 23), 
         seconds = c(2.73402309417725, 2.73402309417725, 2.73402309417725, 2.73402309417725, 
         2.73402309417725, 2.73402309417725))
  13: reclass_date(do.call(C_update_dt, updates), object)
  14: reclass_date.POSIXlt(do.call(C_update_dt, updates), object)
  15: as.POSIXlt(new)
  16: do.call(C_update_dt, updates)
  17: (function (dt, year, month, yday, mday, wday, hour, minute, second, tz = NULL, roll = FALSE, 
         week_start = 7L) 
     {
         .Call(`_lubridate_C_update_dt`, dt, year, month, yday, mday, wday, hour, minute, 
             second, tz, roll, week_start)
     })(year = integer(0), month = integer(0), yday = integer(0), mday = c(4, 4, 4, 4, 
     4, 4), wday = integer(0), hour = c(22, 22, 22, 22, 22, 22), minute = c(23, 23, 23, 
     23, 23, 23), second = c(2.73402309417725, 2.73402309417725, 2.73402309417725, 2.73402309417725, 
     2.73402309417725, 2.73402309417725), dt = structure(c(1017951782.73402, 1017951782.73402, 
     1017951782.73402, 1049487782.73402, 1049487782.73402, 1081110182.73402), class = c("POSIXct", 
     "POSIXt"), tzone = ""), roll = FALSE, tz = "", week_start = 7)
  
  == testthat results  ===========================================================
  OK: 2 SKIPPED: 0 FAILED: 3
  1. Error: Cumulative measures (@test-TriangleConstruction.R#5) 
  2. Error: Incremental measures (@test-TriangleConstruction.R#23) 
  3. Error: Multiple stochastic measures (@test-TriangleConstruction.R#41) 
  
  Error: testthat unit tests failed
  In addition: Warning message:
  Placing tests in `inst/tests` is deprecated. Please use `tests/testthat` instead 
  Execution halted