Nothing
"pedInbreeding"<-function(Pedig){
PedigAsDataTable <- "data.table" %in% class(Pedig)
Pedig <- as.data.frame(Pedig)
if(PedigAsDataTable){setDF(Pedig)}
Res <- data.frame(Indiv=Pedig[,1], Inbr=calcInbreeding(Pedig[,1:3]), stringsAsFactors = FALSE)
rownames(Res) <- Pedig[,1]
if(PedigAsDataTable){setDT(Res)}
Res
}
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.