fcsFile<-system.file("extdata/List-modeDataFiles","fcs2_int16_13367ev_8par_GvHD.fcs",package="gatingMLData")
gateFile <- system.file("extdata/Gating-MLFiles","05CtSPolygonGates.xml",package="gatingMLData")
csvFile<-paste(system.file("extdata/ExpectedResults/05CtSPolygonGates",package="gatingMLData"))
flowEnv=new.env()
read.gatingML(gateFile,flowEnv)
fcs <- read.FCS(fcsFile,transformation=FALSE)
# expectedResults<-read.csv(csvFile,header=TRUE)
test.CtSPg_01<- function() {
gateId<-"CtSPg_01"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_02<- function() {
gateId<-"CtSPg_02"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_03<- function() {
gateId<-"CtSPg_03"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_04<- function() {
gateId<-"CtSPg_04"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_05<- function() {
gateId<-"CtSPg_05"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_06<- function() {
gateId<-"CtSPg_06"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_07<- function() {
gateId<-"CtSPg_07"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_08<- function() {
gateId<-"CtSPg_08"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_09<- function() {
gateId<-"CtSPg_09"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_10<- function() {
gateId<-"CtSPg_10"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
test.CtSPg_11<- function() {
gateId<-"CtSPg_11"
csvFile<-paste(csvFile,"/",gateId,".txt",sep="")
expectedResult<-read.csv(csvFile,header=TRUE)
flowUtils:::performGateTest(gateId,fcs,expectedResult,flowEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.