Nothing
omamax<-function(v){
#v on vektori, palautetaan pienin arvo
#
lkm<-length(v)
i<-1
while ((i<lkm) && (is.na(v[i]))) i<-i+1
if ((i==lkm) && (is.na(v[lkm]))) y<-NA
else
if ((i==lkm) && (!is.na(v[lkm]))) y<-v[lkm]
else{
apuu<-i
valapu<-v[apuu]
while (i<lkm){
i<-i+1
if ((!is.na(v[i])) && (v[i] > valapu)){
apuu<-i
valapu<-v[i]
}
}
y<-v[apuu]
}
return(y)
}
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.