R/correction.redundancy.R

Defines functions correction.redundancy

Documented in correction.redundancy

correction.redundancy <-function(r,HXmax,Herror,finite){
	
	Rerror<-(1-(Herror[finite]/HXmax))

	r[Rerror>r] <- 0
	return(r)
	}

Try the MEET package in your browser

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

MEET documentation built on May 2, 2019, 5:52 p.m.