R/local_maximum.R

In rjaneUCF/MultiHazard: Tools for modeling compound events

#' @noRd
local_maximum<-function(Data){
  max.element<-rep(NA,length(Data))
  for(j in 4:(length(Data)-4)){
    max.element[j]<-ifelse(Data[j-3]<Data[j] & Data[j-2]<Data[j] & Data[j-1]<Data[j] & Data[j+1]<Data[j] & Data[j+2]<Data[j] & Data[j+3]<Data[j],j,NA)
  }
  return(max.element)
}