Nothing
gene_expression_input <-
function(X) {
## make sure the input is not empty
if (is.null(X))
stop(" Missing the mixture dataset")
if (dim(X)[2]==1)
stop('ERROR: Please input more than one samples.')
## make sure the input is nonnegative.
if (min(X)<0) {
stop('ERROR: The value of gene expression should be positive.')
}
## delete missing value
if (nrow(X)!=nrow(na.omit(X))) {
X <- na.omit(X)
warning('There is missing value in the expression matrix.')
warning('NA in X is removed.')
}
## The correlation of two samples is 1.
if ((ncol(X)==2)&&(corr(X)==1)) {
stop('Correlation between the two samples is 1.')
}
return(X)
}
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.