R/rectangle.R

rectangle <-
function(data){

  n=length(data)
  s=sum(data)
  t=min(data)*n
  if(s-t<0){print(paste(s,t,n,s-t))}
  #s=s-(data[1]+data[n])*n/2
 # print(c(min(data),max(data),s,t))
  return(s-t)
}
lhedjazi/mQTL.NMR documentation built on May 31, 2019, 10:47 p.m.