Description Usage Arguments Details Value Examples
This function computes the degree of inferred network
1 | degreeComp(out.mat)
|
out.mat |
Symmetric matrix that represents the inferred network |
This function computes the degree of estimated networks.
wlasso_norm |
Degree vector computed from the inferred network |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | library(DWLasso)
library(glmnet)
library(hglasso)
# Generate inverse covariance matrix with 3 hubs
# 20 % of the elements within a hub are zero
# 97 % of the elements that are not within hub nodes are zero
p <- 60 # Number of variables
n <- 40 # Number of samples
hub_number = 3 # Number of hubs
# Generate the adjacency matrix
Theta <- HubNetwork(p,0.97,hub_number,0.2)$Theta
# Generate a data matrix
out <- rmvnorm(n,rep(0,p),solve(Theta))
# Standardize the data
dat <- scale(out)
# Infer the network using weighted nodewise regression
w.mb <- rep(1,p)
adj.mat <- MBLasso(dat,lambda=0.4,w.mb)
# Compute the degree of the inferred network
deg.mat <- degreeComp(adj.mat)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.