# Load data files
load_datafiles()
Sp<-read.table(phenofile, as.is=TRUE, header=TRUE, sep='\t')
# Perform the SRV analysis to reduce the number of dimension of Spectra #data (Sp)
corrT=0.9 # correlation threshold
minsize=10 # singlet size
met="rectangle" # summary measure
SRV<-SRV(t(Sp), minsize, corrT,clustf=met)
Run the code above in your browser using DataLab