[tests/testthat/test-bg-cnbd-k.R:31:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L31) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.ConditionalExpectedTransactions(params[-1], 32, 1, 16, 32),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:36:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L36) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotFrequencyInCalibration(params, cbs, 7), tolerance = 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotFreqVsConditionalExpectedFrequency(params[-1], T.star = 39, cbs, cbs$x.star, 7),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L38) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotFreqVsConditionalExpectedFrequency(params, T.star = 39, cbs, cbs$x.star, 7), tolerance = 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:39:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L39) *style:* **lines should not be more than 80 characters.**
```r
  # Note: BTYD::bgnbd.PlotRecVsConditionalExpectedFrequency can't handle missing bins, so we can't compare
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:40:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L40) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(bgcnbd.PlotRecVsConditionalExpectedFrequency(params, cbs, T.star = 39, cbs$x.star))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:42:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L42) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotTrackingInc(params[-1], cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:43:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L43) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:45:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L45) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(bgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.ExpectedCumulativeTransactions(params[-1], 11, 39, 12),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotTrackingCum(params[-1], cbs$T.cal, 32 + 32, cu_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:69:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L69) *style:* **lines should not be more than 80 characters.**
```r
  est_fixed_k <- bgcnbd.EstimateParameters(cbs[, c("x", "t.x", "T.cal", "litt")], k = params[1])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:76:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L76) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est32 <- bgcnbd.ConditionalExpectedTransactions(params, 32, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:77:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-bg-cnbd-k.R#L77) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est64 <- bgcnbd.ConditionalExpectedTransactions(params, 64, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:5:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L5) *style:* **lines should not be more than 80 characters.**
```r
  elog <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.Date() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:6:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L6) *style:* **lines should not be more than 80 characters.**
```r
  elog_time <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.time() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:7:14:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L7) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  elog_dt <- as.data.table(elog)
             ^~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:19:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L19) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog_time, units = "secs", T.cal = as.character(min(elog_time$date) + 21))[, 1:4],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L20) *style:* **lines should not be more than 80 characters.**
```r
               elog2cbs(elog, units = "days", T.cal = as.character(Sys.Date() + 21))[, 1:4])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:28:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L28) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "sales", "sales.x", "first", "T.cal"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:30:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L30) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "sales", "sales.x", "first", "T.cal", "T.star", "x.star", "sales.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L32) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "first", "T.cal", "T.star", "x.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:34:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L34) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "first", "T.cal", "T.star", "x.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:37:16:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog$cust), nrow(elog2cbs(elog)))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L38) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog[elog$date <= T.cal, "cust"]), nrow(elog2cbs(elog, T.cal = T.cal)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:38:16:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L38) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog[elog$date <= T.cal, "cust"]), nrow(elog2cbs(elog, T.cal = T.cal)))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:42:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L42) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog_dt[, .(cust, date)]), sum(cbs$x) + sum(cbs$x.star) + nrow(cbs))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:42:16:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog_dt[, .(cust, date)]), sum(cbs$x) + sum(cbs$x.star) + nrow(cbs))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog_dt[elog_dt$first <= T.cal & date <= T.tot, .(cust, date)]),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:47:16:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L47) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog_dt[elog_dt$first <= T.cal & date <= T.tot, .(cust, date)]),
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:52:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L52) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first <= T.cal & date <= T.cal, sum(sales)], sum(cbs$sales))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:53:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L53) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first < date & first <= T.cal & date <= T.cal, sum(sales)], sum(cbs$sales.x))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:54:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L54) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first <= T.cal & date <= T.tot, sum(sales)], sum(cbs$sales) + sum(cbs$sales.star))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  cbs <- elog2cbs(elog_s, T.cal = as.character(T.cal), T.tot = as.character(T.tot))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:65:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L65) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog, units = "hours")$t.x / (7 * 24), elog2cbs(elog)$t.x)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:66:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L66) *style:* **lines should not be more than 80 characters.**
```r
  elog_time <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.time() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-elog2cbs.R#L67) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog, units = "days")[, c(1:4, 6)], elog2cbs(elog_time, units = "secs")[, c(1:4, 6)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:8:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L8) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(BTYDplus:::dc.check.model.params.safe(printnames, params, "foo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:12:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L12) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(BTYDplus:::dc.check.model.params.safe(printnames, params, "foo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:25:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L25) *style:* **lines should not be more than 80 characters.**
```r
                         col.names = c("cust", "sampleid", "date", "cds", "sales"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:28:15:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L28) *style:* **Variable and function names should be all lowercase.**
```r
  utils::data(cdnowSummary, package = "BTYD", envir = environment())
              ^~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:29:21:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(cum, cdnowSummary$cu.tracking)
                    ^~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(diff(elog2cum(elog, by = 7, first = TRUE)), elog2inc(elog, by = 7, first = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:39:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L39) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(tail(elog2cum(elog, by = 1, first = FALSE), 1), nrow(elog) - uniqueN(elog$cust))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:39:77:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L39) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(tail(elog2cum(elog, by = 1, first = FALSE), 1), nrow(elog) - uniqueN(elog$cust))
                                                                            ^~~~~~~
