start.R

start<-function()
{
  rm(list = ls())
  library(flowMeans)
  library(flowCore)
  library(flowClust)
  library(flowDensity)
  library(flowTrans)
  library(flowStats)
  library(flowPeaks)
  library(stringr)
  library(orclus)
  library(rgl)
  str=getwd()
  source(str_c(str,"/thesis.R",""))
  source(str_c(str,"/tranform.R",""))
  source(str_c(str,"/margin.R",""))
  source(str_c(str,"/QA.r",""))
  source(str_c(str,"/comp.R",""))
  source(str_c(str,"/QATrans.R",""))
  source(str_c(str,"/my_normalize.R",""))
  source(str_c(str,"/clustering.R",""))
  source(str_c(str,"/lb.spillover.R",""))
  source(str_c(str,"/pol.spillover.R",""))
  source(str_c(str,"/nv.spillover.R",""))
}