Error checking example

[wleoncio]

cellmigRation version

0.99.1.9001

Expected result

A package check without errors

Obtained result

❯ checking examples ... ERROR
  Running examples in ‘cellmigRation-Ex.R’ failed
  The error most likely occurred in:

  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: bpass
  > ### Title: Perform a bandpass by convolving with an appropriate kernel
  > ### Aliases: bpass
  > ### Keywords: internal
  > 
  > ### ** Examples
  > 
  > x0 <- cbind(
  +   c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 0, 1, 1, 4, 2, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 1, 2, 6, 5, 3, 0, 0, 0, 1, 0, 0),
  +   c(0, 0, 0, 0, 5, 5, 6, 8, 6, 1, 0, 0, 6, 2, 0),
  +   c(0, 0, 2, 5, 8, 7, 3, 5, 1, 0, 0, 0, 6, 2, 0),
  +   c(0, 0, 1, 5, 8, 7, 4, 5, 2, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 5, 8, 7, 4, 5, 2, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 1, 4, 5, 2, 4, 0, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 2, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0),
  +   c(9, 9, 9, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 1),
  +   c(2, 9, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 2, 1),
  +   c(0, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0),
  +   c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
  +   c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0))
  > y0 <- cellmigRation:::bpass(x0, lnoise = 1, lobject = 5, threshold = 1)
  Error in vapply(seq_len(floor(length(krnl)/2)), function(w) { : 
    values must be length 75,
   but FUN(X[[1]]) result is length 15
  Calls: <Anonymous> -> LinearConv2 -> vapply
  Execution halted

Script to reproduce error

Assuming your working directory contains this repository:

library(devtools)
check(vignettes=FALSE)

[wleoncio]

Fixed on version 0.99.1.9002