R/gapi.R

Defines functions gapi

gapi <- function(dati){
  if (nrow(dati)==1){ret <- FALSE} else {
    s1 <- dati$Start[-1]
    s2 <- dati$Stop[-nrow(dati)]
    ret <- !(sum(s1==s2) == (nrow(dati)-1))}
  ret
}

Try the WCE package in your browser

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

WCE documentation built on May 29, 2024, 2:40 a.m.