## first a toy example:
if (interactive()){
A = new.env()
assign("1.+.start",seq(100,1000,by=100),env=A)
validProbeAnno(A)
assign("1.+.end",c(99,seq(250,1050,by=100)),env=A)
assign("1.+.unique",numeric(10),env=A)
assign("1.+.index",c(2:5,1,7,8,6,10), env=A)
validProbeAnno(A)
assign("1.+.index",c(2:5,1,7,8,6,10,3), env=A)
validProbeAnno(A)
assign("1.+.end",c(150,seq(250,1050,by=100)),env=A)
validProbeAnno(A)
}
## validate the provided example probeAnno
load(file.path(system.file("exData",package="Ringo"),"exampleProbeAnno.rda"))
validProbeAnno(exProbeAnno)
Run the code above in your browser using DataLab