```
[tests/testthat/test-helpers.R:41:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L41) *style:* **lines should not be more than 80 characters.**
```r
  elog <- data.table(cust = c(1, 1, 1, 1, 1, 3, 3), t = c(0, 9, 9, 20, 22, 4, 6))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, headers = c("X", "Y"), title = ""))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:52:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L52) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, T.cal = "2006-12-31", title = NULL))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:53:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L53) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, T.cal = "2006-12-31", T.tot = "2007-06-30",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-helpers.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(head(groceryElog, 10), T.cal = "2006-12-31", T.tot = "2007-12-30"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L20) *style:* **lines should not be more than 80 characters.**
```r
  est2 <- mbgcnbd.EstimateParameters(cbs[, c("x", "t.x", "T.cal", "litt")], k = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:28:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L28) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est <- mbgcnbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(mbgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal + cbs$T.star), elog2inc(elog, by = 14)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:48:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L48) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(mbgcnbd.PlotTrackingCum(params, cbs$T.cal, max(cbs$T.cal + cbs$T.star), elog2cum(elog, by = 14)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  mat <- mbgcnbd.PlotFreqVsConditionalExpectedFrequency(params, cbs$T.star, cbs, cbs$x.star, 7)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:55:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L55) *style:* **lines should not be more than 80 characters.**
```r
  expect_lt(mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = c(0, 1), t.x = c(0, 12), T.cal = 32)[2], 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:56:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L56) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = 3, t.x = 12, T.cal = 32) !=
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L57) *style:* **lines should not be more than 80 characters.**
```r
                mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = 2, t.x = 12, T.cal = 32))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mbg-cnbd-k.R#L67) *style:* **lines should not be more than 80 characters.**
```r
    cbs$x.est <- mbgcnbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:17:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L17) *style:* **lines should not be more than 80 characters.**
```r
  abe_params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L20) *style:* **lines should not be more than 80 characters.**
```r
  abe_draws <- abe.mcmc.DrawParameters(abe_cbs, c("covariate_1", "covariate_2"), mcmc, burnin, thin, chains)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:25:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L25) *style:* **lines should not be more than 80 characters.**
```r
  pggg_draws <- pggg.mcmc.DrawParameters(pggg_cbs, mcmc / 10, burnin / 10, thin / 10, chains)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L32) *style:* **lines should not be more than 80 characters.**
```r
  pnbd_xstar_draws1 <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, sample_size = size)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:35:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L35) *style:* **lines should not be more than 80 characters.**
```r
  pnbd_xstar_draws2 <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, sample_size = size)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_gt(cor(apply(pnbd_xstar_draws2, 2, mean), apply(pnbd_xstar_draws, 2, mean)), 0.95)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L38) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(pnbd_xstar_draws <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, T.star = 10))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:46:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L46) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(dim(pnbd_xstar_draws3), c((mcmc + burnin - burnin2) * chains / thin, nrow(pnbd_cbs)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:46:42:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  expect_equal(dim(pnbd_xstar_draws3), c((mcmc + burnin - burnin2) * chains / thin, nrow(pnbd_cbs)))
                                         ^
```
[tests/testthat/test-mcmc.R:85:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L85) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(mcmc.Expectation(pnbd_draws, 28), mean(pnbd_cbs$x), tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:86:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L86) *style:* **lines should not be more than 80 characters.**
```r
  x <- mcmc.ExpectedCumulativeTransactions(pnbd_draws, T.cal = pnbd_cbs$T.cal, T.tot = 56, n.periods.final = 56)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:99:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-mcmc.R#L99) *style:* **lines should not be more than 80 characters.**
```r
               BTYD::pnbd.PlotFrequencyInCalibration(unlist(pnbd_params), pnbd_cbs, censor = 7),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-nbd.R:18:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-nbd.R#L18) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est <- nbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:12:37:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-ggg-mcmc.R#L12) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- pggg.mcmc.DrawParameters(as.data.table(cbs),
                                    ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:13:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-ggg-mcmc.R#L13) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 10, burnin = 0, thin = 1, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:14:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-ggg-mcmc.R#L14) *style:* **lines should not be more than 80 characters.**
```r
                                    param_init = list(r = 1, alpha = 1, s = 1, beta = 1, t = 1, gamma = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:16:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-ggg-mcmc.R#L16) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 100, burnin = 20, thin = 10, chains = 2, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:9:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L9) *style:* **lines should not be more than 80 characters.**
```r
  params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:12:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L12) *style:* **lines should not be more than 80 characters.**
```r
                                 covariates = matrix(c(rnorm(n), runif(n)), ncol = 2)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:14:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L14) *style:* **lines should not be more than 80 characters.**
```r
                                 covariates = matrix(c(rnorm(n), runif(n)), ncol = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:15:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L15) *style:* **lines should not be more than 80 characters.**
```r
                                                     dimnames = list(NULL, c("x1", "x2")))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:18:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L18) *style:* **lines should not be more than 80 characters.**
```r
                                                    dimnames = list(NULL, c("x1")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:21:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L21) *style:* **lines should not be more than 80 characters.**
