R/testres-analysis.R

Defines functions contsigseq

contsigseq <- function(x, significance) {
  #x <- subset(x, subset = tests == "pvalue", select = value)
  x <- x[x$tests == "pvalue", "value"]
  x <- x < significance

  i <- length(x)
  while ( x[i] == TRUE )
    i <- i - 1

  if ( i == length(x) )
    return(NA)

  i + 1
}

Try the benchmark package in your browser

Any scripts or data that you put into this service are public.

benchmark documentation built on May 30, 2017, 5:20 a.m.