Nothing
MeanModule3D <- function (coord)
{
x <- coord[, 1]
y <- coord[, 2]
z <- coord[, 3]
n_elements = length(x)
R = sqrt((sum(x) * sum(x)) + (sum(y) * sum(y)) + (sum(z) *
sum(z)))
mean_module = R/n_elements
return(mean_module)
}
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.