find.erp.range: find.ERP.range

In connolr3/eegdatasim: Tool for EEG signals and ERPs

find.ERP.range

Description

Estimates ERP range in a signal

Usage

find.ERP.range(data,cutoff)

Arguments

data	Vector (should be an averaged, standardised signal) in which to find ERP
cutoff=2	Minimum value of point to be included in ERP.

Value

index

Vector of indexes containing estimated ERP

Author(s)

Rose Connolly [e-mail]

Examples

find.ERP.range<-function(data,cutoff=2){
  z <- abs(data)
  z <- z - cutoff
  index<-which.max( z )
  
  zi <- z > 0
  
  left.side <- rev( zi[1:index] )
  t <- which( left.side == FALSE )
  low <- index - min(t) + 1
  
  right.side <- zi[index:length(data)]
  t <- which( right.side == FALSE )
  high <- index + min(t) - 1

  return( low:high )
}
#mysignal<-noise(200,10,250)+peak(200,10,250,7,115)
#av_signal<-signal.averaging(mysignal,200,10)
#hats<-est.sig.hat(av_signal)
#stan_signal<-(av_signal-hats[2])/hats[1]
#erp_is<-find.ERP.range(stan_signal,cutoff=1.6)
#mydata<-data.frame(av_signal,col="black")
#col<-rep("black",200)
#col[erp_is]="red"
#plot(av_signal,col=col)

connolr3/eegdatasim documentation built on April 14, 2022, 10:39 a.m.