Nothing
adjust <-
function(age){
u=-1
v=1
n=length(age)
amin=min(age)
amax=max(age)
temp=u+(v-u)/(amax-amin)*(age-amin)
return(temp)
}
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.