R/mom_est.R

Defines functions mom_est

mom_est<-function(data,bend_con=2.24){
  data <- data[!is.na(data)]
  upper<-(data>median(data)+bend_con*mad(data))
  lower<-(data<median(data)-bend_con*mad(data))
  x<-rep(T,length(data))
  x[upper]<-F
  x[lower]<-F
  mom_est<-mean(data[x])
  mom_est
}

Try the twowaytests package in your browser

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

twowaytests documentation built on March 31, 2023, 9:26 p.m.