## fill character vectors within constructor
project <- ProjectInfo(submitter="Christian", laboratory="home",contact="email",
project=c("TestProject","20060106","Project Type","use Test3 data for testing","my comment"),
hybridizations=c(c("TestA1","hyb type","TestA1.CEL",20071117,"my prep1","standard protocol","A1",1,"my comment"),
c("TestA2","hyb type","TestA2.CEL",20071117,"my prep2","standard protocol","A2",1,"my comment"),
c("TestB1","hyb type","TestB1.CEL",20071117,"my prep1","standard protocol","B1",2,"my comment"),
c("TestB2","hyb type","TestB2.CEL",20071117,"my prep2","standard protocol","B2",2,"my comment")))
str(project)
## alternatively add character vectors as methods after creation of constructor
authorInfo(project) <- c("Stratowa","Christian","Project Leader","Company","Dept","cstrato.at.aon.at","++43-1-1234","my comment")
datasetInfo(project) <- c("Test3Set","MC","Tissue","Stratowa","20060106","description","my comment")
treatmentInfo(project) <- c(c("TestA1","DMSO",4.3,"mM",1.0,"hours","intravenous","my comment"),
c("TestA2","DMSO",4.3,"mM",8.0,"hours","intravenous","my comment"),
c("TestB1","DrugA2",4.3,"mM",1.0,"hours","intravenous","my comment"),
c("TestB2","DrugA2",4.3,"mM",8.0,"hours","intravenous","my comment"))
str(project)
Run the code above in your browser using DataLab