Nothing
polarization <-
function (V, old=FALSE) {
# Calculates polarization (SOM Project)
# Arguments: as Agreement function (V = frequnecy vector)
p <- (1 - agreement(V,old))/2 # pass arguments to agreement function, rescale
return(p)
}
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.