R/net.degree.R

net.degree <-
function(theta)
{
K = length(theta)
degree = list()
for(k in 1:K)
{
	degree[[k]] = (rowSums(abs(theta[[k]])>1e-5)-1)
}

return(degree)
}

Try the fasjem package in your browser

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

fasjem documentation built on May 2, 2019, 9:19 a.m.