Defines functions BCD_Gaussiaon

BCD_Gaussiaon <- function(dat,accuracy,lambda1,lambda2,lambda3,theta_hat,alpha_hat,delta_hat,R,n,p,Xj_star,C_plus,p.fac){
  for(j in 1:p){
    eeee <- BCD_Gaussiaon_j(j,dat, Xj_star, C_plus, p.fac, accuracy, lambda1, lambda2, lambda3,theta_hat[,j],alpha_hat[,j],delta_hat[,j],R,n,p)
    theta_hat[,j] <- eeee$theta_hat_j
    alpha_hat[,j] <- eeee$alpha_hat_j
    delta_hat[,j] <- eeee$delta_hat_j
  return(list(theta_hat=theta_hat, alpha_hat=alpha_hat, delta_hat=delta_hat))

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.