Nothing
return.ibd.val <-
function(col.dat){
#expects a vector of zeros with at most one 1
#returns the index of where the 1 is, or zero if 1
# is not present in col.dat
return(which.max(col.dat)*max(col.dat))
}
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.