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)
}

Try the pcurve package in your browser

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

pcurve documentation built on May 2, 2019, 4:20 p.m.