Nothing
read.lfmm <- function(input.file) {
# test arguments
if(missing(input.file))
stop("'input.file' argument is missing.")
else if (!is.character(input.file))
stop("'input.file' argument has to be of type character.")
# check extension
test_extension(input.file, "lfmm")
return(as.matrix(read.table(input.file)))
}
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.