```r
                                covariates = matrix(c(rnorm(n), runif(n), runif(n)), ncol = 3,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:22:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L22) *style:* **lines should not be more than 80 characters.**
```r
                                                    dimnames = list(NULL, c("x1", "x2", "x3")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:26:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L26) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(abe.GenerateData(n, 36, 36, params, covariates = matrix(rnorm(n), ncol = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:27:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L27) *style:* **lines should not be more than 80 characters.**
```r
                                                                  dimnames = list(NULL, "x1"))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L32) *style:* **lines should not be more than 80 characters.**
```r
  params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:40:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L40) *style:* **lines should not be more than 80 characters.**
```r
  # TODO: test param recoverability with covars being provided to abe.GenerateData
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:48:36:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L48) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs),
                                   ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:49:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L49) *style:* **lines should not be more than 80 characters.**
```r
                                   mcmc = 10, burnin = 0, thin = 1, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:50:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L50) *style:* **lines should not be more than 80 characters.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs), covariates = c("covariate_1"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:50:36:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L50) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs), covariates = c("covariate_1"),
                                   ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L51) *style:* **lines should not be more than 80 characters.**
```r
                                   mcmc = 10, burnin = 0, thin = 1, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:54:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L54) *style:* **lines should not be more than 80 characters.**
```r
  draws <- abe.mcmc.DrawParameters(cbs, covariates = c("covariate_1", "covariate_2"), mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(all(c("lambda", "mu", "z", "tau") %in% colnames(as.matrix(draws$level_1[[1]]))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:58:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L58) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(all(c("log_lambda_intercept", "log_mu_intercept", "log_lambda_covariate_1", "log_mu_covariate_1",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:59:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L59) *style:* **lines should not be more than 80 characters.**
```r
    "log_lambda_covariate_2", "log_mu_covariate_2", "var_log_lambda", "cov_log_lambda_log_mu", "var_log_mu") %in%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L67) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(matrix(est[1:6], ncol = 2, byrow = T), params$beta, tolerance = 0.05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:70:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L70) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(unname(est["var_log_lambda"]), params$gamma[1, 1], tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:71:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L71) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(unname(est["cov_log_lambda_log_mu"]), params$gamma[1, 2], tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:95:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L95) *style:* **lines should not be more than 80 characters.**
```r
                              covariates = cbs[, c("covariate_1", "covariate_2")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:103:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-abe.R#L103) *style:* **lines should not be more than 80 characters.**
```r
                              covariates = cbs[, c("covariate_1", "covariate_2")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:17:16:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L17) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(sim$elog$cust), n)
               ^~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:30:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L30) *style:* **lines should not be more than 80 characters.**
```r
  sim <- pggg.GenerateData(100, 52, c(26, 104), params, date.zero = as.Date("2010-01-01"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:61:37:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L61) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- pnbd.mcmc.DrawParameters(as.data.table(cbs),
                                    ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:62:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L62) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 10, burnin = 0, thin = 1, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:63:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L63) *style:* **lines should not be more than 80 characters.**
```r
                                    param_init = list(r = 1, alpha = 1, s = 1, beta = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:95:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L95) *style:* **lines should not be more than 80 characters.**
```r
                                          mcmc = 10, burnin = 0, thin = 2, chains = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:96:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-pareto-nbd-mcmc.R#L96) *style:* **lines should not be more than 80 characters.**
```r
                                          use_data_augmentation = FALSE, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:17:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-timing.R#L17) *style:* **lines should not be more than 80 characters.**
```r
  expect_error(k_est_1 <- estimateRegularity(elog, plot = TRUE, min = 60), "sufficient")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:21:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-timing.R#L21) *style:* **lines should not be more than 80 characters.**
```r
  k_est_3 <- estimateRegularity(elog, method = "mle-minka", plot = TRUE, title = "Plot Title")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:22:1:](https://github.com/mplatzer/BTYDplus/blob/e4b2aaf5d1a30f34963dbb692f603682431cd3e0/tests/testthat/test-timing.R#L22) *style:* **lines should not be more than 80 characters.**
```r
  k_est_4 <- estimateRegularity(elog, method = "mle-thom", plot = TRUE, title = "")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Done: https://github.com/meetecho/janus-gateway/commit/ba16db3d03b82fb37b65a886fea6bd128fdff3f8


Good. I will apply this PR.
Thanks! :+1:


Fixed, I took in use a combination of createHtml() and appendTo() which is much better, thanks.


А я их везде и вырезала :D Нууу, где нашла :D


You can use an anchor tag for this. Are you looking for jobs? 🤔

```html
<a href="mailto:webmaster@example.com">Jon Doe</a>
<a href="tel:3177594940">317-759-4940</a>
```


-define('BOT_TOKEN', '**342936414:AAGolEeClswJhP9xyo1AVZFmZF-PqMHhI_g**');


[tests/testthat/test-bg-cnbd-k.R:31:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L31) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.ConditionalExpectedTransactions(params[-1], 32, 1, 16, 32),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:36:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L36) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotFrequencyInCalibration(params, cbs, 7), tolerance = 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotFreqVsConditionalExpectedFrequency(params[-1], T.star = 39, cbs, cbs$x.star, 7),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L38) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotFreqVsConditionalExpectedFrequency(params, T.star = 39, cbs, cbs$x.star, 7), tolerance = 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:39:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L39) *style:* **lines should not be more than 80 characters.**
```r
  # Note: BTYD::bgnbd.PlotRecVsConditionalExpectedFrequency can't handle missing bins, so we can't compare
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:40:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L40) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(bgcnbd.PlotRecVsConditionalExpectedFrequency(params, cbs, T.star = 39, cbs$x.star))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:42:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L42) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotTrackingInc(params[-1], cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:43:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L43) *style:* **lines should not be more than 80 characters.**
```r
               bgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:45:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L45) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(bgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal) + 32, inc_tracking,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.ExpectedCumulativeTransactions(params[-1], 11, 39, 12),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(BTYD::bgnbd.PlotTrackingCum(params[-1], cbs$T.cal, 32 + 32, cu_tracking),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:69:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L69) *style:* **lines should not be more than 80 characters.**
```r
  est_fixed_k <- bgcnbd.EstimateParameters(cbs[, c("x", "t.x", "T.cal", "litt")], k = params[1])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:76:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L76) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est32 <- bgcnbd.ConditionalExpectedTransactions(params, 32, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-bg-cnbd-k.R:77:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-bg-cnbd-k.R#L77) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est64 <- bgcnbd.ConditionalExpectedTransactions(params, 64, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:5:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L5) *style:* **lines should not be more than 80 characters.**
```r
  elog <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.Date() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:6:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L6) *style:* **lines should not be more than 80 characters.**
