Nothing
# Project: BiclustGUI
#
# Author: Gebruiker
###############################################################################
# A function to check if an object is a result of ANY of the biclustering methods in this GUI
.isbiclustGUIresult <- function(x,asis=FALSE){ # asis = TRUE when what you input is already transformed from character (but you want to prevent extra transformation, e.g. when in a forloop)
if(class(x)=="character" & !asis){
eval(parse(text=paste("x <- ",x,sep="")))
}
if(class(x)=="iBBiG"){return(TRUE)}
if(class(x)=="Biclust"){return(TRUE)}
if(class(x)=="Factorization"){return(TRUE)}
if(class(x)=="QUBICBiclusterSet"){return(TRUE)}
if(class(x)=="biclustering"){return(TRUE)}
# if(.isISA(x)){return(TRUE)}
return(FALSE)
}
# Some other classes are extensions of "Biclust" or simply the same. These are listed with this function.
.isBiclustresult <- function(x,asis=FALSE){
if(class(x)=="character" & !asis){
eval(parse(text=paste("x <- ",x,sep="")))
}
if(class(x)=="iBBiG"){return(TRUE)}
if(class(x)=="Biclust"){return(TRUE)}
if(class(x)=="QUBICBiclusterSet"){return(TRUE)}
return(FALSE)
}
#PLACEHOLDER <- function(){}
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.