Nothing
"save.gwaa.data" <-
function(data,phenofile = "pheno.dat", genofile = "geno.raw",human=FALSE) {
cat("writing phenotypes...\n")
write.table(data@phdata,file=phenofile,sep=" ",na="NA",row.names=FALSE,col.names=TRUE)
save.snp.data(data = data@gtdata, genofile = genofile, human = human)
}
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.