robjhyndman / forecast / 63

pending completion

Build # 63

Build Type

Pull #154

travis-ci

Committed by

dashaub

Commit Message

Speed up is.constant() by an order of magnitude

```
is.constant <- function(x)
{
  x <- as.numeric(x)
  y <- rep(x[1],length(x))
  isequal <- all.equal(c(x),y)
  return(isequal==TRUE)
}


is.constant2 <- function(x)
{
  x <- as.numeric(x)
  y <- rep(x[1], length(x))
  return(identical(x, y))
}


require(microbenchmark)

testseries <- rep(1, 10^5)
is.constant(testseries) == is.constant2(testseries)
microbenchmark(is.constant(testseries), is.constant2(testseries))


testseries <- c(rep(1, 10^5), 100)
is.constant(testseries) == is.constant2(testseries)
microbenchmark(is.constant(testseries), is.constant2(testseries))

testseries <- c(100, rep(1, 10^5), 100)
is.constant(testseries) == is.constant2(testseries)
microbenchmark(is.constant(testseries), is.constant2(testseries))

testseries <- c(rep(1, 10^5), 100)
is.constant(testseries) == is.constant2(testseries)
microbenchmark(is.constant(testseries), is.constant2(testseries))

testseries <- ts(rep(1, 10^5), f = 12)
is.constant(testseries) == is.constant2(testseries)
microbenchmark(is.constant(testseries), is.constant2(testseries))
```

Pull Request Pull Request #154: Speed up is.constant() by an order of magnitude

Run Details

2 of 2 new or added lines in 1 file covered. (100.0%)

3296 of 8575 relevant lines covered (38.44%)

295470.46 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/R/HoltWintersNew.R

Build SHA Not Found

The commit SHA "2b3a8f27734c05897abc68425e637c0614f7d19c" was not found in your repository, so the file cannot be loaded. This may be because you posted from a local development environment, or your CI created an ephemeral commit.

robjhyndman / forecast / 63

Source File Press 'n' to go to next uncovered line, 'b' for previous

Build SHA Not Found

Source File
Press 'n' to go to next uncovered line, 'b' for previous