```r
  elog_time <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.time() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:7:14:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L7) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  elog_dt <- as.data.table(elog)
             ^~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:19:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L19) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog_time, units = "secs", T.cal = as.character(min(elog_time$date) + 21))[, 1:4],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L20) *style:* **lines should not be more than 80 characters.**
```r
               elog2cbs(elog, units = "days", T.cal = as.character(Sys.Date() + 21))[, 1:4])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:28:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L28) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "sales", "sales.x", "first", "T.cal"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:30:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L30) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "sales", "sales.x", "first", "T.cal", "T.star", "x.star", "sales.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L32) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "first", "T.cal", "T.star", "x.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:34:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L34) *style:* **lines should not be more than 80 characters.**
```r
               c("cust", "x", "t.x", "litt", "first", "T.cal", "T.star", "x.star"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:37:16:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog$cust), nrow(elog2cbs(elog)))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L38) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog[elog$date <= T.cal, "cust"]), nrow(elog2cbs(elog, T.cal = T.cal)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:38:16:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L38) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog[elog$date <= T.cal, "cust"]), nrow(elog2cbs(elog, T.cal = T.cal)))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:42:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L42) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog_dt[, .(cust, date)]), sum(cbs$x) + sum(cbs$x.star) + nrow(cbs))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:42:16:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog_dt[, .(cust, date)]), sum(cbs$x) + sum(cbs$x.star) + nrow(cbs))
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(uniqueN(elog_dt[elog_dt$first <= T.cal & date <= T.tot, .(cust, date)]),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:47:16:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L47) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(elog_dt[elog_dt$first <= T.cal & date <= T.tot, .(cust, date)]),
               ^~~~~~~
```
[tests/testthat/test-elog2cbs.R:52:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L52) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first <= T.cal & date <= T.cal, sum(sales)], sum(cbs$sales))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:53:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L53) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first < date & first <= T.cal & date <= T.cal, sum(sales)], sum(cbs$sales.x))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:54:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L54) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog_s[first <= T.cal & date <= T.tot, sum(sales)], sum(cbs$sales) + sum(cbs$sales.star))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  cbs <- elog2cbs(elog_s, T.cal = as.character(T.cal), T.tot = as.character(T.tot))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:65:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L65) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog, units = "hours")$t.x / (7 * 24), elog2cbs(elog)$t.x)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:66:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L66) *style:* **lines should not be more than 80 characters.**
```r
  elog_time <- data.frame(cust = c(1, 1, 1, 1, 1, 2, 3), date = Sys.time() + c(0, 14, 14, 28, 35, 7, 24))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-elog2cbs.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-elog2cbs.R#L67) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(elog2cbs(elog, units = "days")[, c(1:4, 6)], elog2cbs(elog_time, units = "secs")[, c(1:4, 6)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:8:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L8) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(BTYDplus:::dc.check.model.params.safe(printnames, params, "foo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:12:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L12) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(BTYDplus:::dc.check.model.params.safe(printnames, params, "foo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:25:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L25) *style:* **lines should not be more than 80 characters.**
```r
                         col.names = c("cust", "sampleid", "date", "cds", "sales"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:28:15:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L28) *style:* **Variable and function names should be all lowercase.**
