Commit 1c15f684 authored by Gilles Kratzer's avatar Gilles Kratzer
Browse files

samll errors

parent 5be1ab87
Pipeline #1582 passed with stage
in 1 second
......@@ -22,8 +22,8 @@ query <- function(mcmcabn = NULL,
m.array <- array(data = 0,dim = c(n.var,n.var,n))
for(i in 1:n.var){
for(j in 1:n.var){
if(formula[i,j]==1){m.array[i,j,]<-1}
if(formula[i,j]==-1){m.array[i,j,]<- -1}
if(formula[i,j]==1){m.array[i,j,] <- 1}
if(formula[i,j]==-1){m.array[i,j,] <- -1}
}
}
......
No preview for this file type
No preview for this file type
......@@ -181,7 +181,7 @@ query(mcmcabn = mcmc.out.asia)
The `query()` function recognize formula statements. So it is possible to explicitly query: **what is the probability of LungCancer node being children of the Smoking node?**
```{r}
query(mcmcabn = mcmc.out.asia, formula = ~LungCancer|Smoking)
query(mcmcabn = mcmc.out.asia, formula = ~ LungCancer|Smoking)
```
This means that an arrow from Smoking to LungCancer appears in `r query(mcmcabn = mcmc.out.asia,formula = ~LungCancer|Smoking)*100`% of the sampled DAGs.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment