Nothing
maxi.time <-
function(vector){
m1=matrix(vector,nrow=length(vector),ncol=length(vector),byrow=TRUE)
m1[upper.tri(m1)] <- NA
vector2=apply(m1,1,max,na.rm=TRUE)
vector2
}
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.