```r
  utils::data(cdnowSummary, package = "BTYD", envir = environment())
              ^~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:29:21:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(cum, cdnowSummary$cu.tracking)
                    ^~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(diff(elog2cum(elog, by = 7, first = TRUE)), elog2inc(elog, by = 7, first = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:39:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L39) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(tail(elog2cum(elog, by = 1, first = FALSE), 1), nrow(elog) - uniqueN(elog$cust))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:39:77:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L39) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(tail(elog2cum(elog, by = 1, first = FALSE), 1), nrow(elog) - uniqueN(elog$cust))
                                                                            ^~~~~~~
```
[tests/testthat/test-helpers.R:41:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L41) *style:* **lines should not be more than 80 characters.**
```r
  elog <- data.table(cust = c(1, 1, 1, 1, 1, 3, 3), t = c(0, 9, 9, 20, 22, 4, 6))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, headers = c("X", "Y"), title = ""))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:52:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L52) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, T.cal = "2006-12-31", title = NULL))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:53:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L53) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(groceryElog, T.cal = "2006-12-31", T.tot = "2007-06-30",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helpers.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-helpers.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(plotTimingPatterns(head(groceryElog, 10), T.cal = "2006-12-31", T.tot = "2007-12-30"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L20) *style:* **lines should not be more than 80 characters.**
```r
  est2 <- mbgcnbd.EstimateParameters(cbs[, c("x", "t.x", "T.cal", "litt")], k = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:28:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L28) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est <- mbgcnbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:47:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L47) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(mbgcnbd.PlotTrackingInc(params, cbs$T.cal, max(cbs$T.cal + cbs$T.star), elog2inc(elog, by = 14)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:48:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L48) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(mbgcnbd.PlotTrackingCum(params, cbs$T.cal, max(cbs$T.cal + cbs$T.star), elog2cum(elog, by = 14)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L51) *style:* **lines should not be more than 80 characters.**
```r
  mat <- mbgcnbd.PlotFreqVsConditionalExpectedFrequency(params, cbs$T.star, cbs, cbs$x.star, 7)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:55:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L55) *style:* **lines should not be more than 80 characters.**
```r
  expect_lt(mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = c(0, 1), t.x = c(0, 12), T.cal = 32)[2], 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:56:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L56) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = 3, t.x = 12, T.cal = 32) !=
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L57) *style:* **lines should not be more than 80 characters.**
```r
                mbgcnbd.ConditionalExpectedTransactions(params, T.star = 32, x = 2, t.x = 12, T.cal = 32))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mbg-cnbd-k.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mbg-cnbd-k.R#L67) *style:* **lines should not be more than 80 characters.**
```r
    cbs$x.est <- mbgcnbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$t.x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:17:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L17) *style:* **lines should not be more than 80 characters.**
```r
  abe_params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:20:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L20) *style:* **lines should not be more than 80 characters.**
```r
  abe_draws <- abe.mcmc.DrawParameters(abe_cbs, c("covariate_1", "covariate_2"), mcmc, burnin, thin, chains)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:25:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L25) *style:* **lines should not be more than 80 characters.**
```r
  pggg_draws <- pggg.mcmc.DrawParameters(pggg_cbs, mcmc / 10, burnin / 10, thin / 10, chains)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L32) *style:* **lines should not be more than 80 characters.**
```r
  pnbd_xstar_draws1 <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, sample_size = size)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:35:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L35) *style:* **lines should not be more than 80 characters.**
```r
  pnbd_xstar_draws2 <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, sample_size = size)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:37:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L37) *style:* **lines should not be more than 80 characters.**
```r
  expect_gt(cor(apply(pnbd_xstar_draws2, 2, mean), apply(pnbd_xstar_draws, 2, mean)), 0.95)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:38:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L38) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(pnbd_xstar_draws <- mcmc.DrawFutureTransactions(pnbd_cbs, pnbd_draws, T.star = 10))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:46:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L46) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(dim(pnbd_xstar_draws3), c((mcmc + burnin - burnin2) * chains / thin, nrow(pnbd_cbs)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:46:42:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  expect_equal(dim(pnbd_xstar_draws3), c((mcmc + burnin - burnin2) * chains / thin, nrow(pnbd_cbs)))
                                         ^
```
[tests/testthat/test-mcmc.R:85:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L85) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(mcmc.Expectation(pnbd_draws, 28), mean(pnbd_cbs$x), tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:86:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L86) *style:* **lines should not be more than 80 characters.**
```r
  x <- mcmc.ExpectedCumulativeTransactions(pnbd_draws, T.cal = pnbd_cbs$T.cal, T.tot = 56, n.periods.final = 56)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mcmc.R:99:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-mcmc.R#L99) *style:* **lines should not be more than 80 characters.**
```r
               BTYD::pnbd.PlotFrequencyInCalibration(unlist(pnbd_params), pnbd_cbs, censor = 7),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-nbd.R:18:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-nbd.R#L18) *style:* **lines should not be more than 80 characters.**
```r
  cbs$x.est <- nbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$T.cal)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:12:37:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-ggg-mcmc.R#L12) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- pggg.mcmc.DrawParameters(as.data.table(cbs),
                                    ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:13:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-ggg-mcmc.R#L13) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 10, burnin = 0, thin = 1, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:14:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-ggg-mcmc.R#L14) *style:* **lines should not be more than 80 characters.**
```r
                                    param_init = list(r = 1, alpha = 1, s = 1, beta = 1, t = 1, gamma = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-ggg-mcmc.R:16:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-ggg-mcmc.R#L16) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 100, burnin = 20, thin = 10, chains = 2, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:9:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L9) *style:* **lines should not be more than 80 characters.**
```r
  params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:12:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L12) *style:* **lines should not be more than 80 characters.**
