library("OSAT")
# data as an example
inPath <- system.file("extdata", package="OSAT")
pheno <- read.table(file.path(inPath, 'samples.txt'), header=TRUE, sep="t")
## create object to hold sample information
gs <- setup.sample(pheno, optimal=c("SampleType", "Race", "AgeGrp"), strata=c("SampleType") )
gs
gc <- setup.container(IlluminaBeadChip96Plate, 6, batch='plates')
gc
gSetup0 <- create.experiment.setup(sample=gs, container=gc)
Run the code above in your browser using DataLab