# Example 1: Choosing a fixed gene probe number
# Load in a test file
data_file <- system.file("extdata", "GSE2034.normalized.expression.txt",
package="multiClust")
data <- input_file(input=data_file)
gene_num <- number_probes(input=data_file, data.exp=data, Fixed=300,
Percent=NULL, Poly=NULL, Adaptive=NULL, cutoff=NULL)
# Example 2: Choosing 50\% of the total selected gene probes in a dataset
gene_num <- number_probes(input=data_file, data.exp=data, Fixed=NULL,
Percent=50, Poly=NULL, Adaptive=NULL, cutoff=NULL)
# Example 3: Choosing the Poly method
gene_num <- number_probes(input=data_file, data.exp=data, Fixed=NULL,
Percent=NULL, Poly=TRUE, Adaptive=NULL, cutoff=NULL)
# Example 4: Choosing the Adaptive Gaussian Mixture Modeling method
# Very long computation time, so example will not be run
gene_num <- number_probes(input=data_file, data.exp=data, Fixed=NULL,
Percent=NULL, Poly=NULL, Adaptive=TRUE, cutoff=0.01)
Run the code above in your browser using DataLab