```r
                                 covariates = matrix(c(rnorm(n), runif(n)), ncol = 2)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:14:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L14) *style:* **lines should not be more than 80 characters.**
```r
                                 covariates = matrix(c(rnorm(n), runif(n)), ncol = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:15:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L15) *style:* **lines should not be more than 80 characters.**
```r
                                                     dimnames = list(NULL, c("x1", "x2")))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:18:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L18) *style:* **lines should not be more than 80 characters.**
```r
                                                    dimnames = list(NULL, c("x1")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:21:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L21) *style:* **lines should not be more than 80 characters.**
```r
                                covariates = matrix(c(rnorm(n), runif(n), runif(n)), ncol = 3,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:22:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L22) *style:* **lines should not be more than 80 characters.**
```r
                                                    dimnames = list(NULL, c("x1", "x2", "x3")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:26:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L26) *style:* **lines should not be more than 80 characters.**
```r
  expect_silent(abe.GenerateData(n, 36, 36, params, covariates = matrix(rnorm(n), ncol = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:27:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L27) *style:* **lines should not be more than 80 characters.**
```r
                                                                  dimnames = list(NULL, "x1"))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:32:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L32) *style:* **lines should not be more than 80 characters.**
```r
  params$beta <- matrix(c(0.18, -2.5, 0.5, -0.3, -0.2, 0.8), byrow = TRUE, ncol = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:40:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L40) *style:* **lines should not be more than 80 characters.**
```r
  # TODO: test param recoverability with covars being provided to abe.GenerateData
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:48:36:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L48) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs),
                                   ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:49:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L49) *style:* **lines should not be more than 80 characters.**
```r
                                   mcmc = 10, burnin = 0, thin = 1, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:50:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L50) *style:* **lines should not be more than 80 characters.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs), covariates = c("covariate_1"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:50:36:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L50) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- abe.mcmc.DrawParameters(as.data.table(cbs), covariates = c("covariate_1"),
                                   ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:51:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L51) *style:* **lines should not be more than 80 characters.**
```r
                                   mcmc = 10, burnin = 0, thin = 1, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:54:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L54) *style:* **lines should not be more than 80 characters.**
