R/getQuantiles.R

getQuantiles<-function(n.knots,mode){
	den<-(n.knots+1)/2
	tmp1<-(1:floor(n.knots/2))*mode/den
	tmp2<-1-(1-mode)*(ceiling(n.knots/2):1)/den
	c(tmp1,tmp2)
}

Try the siggenes package in your browser

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

siggenes documentation built on May 6, 2019, 2:38 a.m.