Nothing

```
#' Simulate Z given its expectation and covariance
#'
#' Simulate Z given its expectation and covariance
#'
#'
#' @usage simZ(EZ, rho, s2 = 1)
#' @param EZ expected value of Z
#' @param rho dyadic correlation
#' @param s2 dyadic variance
#' @return a simulated value of Z
#' @author Peter Hoff
#' @export simZ
simZ <-
function(EZ,rho,s2=1)
{
w1<-sqrt((1 + sqrt(1-rho^2))/2)
w2<-sign(rho)*sqrt(1-w1^2)
EC<-matrix(rnorm(length(EZ)),nrow(EZ),nrow(EZ))
EC<- sqrt(s2)*( w1*EC + w2*t(EC) )
EZ+EC
}
```

**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.