# Load toy data
data( toydata ) # Load toy data set
D <- toydata$emat # Response matrix (for example, gene expression)
model <- toydata$model # Pre-calculated model
# Get model parameters for a given subnet
# (Gaussian mixture: mean, covariance diagonal, mixture proportions)
get.model.parameters(model, subnet.id = 1)
Run the code above in your browser using DataLab