Nothing
"sampleIndiv" <- function(Pedig, from="Born", each=100){
IDs <- split(Pedig$Indiv, Pedig[[from]])
keep <- unlist(mapply(sample, x=IDs, size=pmin(lapply(IDs,length), each), SIMPLIFY=FALSE))
names(keep)<-NULL
keep
}
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.