R/getleafnormal.R

Defines functions getleafnormal

getleafnormal <- function(l){
	if(class(l) == "leaffile")
		m <- l$XYZ
	else
		m <- l
	vec1 <- makevector(m[1,], m[2,])
	vec2 <- makevector(m[1,], m[(nrow(m)-1),])
	N <- xprod(vec1, vec2)
	N
}

Try the YplantQMC package in your browser

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

YplantQMC documentation built on May 29, 2017, 7:02 p.m.