Defines functions theta_squarematrix

theta_squarematrix <- function(y,p,rule = ""){ #y is the theta matrix; d is an empty(0's) square matrix
  d <- matrix(0, nrow = p, ncol = p)
  d[,1] <- c(0,y[,1])
  for(j in 2:p){
    d[,j] <- append(y[,j],0,after = j-1) #get 0's on the diagonal b/c we don't care about relationship with itself


Try the latentgraph package in your browser

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

latentgraph documentation built on Dec. 15, 2020, 5:23 p.m.