R/F.cjs.covars.R

"F.cjs.covars" <-
function(nan, ns){
	x <- rep( diag(ns), rep(nan, ns*ns) )
	dim(x) <- c(nan, ns, ns)
	dimnames(x) <- list( NULL, paste("Trap",1:ns), paste("X",1:ns, sep="") )
	
	ans <- list( x=x )
	ans
}

Try the mra package in your browser

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

mra documentation built on May 1, 2019, 6:50 p.m.