```r
  draws <- abe.mcmc.DrawParameters(cbs, covariates = c("covariate_1", "covariate_2"), mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:57:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L57) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(all(c("lambda", "mu", "z", "tau") %in% colnames(as.matrix(draws$level_1[[1]]))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:58:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L58) *style:* **lines should not be more than 80 characters.**
```r
  expect_true(all(c("log_lambda_intercept", "log_mu_intercept", "log_lambda_covariate_1", "log_mu_covariate_1",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:59:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L59) *style:* **lines should not be more than 80 characters.**
```r
    "log_lambda_covariate_2", "log_mu_covariate_2", "var_log_lambda", "cov_log_lambda_log_mu", "var_log_mu") %in%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:67:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L67) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(matrix(est[1:6], ncol = 2, byrow = T), params$beta, tolerance = 0.05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:70:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L70) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(unname(est["var_log_lambda"]), params$gamma[1, 1], tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:71:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L71) *style:* **lines should not be more than 80 characters.**
```r
  expect_equal(unname(est["cov_log_lambda_log_mu"]), params$gamma[1, 2], tolerance = 0.1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:95:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L95) *style:* **lines should not be more than 80 characters.**
```r
                              covariates = cbs[, c("covariate_1", "covariate_2")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-abe.R:103:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-abe.R#L103) *style:* **lines should not be more than 80 characters.**
```r
                              covariates = cbs[, c("covariate_1", "covariate_2")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:17:16:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L17) *style:* **Variable and function names should be all lowercase.**
```r
  expect_equal(uniqueN(sim$elog$cust), n)
               ^~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:30:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L30) *style:* **lines should not be more than 80 characters.**
```r
  sim <- pggg.GenerateData(100, 52, c(26, 104), params, date.zero = as.Date("2010-01-01"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:61:37:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L61) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
  draws <- pnbd.mcmc.DrawParameters(as.data.table(cbs),
                                    ^~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:62:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L62) *style:* **lines should not be more than 80 characters.**
```r
                                    mcmc = 10, burnin = 0, thin = 1, mc.cores = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:63:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L63) *style:* **lines should not be more than 80 characters.**
```r
                                    param_init = list(r = 1, alpha = 1, s = 1, beta = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:95:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L95) *style:* **lines should not be more than 80 characters.**
```r
                                          mcmc = 10, burnin = 0, thin = 2, chains = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-pareto-nbd-mcmc.R:96:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-pareto-nbd-mcmc.R#L96) *style:* **lines should not be more than 80 characters.**
```r
                                          use_data_augmentation = FALSE, mc.cores = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:17:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-timing.R#L17) *style:* **lines should not be more than 80 characters.**
```r
  expect_error(k_est_1 <- estimateRegularity(elog, plot = TRUE, min = 60), "sufficient")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:21:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-timing.R#L21) *style:* **lines should not be more than 80 characters.**
```r
  k_est_3 <- estimateRegularity(elog, method = "mle-minka", plot = TRUE, title = "Plot Title")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-timing.R:22:1:](https://github.com/mplatzer/BTYDplus/blob/5178098fefa6fc0ec1401469c9eee7bc7ebb131b/tests/testthat/test-timing.R#L22) *style:* **lines should not be more than 80 characters.**
```r
  k_est_4 <- estimateRegularity(elog, method = "mle-thom", plot = TRUE, title = "")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


не исправлено


Ага. Ну, я как поняла - так и писала... Михаил сказал, что я переусердствовала (не, ну было чуток наверно) и код плохо читается. Я вообще убрала given-when-then, наверно ему не понравится. Но убрать в парочке тестов - проще, чем переделывать все тесты :D Там и так всё ясно.


厉害啊~


Hi
Yes.
Our policy is to do not have JTango classes in jar file.
we want to be able to fix a bug in JTango classes without recompiling
everything
Regards
Pascal

On 13/03/2017 12:00, Ingvord wrote:
>
> There won't be single executable jar without this |<executions>| tag.
> Is it intended?
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/tango-controls/MStatusFacade/commit/ad6ff59f169f34d82bfa5fdec2242371eb27a8f7#commitcomment-21286917>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/ASwUCLqsUsfOOkT7l7fTB_whtMbPIbl7ks5rlSHJgaJpZM4MbG7j>.
>


Don't mix simple and double quotes


Как таки лучше, с новой строчки начинать инициализацию или нет?


Where did this section heading go?


Lol


GIF：
https://gyazo.com/d9145daebcf6eca85704ed88901fbddb


Kæft det ringe


Fixed as consequence of other fix.


Приглядись, ты ту сравниваешь один и тот же объект.


The transaction's gasPrice is what you paid. That's done.
`web3.eth.gasPrice` is calculated from the latest blocks and what you probably should pay if you want to see your transaction be mined. A suggestion.


Сделай с английским ) Если проблема только в букве ё, можно сделать интервал, привести его к массиву и вставить ё с помощью `Array#insert`. Или сделай с английским :)


Вот использование dbghelp
https://github.com/nextgis/nextgisqgis/blob/master/src/app/qgisapp.cpp#L11341-L11348

Просто убирать этот кусок?


sim... houve mudanças... além disso, implementou-se descricao_ativa e descricao_passiva


收到


`each.with_index` повзолит обойтись без +1
http://stackoverflow.com/questions/20258086/difference-between-each-with-index-and-each-with-index-in-ruby/20258160#20258160


@dangowrt
Can you please use xz instead of gz and add PKG_MIRROR_HASH?


三个结束符


Thanks, Hannes. No I haven’t. It looks nice I will give it a try later since I need a more accurate profiling tool anyway.

Liang

> On 10 Mar 2017, at 15:49, Hannes Mehnert <notifications@github.com> wrote:
>
> did you try to use spacetime https://blogs.janestreet.com/a-brief-trip-through-spacetime/ <https://blogs.janestreet.com/a-brief-trip-through-spacetime/> ?
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub <https://github.com/ocamllabs/furore/commit/3bcd1a741f9bceef7bf5a5f375a49eeea87f0366#commitcomment-21257678>, or mute the thread <https://github.com/notifications/unsubscribe-auth/ABpEoT5p_4ZEo0U2OvwSWuoLK6zHa-Tgks5rkXDtgaJpZM4MZicA>.
>


im really sorry upstream changed


GIF(hit point effect)
https://gyazo.com/8562b9b6672c8efcbc7f6d3d00d73567


Musiałam pozmieniać nieco nawiasy, bo tak jak mi przesłałeś to nie działało :)


@greut petite question, votre lien pointe sur la dernière version en développement de django, or nous utilisons la version 1.10.5 https://docs.djangoproject.com/en/1.10/_modules/django/forms/widgets/#CheckboxSelectMultiple et celle-ci ne semple pas disposer de l'attribut template_name et option_template_name ou est-ce que je me trompe ?


u just suk dikis


используй постфиксную форму if


Boxee Hacks "update" isn't needed, the prior release did, it required manual editing to the xbmc.sh OR an update to Boxee Hacks script. It works as long as your installation is default location xbmc/kodi bin


The new version has been uploaded. Thanks for your kind reminder.


FYI: You can avoid getting merge-commits by using the rebase option in pull-requests.


laseLine.SetPosition(1, hit.point);ここのhit.pointはhitpointに変えよう


strange, my .gitignore looks like
/target
/local

# Eclipse, Netbeans and IntelliJ files
/.*
!.gitignore
/nbproject
/*.ipr
/*.iws
/*.iml

# Repository wide ignore mac DS_Store files
.DS_Store


I think this change is wrong, the corresponding constructors in the primary template take a `pointer` parameter (which may not be an actual pointer type, it could be a class type).


"pointer" should be in code font here.


@需要报主席大腿啊，啥也不会咋办


Hi dear Marios
I did your order
but gives an error again

[image: Inline image 2]

On Sat, Mar 11, 2017 at 7:09 AM, Marios Kyriakou <notifications@github.com>
wrote:

> Maybe you need to run "mex -setup" and select compiler (e.g. Microsoft
> Windows SDK 7.1), then try again the above example.
>
> —
> You are receiving this because you commented.
> Reply to this email directly, view it on GitHub
> <https://github.com/OpenWaterAnalytics/EPANET-Matlab-Toolkit/commit/f8619d182be00d87ae07430d2f1183cd452d43f7#commitcomment-21271156>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AY4AfUcLRPpYf71ZdmhDhS_V42PPivZdks5rkrlAgaJpZM4MaKEe>
> .
>


Bluemix [toolchain](https://console.ng.bluemix.net/devops/toolchains/1e40c6fc-6e3c-4e24-9e26-9e56e80377e2 "cs-microservice-toolchain"): [Delivery Pipeline](https://console.ng.bluemix.net/devops/pipelines/0b4fedf6-c33c-4683-ab4b-d55dd47e6b16 "csweb") deployed this commit to [MSenaj](https://console.ng.bluemix.net/apps/6e5af447-f52a-4484-bbfb-173ae259ddb7 "ibm:yp:us-south:MSenaj:MSenaj")


@Time1ess 需要抱主席大腿啊，啥也不会要失业了


hitpointだけだとエフェクトが衝突したオブジェクトに埋まっちゃう箇所があるからエフェクトを出す場所はhitpointより少し手前にしよう！


材质与纹理


Banter


Вызов этой функции нигде не происходит. У тебя без нее не собирается? Если не собирается то да - можно убрать, но не забудь исправленный файл положить вот сюда (https://github.com/nextgis/nextgisqgis/tree/master/opt/overwrite/src/app), что бы при синхронизации правок не перекрылся. Хотя оптимально его вообще не трогать - я стараюсь минимум файлов менять.


@albinowax Also you could bypass F5 iRule if you change `'` to `"`
https://twitter.com/ajinabraham/status/841225123860480000


hALLO


мне кажется, можно упростить названия переменных до price и count


> Sjålålå


There is no need to have a variable for this, as far as you're declaring the Object in the global scope, so it will be accesible from everywhere. Take into account that Javascript look up for a method in the `this` object at first, if no method/variable/whaterver is found, then it start looking for it on the upper levels of the prototype.

You should already know that the Javascript prototype is like a chain which the first "prototype" is the Object.prototype


Hvad sket' der?


Можно сразу общую стоимость сюда же записывать. Да и итог можно в этом же цикле посчитать )


Bland dig uden om


This line about `A` was supposed to be removed by the issue.


>Треба зробити відносне посилання, а не абсолютне


Så slapper du af


This line was not supposed to be removed.


Hallo gå lige ud Nico


Хм, а как метод проходил тесты, если он менял только одно значение в массиве... :D


форматування!


Will this fix #48?


awesome app!


Hello, Oleg!
Why is there this limitation for 25 kb content length? What is a proper way to make a multipart request with larger data?


No, that was done for the Atomic Science update which needs the same files


Hello
Great update. Are you planing to do also an update with the 2.7k und 30fps in 4:3?
Regards


Yes! I did checked using debugger while logged in. And for that, I had to remove [Authorize] annotation, else it won't even load the Attend method.


das stimmt.. ich hatte das nur für den überblick gesetzt, so dass man erkennt, dass diese nun genutzt wird und wichtig ist.. lieber als kommentar ? oder was ist eine schönere Variante


No problem Lin!


Разберись, что такое goods и что-такое value. Надо ли доставать нужные товары из корзины по ключу, как ты это делаешь ниже?


Bluemix [toolchain](https://console.ng.bluemix.net/devops/toolchains/12fb62cf-100f-4619-938f-a2a3a3b986cd "Butter"): [Delivery Pipeline](https://console.ng.bluemix.net/devops/pipelines/ee1a3884-4dc9-43e2-b8b9-23e3d0a049e2 "Butter") deployed this commit to [Cam](https://console.ng.bluemix.net/apps/d58553be-4fff-4ed6-aa17-6b2e24909148 "ibm:yp:us-south:camtullos:Cam")


ok


Ggf mit null arbeiten?

Was bedeutet xs?


Готово
https://github.com/shkolnick-kun/bugurtos/pull/35


Оце якраз треба переробити за правилами scss включивши img підблоком в .steps
```
.steps {
  img {
  }
  /* ... */
}
```