Skip to content

Commit

Permalink
bump package version and date
Browse files Browse the repository at this point in the history
  • Loading branch information
@ThierryO
ThierryO committed Dec 10, 2019
1 parent 974552a commit 8ab636a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions DESCRIPTION
View file
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
Package: multimput
Type: Package
Title: Using Multiple Imputation to Address Missing Data
Version: 0.2.8.1
Date: 2018-01-15
Version: 0.2.9
Date: 2019-12-10
Authors@R: c(
person(
"Thierry", "Onkelinx", role = c("aut", "cre"),
Expand Down

1 comment on commit 8ab636a

@lintr-bot
Copy link

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

R/aggregate_impute.R:5:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param filter an optional argument to filter the raw dataset before aggregation. Will be passed to the \code{.dots} argument of \code{\link[dplyr]{filter_}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/aggregate_impute.R:6:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param join an optional argument to filter the raw dataset based on a data.frame. A \code{\link[dplyr]{semi_join}} will be applied with \code{join} or each element of \code{join} in case join is a list
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/aggregate_impute.R:14:53: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  def = function(object, grouping, fun, filter, join){
                                                    ^~

R/aggregate_impute.R:24:60: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(object, grouping, fun, filter, join){
                                                           ^~

R/aggregate_impute.R:36:1: style: Lines should not be more than 80 characters.

<U+200B>#' @importFrom dplyr %>% group_by summarise_at funs vars mutate_ bind_rows ungroup select_ filter_ n semi_join starts_with
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/aggregate_impute.R:51:60: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(object, grouping, fun, filter, join){
                                                           ^~

R/aggregate_impute.R:141:1: style: Lines should not be more than 80 characters.

<U+200B>#' @importFrom dplyr %>% group_by summarise_at funs vars mutate_ filter_ n semi_join starts_with inner_join
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/aggregate_impute.R:149:60: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(object, grouping, fun, filter, join){
                                                           ^~

R/generateData.R:3:1: style: Lines should not be more than 80 characters.

<U+200B>#' Generate data for a regural monitoring design. The counts follow a negative binomial distribution with given size paramters and the true mean mu depending on a year, period and site effect. All effects are independent fro each other and have, on the log-scale, a normal distribution with zero mean and given standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:14:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param mean.phase.period the mean of the phase of the periodic effect among years. Defaults to 0.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:15:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param sd.phase.period the standard deviation of the phase of the periodic effect among years
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:17:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param sd.rw.site the standard deviation of the random walk along year per site on the log-scale
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:21:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param as.list return the dataset as a list rather than a data.frame. Defaults to FALSE
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:22:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param details add variables containing the year, period and site effects. Defaults tot FALSE
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:24:1: style: Lines should not be more than 80 characters.

<U+200B>#' @return A \code{data.frame} with five variables. \code{Year}, \code{Month} and \code{Site} are factors identifying the location and time of monitoring. \code{Mu} is the true mean of the negative binomial distribution in the original scale. \code{Count} are the simulated counts.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/generateData.R:28:1: style: Variable and function name style should be snake_case.

<U+200B>generateData <- function(
^~~~~~~~~~~~

R/generateData.R:30:3: style: Variable and function name style should be snake_case.

<U+200B>  n.year = 24,
  ^~~~~~

R/generateData.R:31:3: style: Variable and function name style should be snake_case.

<U+200B>  n.period = 6,
  ^~~~~~~~

R/generateData.R:32:3: style: Variable and function name style should be snake_case.

<U+200B>  n.site = 20,
  ^~~~~~

R/generateData.R:33:3: style: Variable and function name style should be snake_case.

<U+200B>  year.factor = FALSE,
  ^~~~~~~~~~~

R/generateData.R:34:3: style: Variable and function name style should be snake_case.

<U+200B>  period.factor = FALSE,
  ^~~~~~~~~~~~~

R/generateData.R:35:3: style: Variable and function name style should be snake_case.

<U+200B>  site.factor = FALSE,
  ^~~~~~~~~~~

R/generateData.R:37:3: style: Variable and function name style should be snake_case.

<U+200B>  sd.rw.year = 0.1,
  ^~~~~~~~~~

R/generateData.R:38:3: style: Variable and function name style should be snake_case.

<U+200B>  amplitude.period = 1,
  ^~~~~~~~~~~~~~~~

R/generateData.R:39:3: style: Variable and function name style should be snake_case.

<U+200B>  mean.phase.period = 0,
  ^~~~~~~~~~~~~~~~~

R/generateData.R:40:3: style: Variable and function name style should be snake_case.

<U+200B>  sd.phase.period = 0.2,
  ^~~~~~~~~~~~~~~

R/generateData.R:41:3: style: Variable and function name style should be snake_case.

<U+200B>  sd.site = 1,
  ^~~~~~~

R/generateData.R:42:3: style: Variable and function name style should be snake_case.

<U+200B>  sd.rw.site = 0.02,
  ^~~~~~~~~~

R/generateData.R:43:3: style: Variable and function name style should be snake_case.

<U+200B>  sd.noise = 0.01,
  ^~~~~~~~

R/generateData.R:45:3: style: Variable and function name style should be snake_case.

<U+200B>  n.run = 10,
  ^~~~~

R/generateData.R:46:3: style: Variable and function name style should be snake_case.

<U+200B>  as.list = FALSE,
  ^~~~~~~

R/generateData.R:48:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/generateData.R:55:3: style: Variable and function name style should be snake_case.

<U+200B>  year.rw.effect <- cumsum(rnorm(n.year, mean = 0, sd = sd.rw.year))
  ^~~~~~~~~~~~~~

R/generateData.R:57:3: style: Variable and function name style should be snake_case.

<U+200B>  site.rw.effect <- rbind(
  ^~~~~~~~~~~~~~

R/generateData.R:72:3: style: Variable and function name style should be snake_case.

<U+200B>  site.rw.effect <- as.vector(apply(site.rw.effect, 2, cumsum))
  ^~~~~~~~~~~~~~

R/generateData.R:73:3: style: Variable and function name style should be snake_case.

<U+200B>  observation.effect <- rnorm(nrow(dataset), mean = 0, sd = sd.noise)
  ^~~~~~~~~~~~~~~~~~

R/generateData.R:76:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Mu <- exp(
          ^~

R/generateData.R:88:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$YearEffect <- exp(
            ^~~~~~~~~~

R/generateData.R:91:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$PeriodEffect <- exp(
            ^~~~~~~~~~~~

R/generateData.R:97:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$SiteEffect <- exp(
            ^~~~~~~~~~

R/generateData.R:102:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$Year <- factor(dataset$Year)
            ^~~~

R/generateData.R:105:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$Period <- factor(dataset$Period)
            ^~~~~~

R/generateData.R:108:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$Site <- factor(dataset$Site)
            ^~~~

R/generateData.R:119:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Count <- rnbinom(nrow(dataset), size = size, mu = dataset$Mu)
          ^~~~~

R/generateData.R:125:39: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  relevant <- function(x, details, run){
                                      ^~

R/impute_generic.R:12:30: style: Variable and function name style should be snake_case.

<U+200B>  def = function(model, ..., n.imp = 19){
                             ^~~~~

R/impute_generic.R:12:40: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  def = function(model, ..., n.imp = 19){
                                       ^~

R/impute_generic.R:22:37: style: Variable and function name style should be snake_case.

<U+200B>  definition = function(model, ..., n.imp){
                                    ^~~~~

R/impute_generic.R:22:42: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(model, ..., n.imp){
                                         ^~

R/impute_glmerMod.R:13:43: style: Variable and function name style should be snake_case.

<U+200B>  definition = function(model, data, ..., n.imp){
                                          ^~~~~

R/impute_glmerMod.R:13:48: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(model, data, ..., n.imp){
                                               ^~

R/impute_glmerMod.R:48:17: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      function(x){
                ^~

R/impute_glmerMod.R:63:17: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      function(x){
                ^~

R/impute_inla.R:9:37: style: Variable and function name style should be snake_case.

<U+200B>  definition = function(model, ..., n.imp){
                                    ^~~~~

R/impute_inla.R:9:42: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(model, ..., n.imp){
                                         ^~

R/impute_lm.R:15:43: style: Variable and function name style should be snake_case.

<U+200B>  definition = function(model, data, ..., n.imp){
                                          ^~~~~

R/impute_lm.R:15:48: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  definition = function(model, data, ..., n.imp){
                                               ^~

R/impute_lm.R:24:16: style: Variable and function name style should be snake_case.

<U+200B>    prediction$se.pred <- sqrt(
               ^~~~~~~

R/impute_lm.R:27:5: style: Variable and function name style should be snake_case.

<U+200B>    rt.value <- matrix(
    ^~~~~~~~

R/missingAtRandom.R:3:1: style: Lines should not be more than 80 characters.

<U+200B>#' The observed values will be either equal to the counts or missing. The probability of missing is the inverse of the counts + 1.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingAtRandom.R:8:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param observed.variable The name of the variable holding the observed values = either count or missing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingAtRandom.R:10:1: style: Variable and function name style should be snake_case.

<U+200B>missingAtRandom <- function(
^~~~~~~~~~~~~~~

R/missingAtRandom.R:13:3: style: Variable and function name style should be snake_case.

<U+200B>  count.variable = "Count",
  ^~~~~~~~~~~~~~

R/missingAtRandom.R:14:3: style: Variable and function name style should be snake_case.

<U+200B>  observed.variable = "Observed"
  ^~~~~~~~~~~~~~~~~

R/missingAtRandom.R:15:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/missingAtRandom.R:18:20: style: Do not place spaces around code in parentheses or square brackets.

<U+200B>    size = ceiling( (1 - proportion) * nrow(dataset)),
                   ^

R/missingCurrentCount.R:3:1: style: Lines should not be more than 80 characters.

<U+200B>#' The observed values will be either equal to the counts or missing. The probability of missing is the inverse of the counts + 1.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingCurrentCount.R:8:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param observed.variable The name of the variable holding the observed values = either count or missing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingCurrentCount.R:10:1: style: Variable and function name style should be snake_case.

<U+200B>missingCurrentCount <- function(
^~~~~~~~~~~~~~~~~~~

R/missingCurrentCount.R:13:3: style: Variable and function name style should be snake_case.

<U+200B>  count.variable = "Count",
  ^~~~~~~~~~~~~~

R/missingCurrentCount.R:14:3: style: Variable and function name style should be snake_case.

<U+200B>  observed.variable = "Observed"
  ^~~~~~~~~~~~~~~~~

R/missingCurrentCount.R:15:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/missingObserved.R:3:1: style: Lines should not be more than 80 characters.

<U+200B>#' The observed values will be either equal to the counts or missing. The probability of missing is the inverse of the counts + 1.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingObserved.R:7:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param observed.variable The name of the variable holding the observed values = either count or missing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingObserved.R:13:1: style: Variable and function name style should be snake_case.

<U+200B>missingObserved <- function(
^~~~~~~~~~~~~~~

R/missingObserved.R:15:3: style: Variable and function name style should be snake_case.

<U+200B>  count.variable = "Count",
  ^~~~~~~~~~~~~~

R/missingObserved.R:16:3: style: Variable and function name style should be snake_case.

<U+200B>  observed.variable = "Observed",
  ^~~~~~~~~~~~~~~~~

R/missingObserved.R:17:3: style: Variable and function name style should be snake_case.

<U+200B>  site.variable = "Site",
  ^~~~~~~~~~~~~

R/missingObserved.R:18:3: style: Variable and function name style should be snake_case.

<U+200B>  year.variable = "Year",
  ^~~~~~~~~~~~~

R/missingObserved.R:19:3: style: Variable and function name style should be snake_case.

<U+200B>  period.variable = "Period"
  ^~~~~~~~~~~~~~~

R/missingObserved.R:20:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/missingObserved.R:33:3: style: Variable and function name style should be snake_case.

<U+200B>  waterfowl.site <- as.data.frame(table(Site = waterfowl$Site))
  ^~~~~~~~~~~~~~

R/missingObserved.R:34:3: style: Variable and function name style should be snake_case.

<U+200B>  selected.sites <- sample(
  ^~~~~~~~~~~~~~

R/missingObserved.R:41:3: style: Variable and function name style should be snake_case.

<U+200B>  waterfowl.period <- as.data.frame(table(Period = waterfowl$Period))
  ^~~~~~~~~~~~~~~~

R/missingObserved.R:42:3: style: Variable and function name style should be snake_case.

<U+200B>  selected.periods <- sample(
  ^~~~~~~~~~~~~~~~

R/missingObserved.R:50:46: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  pattern <- apply(combination, 1, function(x){
                                             ^~

R/missingVolunteer.R:3:1: style: Lines should not be more than 80 characters.

<U+200B>#' The observed values will be either equal to the counts or missing. The probability of missing is the inverse of the counts + 1.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingVolunteer.R:8:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param observed.variable The name of the variable holding the observed values = either count or missing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/missingVolunteer.R:14:1: style: Variable and function name style should be snake_case.

<U+200B>missingVolunteer <- function(
^~~~~~~~~~~~~~~~

R/missingVolunteer.R:17:3: style: Variable and function name style should be snake_case.

<U+200B>  count.variable = "Count",
  ^~~~~~~~~~~~~~

R/missingVolunteer.R:18:3: style: Variable and function name style should be snake_case.

<U+200B>  observed.variable = "Observed",
  ^~~~~~~~~~~~~~~~~

R/missingVolunteer.R:19:3: style: Variable and function name style should be snake_case.

<U+200B>  year.variable = "Year",
  ^~~~~~~~~~~~~

R/missingVolunteer.R:20:3: style: Variable and function name style should be snake_case.

<U+200B>  site.variable = "Site",
  ^~~~~~~~~~~~~

R/missingVolunteer.R:22:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/missingVolunteer.R:25:3: style: Variable and function name style should be snake_case.

<U+200B>  probability.start <- runif(length(levels(sites)))
  ^~~~~~~~~~~~~~~~~

R/missingVolunteer.R:26:3: style: Variable and function name style should be snake_case.

<U+200B>  probability.continu <- sapply(seq(2, length(years), by = 1), function(i){
  ^~~~~~~~~~~~~~~~~~~

R/missingVolunteer.R:26:74: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  probability.continu <- sapply(seq(2, length(years), by = 1), function(i){
                                                                         ^~

R/missingVolunteer.R:27:5: style: Variable and function name style should be snake_case.

<U+200B>    last.year <- which(dataset[, year.variable] == years[i - 1])
    ^~~~~~~~~

R/missingVolunteer.R:28:5: style: Variable and function name style should be snake_case.

<U+200B>    observed.max <- aggregate(
    ^~~~~~~~~~~~

R/missingVolunteer.R:49:20: style: Do not place spaces around code in parentheses or square brackets.

<U+200B>    size = ceiling( (1 - proportion) * nrow(dataset)),
                   ^

R/model_impute.R:5:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param model.args an optional list of arguments to pass to the model function.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/model_impute.R:6:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param extractor a function which return a \code{matrix} or \code{data.frame}. The first column should contain the estimate, the second the standard error of the estimate
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/model_impute.R:7:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param extractor.args an optional list of arguments to pass to the extractor function.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/model_impute.R:9:1: style: Lines should not be more than 80 characters.

<U+200B>#' @param mutate an optional argument to alter the aggregated dataset. Will be passed to the \code{.dots} argument of \code{\link[dplyr]{mutate_}}. This is mainly useful for simple convertions, e.g. factors to numbers and viceversa
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/model_impute.R:19:5: style: Variable and function name style should be snake_case.

<U+200B>    model.fun,
    ^~~~~~~~~

R/model_impute.R:21:5: style: Variable and function name style should be snake_case.

<U+200B>    model.args,
    ^~~~~~~~~~

R/model_impute.R:23:5: style: Variable and function name style should be snake_case.

<U+200B>    extractor.args,
    ^~~~~~~~~~~~~~

R/model_impute.R:26:1: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>){
^~

R/model_impute.R:38:5: style: Variable and function name style should be snake_case.

<U+200B>    model.fun,
    ^~~~~~~~~

R/model_impute.R:40:5: style: Variable and function name style should be snake_case.

<U+200B>    model.args,
    ^~~~~~~~~~

R/model_impute.R:42:5: style: Variable and function name style should be snake_case.

<U+200B>    extractor.args,
    ^~~~~~~~~~~~~~

R/model_impute.R:45:3: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  ){
  ^~

R/model_impute.R:53:1: style: Lines should not be more than 80 characters.

<U+200B>#' @importFrom dplyr %>% group_by bind_rows filter_ summarise_ n mutate_ transmute_
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/model_impute.R:63:31: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>#' extractor <- function(model){
                              ^~

R/model_impute.R:78:5: style: Variable and function name style should be snake_case.

<U+200B>    model.fun,
    ^~~~~~~~~

R/model_impute.R:80:5: style: Variable and function name style should be snake_case.

<U+200B>    model.args,
    ^~~~~~~~~~

R/model_impute.R:82:5: style: Variable and function name style should be snake_case.

<U+200B>    extractor.args,
    ^~~~~~~~~~~~~~

R/model_impute.R:85:3: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  ){
  ^~

R/model_impute.R:91:7: style: Variable and function name style should be snake_case.

<U+200B>      model.args <- list()
      ^~~~~~~~~~

R/model_impute.R:96:7: style: Variable and function name style should be snake_case.

<U+200B>      extractor.args <- list()
      ^~~~~~~~~~~~~~

R/model_impute.R:118:17: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      function(i){
                ^~

R/rawImputed_class.R:6:1: style: Lines should not be more than 80 characters.

<U+200B>#'    \item{\code{Response}}{a character holding the name of the response variable}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/rawImputed_class.R:7:1: style: Lines should not be more than 80 characters.

<U+200B>#'    \item{\code{Minimum}}{an optional character holding the name of the variable with the minimum}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_aa_generatedata.R:3:3: style: Variable and function name style should be snake_case.

<U+200B>  n.year <- 2L
  ^~~~~~

tests/testthat/test_aa_generatedata.R:4:3: style: Variable and function name style should be snake_case.

<U+200B>  n.site <- 2L
  ^~~~~~

tests/testthat/test_aa_generatedata.R:5:3: style: Variable and function name style should be snake_case.

<U+200B>  n.run <- 2L
  ^~~~~

tests/testthat/test_aa_generatedata.R:6:3: style: Variable and function name style should be snake_case.

<U+200B>  n.period <- 2L
  ^~~~~~~~

tests/testthat/test_ab_impute.R:5:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$fYear <- factor(dataset$Year)
          ^~~~~

tests/testthat/test_ab_impute.R:6:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$fPeriod <- factor(dataset$Period)
          ^~~~~~~

tests/testthat/test_ab_impute.R:7:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$fSite <- factor(dataset$Site)
          ^~~~~

tests/testthat/test_ab_impute.R:8:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Bottom <- 10000
          ^~~~~~

tests/testthat/test_ab_impute.R:9:3: style: Variable and function name style should be snake_case.

<U+200B>  n.imp <- 10L
  ^~~~~

tests/testthat/test_ab_impute.R:184:5: style: Variable and function name style should be snake_case.

<U+200B>    n.imp <- 19L
    ^~~~~

tests/testthat/test_ab_impute.R:186:13: style: Variable and function name style should be snake_case.

<U+200B>    dataset$Bottom <- 10000
            ^~~~~~

tests/testthat/test_ab_impute.R:265:5: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset <- dataset
    ^~~~~~~~~~~~~

tests/testthat/test_ab_impute.R:266:19: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset$Year <- NULL
                  ^~~~

tests/testthat/test_ab_impute.R:271:5: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset <- dataset
    ^~~~~~~~~~~~~

tests/testthat/test_ab_impute.R:272:19: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset$Count <- NULL
                  ^~~~~

tests/testthat/test_ab_impute.R:334:5: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset <- dataset
    ^~~~~~~~~~~~~

tests/testthat/test_ab_impute.R:335:19: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset$fPeriod <- NULL
                  ^~~~~~~

tests/testthat/test_ab_impute.R:340:5: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset <- dataset
    ^~~~~~~~~~~~~

tests/testthat/test_ab_impute.R:341:19: style: Variable and function name style should be snake_case.

<U+200B>    wrong.dataset$Count <- NULL
                  ^~~~~

tests/testthat/test_ab_impute.R:358:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Bottom <- 10000
          ^~~~~~

tests/testthat/test_bbb_aggregate_impute.R:5:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Bottom <- 100000
          ^~~~~~

tests/testthat/test_bbb_aggregate_impute.R:53:5: style: Variable and function name style should be snake_case.

<U+200B>    n.imp <- 19L
    ^~~~~

tests/testthat/test_bbb_aggregate_impute.R:71:17: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      function(x){
                ^~

tests/testthat/test_bbb_aggregate_impute.R:111:14: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      "((junk){1}.*(unknown){1}|(unknown){1}.*(junk){1})"
             ^~

tests/testthat/test_bbb_aggregate_impute.R:111:28: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      "((junk){1}.*(unknown){1}|(unknown){1}.*(junk){1})"
                           ^~

tests/testthat/test_bbb_aggregate_impute.R:111:41: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      "((junk){1}.*(unknown){1}|(unknown){1}.*(junk){1})"
                                        ^~

tests/testthat/test_bbb_aggregate_impute.R:111:52: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>      "((junk){1}.*(unknown){1}|(unknown){1}.*(junk){1})"
                                                   ^~

tests/testthat/test_bbb_aggregate_impute.R:156:11: style: Variable and function name style should be snake_case.

<U+200B>  dataset$Bottom <- 100000
          ^~~~~~

tests/testthat/test_ccc_model_impute.R:8:32: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>    extractor <- function(model){
                               ^~

tests/testthat/test_ccc_model_impute.R:11:5: style: Variable and function name style should be snake_case.

<U+200B>    model.aggr <- model_impute(
    ^~~~~~~~~~

tests/testthat/test_ccc_model_impute.R:17:5: style: Variable and function name style should be snake_case.

<U+200B>    aggr.base <- aggregate(Count ~ Year + Period, data = dataset, FUN = sum)
    ^~~~~~~~~

tests/testthat/test_ccc_model_impute.R:18:5: style: Variable and function name style should be snake_case.

<U+200B>    model.base <- lm(Count ~ 0 + factor(Year), data = aggr.base)
    ^~~~~~~~~~

tests/testthat/test_ccc_model_impute.R:29:30: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>  extractor <- function(model){
                             ^~

tests/testthat/test_ccc_model_impute.R:34:7: style: Variable and function name style should be snake_case.

<U+200B>      model.imp <- model_impute(
      ^~~~~~~~~

tests/testthat/test_ccc_model_impute.R:74:32: style: There should be a space between right parenthesis and an opening curly brace.

<U+200B>    extractor <- function(model){
                               ^~

Please sign in to comment.