Nothing

```
adj2inf <-
function(AA, isDAG = FALSE, eta=0.1){
p = dim(AA)[1]
Ip = diag( rep(1,p) )
if(isDAG){
DD = solve(Ip - AA)
return(DD)
}else{
tmp = eigen(AA, symmetric=FALSE, only.values=TRUE)$values
if( max(abs(tmp)) < 1-eta ){
DD = solve(Ip - AA)
}else{
# This is consistent with the ref #2
tmp = apply( abs(AA), 1, sum )
tmp = matrix(tmp+eta, ncol=p, nrow=p, byrow=FALSE)
tmp = AA / tmp
DD = solve(Ip - tmp)
}
return(DD)
}
}
```

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

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.