R/medsems.R

Defines functions medsems

medsems<- function(data){
  x<-sort(data)
  value<-round((length(x)+1)/2-qnorm(.995)*sqrt(length(x)/4))
  value<-ifelse(value==0,1,value)
  result<-sqrt(((x[length(x)-value+1]-x[value])/(2*qnorm(.995)))^2)
  result
}

Try the twowaytests package in your browser

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

twowaytests documentation built on June 22, 2024, 10:44 a.m.