Nothing

```
fitchi_zero<-function(R,N,t){
p<-dim(R)[2]
k<-0
Dk <- round((1/2 * ((p-k) * (p-k+1)) -p))
Chik <- (N-1) * t
Fo <- Chik / (N - 1)
FFo <- Fo - (Dk/(N-1))
if (FFo < 0){
FFo <- 0
}
RMSEA <- sqrt(FFo / Dk)
return(RMSEA)
}
```

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