R/compute.d.R

Defines functions compute.d

compute.d <-
function(){#Compute d
  s<-(WIS+LDC+RDC)/2
  sa<-s-WIS
  sb<-s-LDC
  sc<-s-RDC
  sq<-(s*sa*sb*sc)
  a<-sqrt(sq)
  d<<-2*a/WIS
}
jfpalomeque/pandora documentation built on Nov. 16, 2020, 1:39 a.m.