R/n.plt.R

"n.plt"<-
function(n)
{
	if(n == 1)
		m <- c(1, 1)
	else if(n == 2)
		m <- c(1, 2)
	else if(n == 3)
		m <- c(1, 3)
	else if(n == 4)
		m <- c(2, 2)
	else m <- c(2, 3)
}
s-u/pcurve documentation built on May 28, 2019, 10:48 a.m.