R/valid_amp.R

valid_amp <- function(x) {
  tres <- t.test(head(x), tail(x), alternative="less")$p.value < 0.01
  sigres <- mean(tail(x)) > mean(x[5:15]) + 3*sd(x[5:15])
  as.logical(tres * sigres)
}

Try the dpcR package in your browser

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

dpcR documentation built on May 2, 2019, 7:04 a.m.