Nothing
`bias` <-
function (a, b, cond = rep(TRUE, NROW(a))){
cond[is.na(a)] <- FALSE
cond[is.na(b)] <- FALSE
a <- a[cond]
b <- b[cond]
return((mean(a)-mean(b))^2/(sum((a-b)^2)/NROW(a)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.