clustering.R

subSpace<-function(x)
{
  cat("Clustering...(0/3)\n")
  lb.clust<<-orclus(x = x[[1]]@exprs, k = 50, l = 10, k0 = 60,verbose = FALSE)
  cat("Clustering...(1/3)\n")
  pol.clust<<-orclus(x = x[[2]]@exprs, k = 50, l = 10, k0 = 60,verbose = FALSE)
  cat("Clustering...(2/3)\n")
  nv.clust<<-orclus(x = x[[3]]@exprs, k = 50, l = 10, k0 = 60,verbose = FALSE)
  cat("Clustering...(3/3)\n")
}