inst/RUnitScript_Files/runit.32TrCompensation.R

In flowUtils: Utilities for flow cytometry

  fcsFile<-system.file("extdata/List-modeDataFiles","real-8-parameters.data.fcs",package="gatingMLData")
  gateFile <- system.file("extdata/Gating-MLFiles","32TrCompensation2.xml",package="gatingMLData")
  csvFile<-paste(system.file("extdata/ExpectedResults/32TrCompensation2",package="gatingMLData"))

  flowEnv=new.env()
  read.gatingML(gateFile,flowEnv)
  fcs <- read.FCS(fcsFile,transformation=FALSE)

test.comp2G1<- function() {
	gateId<-"comp2G1"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}

test.comp2G2<- function() {
	gateId<-"comp2G2"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}

test.comp2G3<- function() {
	gateId<-"comp2G3"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}

test.comp2G4<- function() {
	gateId<-"comp2G4"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}

test.comp2G5<- function() {
	gateId<-"comp2G5"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}

test.comp2G6<- function() {
	gateId<-"comp2G6"
	csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
	expectedResult<-read.csv(csvFile,header=TRUE)
	flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}