post (mu,tau,rho,phi,y,z,timetrace=FALSE)
postc (mu,tau,rho,phi,y,z,timetrace=FALSE)
postcc (mu,tau,rho,phi,y,z,timetrace=FALSE)
post0 (mu,tau,rho,phi,y,timetrace=FALSE)
postc0c(mu,tau,rho,phi,y,timetrace=FALSE)
learn.node
data(rats)
fit <- network(rats,specifygraph=FALSE,inspect=FALSE)
fit.prior <- jointprior(fit,12)
W1 <- fit$nodes$W1
W1 <- cond(W1,fit,fit.prior)
W1.post <- postc0c(W1$condprior[[1]]$mu,
W1$condprior[[1]]$tau,
W1$condprior[[1]]$rho,
W1$condprior[[1]]$phi,
rats[,W1$idx])
Run the code above in your browser using DataLab