# NOT RUN {
#data(Liver.Muscle)
#Th<- ratio(data=Liver.Muscle)
#Rh<- baymod(iter=100,output.ratio=Th)
#MC<- Tmc(iter=100,output.ratio=Th)
#The gene names can be obtained using the command dimnames:
#feat.names = dimnames(Liver.Muscle)[[1]]
#feat.lists <- extractFeatures.R(output.ratio=Th,output.bay=Rh,feat.names=feat.names,h=NULL)
#feat.lists.T <- extractFeatures.T(output.ratio=Th,feat.names=feat.names)
#output.table <- createTable(output.ratio=Th,output.bay=Rh)
# }
Run the code above in your browser using DataLab