R/zerones.R

zerones <-
function(n,loc=NA){
	re=rep(0,n);
	if (is.na(loc))return(re);
	re[loc]=1;
	re
	}
yfyang86/paftoga documentation built on May 4, 2019, 2:33 p.m.