Nothing
print.haplin <- function(x,...){
cat('This is the result of a haplin run.\n')
cat("Number of data lines used: ", round(x$result$ntri), " | Number of haplotypes used: ", round(x$result$nall), "\n", sep = "")
#invisible(print.tri.glm(x$result,...))
cat('Please use the "summary", "plot", "haptable" or "output" functions to obtain\n more details.\n')
}
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.