Nothing

```
##### basic functions for calculating the CADE
Difflist=function(a,b){
J=length(a)
c=a
for (j in 1:J){
c[[j]]=a[[j]]-b[[j]]
}
return(c)
}
Meanlist=function(a){
J=length(a)
s=0
for(j in 1:J){
s=s+mean(a[[j]])
}
return(s/J)
}
Productlist=function(a,b){
J=length(a)
c=a
for (j in 1:J){
c[[j]]=a[[j]]*b[[j]]
}
return(c)
}
```

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