Nothing
checkphengen <- function(data)
{
if (!is(data,"gwaa.data"))
stop("wrong class of argument")
if (any(data@phdata$id != data@gtdata@idnames))
stop("no correspondence @gtdata$idnames <=> @phdata$id")
}
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.