R/sampling.rate.R

In erpR: Event-Related Potentials (ERP) Analysis, Graphics and Utility Functions

sampling.rate<-function(x, startmsec=NULL, endmsec=NULL){
  
  if (is.null(startmsec)|is.null(endmsec)){
    stop("startmsec and endmsec must be specified", call.=F)
  }
  
  #### simple function to calculate sampling rate (in Hz) from object normally used in erpR package
	samp.rate=((dim(x)[1]-1)*1000)/(-startmsec+endmsec)
	return(samp.rate)
}