R/marca.R

Defines functions marca

Documented in marca

marca <-
function(T)
{
	if (T<15) marca<-c(1:T)
	else{
			b<-signif(T,-1)/10
			marca<-  c(1,seq(b,T, by=b))    
		}
	return(marca)
}

Try the IndTestPP package in your browser

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

IndTestPP documentation built on Aug. 29, 2020, 1:06 a.m.