ProjectInfo-class            package:xps            R Documentation

_C_l_a_s_s _P_r_o_j_e_c_t_I_n_f_o

_D_e_s_c_r_i_p_t_i_o_n:

     This class allows to save the relevant project information in the 
     'ROOT' data file and in class 'DataTreeSet'.

_O_b_j_e_c_t_s _f_r_o_m _t_h_e _C_l_a_s_s:

     Objects can be created by calls of the form 
      'new("ProjectInfo", submitter=[character],
     laboratory=[character], contact=[character], ...)'. 
      Alternatively, the constructor 'ProjectInfo' can be used.

_S_l_o_t_s:


     '_s_u_b_m_i_t_t_e_r': Object of class '"character"' representing the name
          of the submitter.

     '_l_a_b_o_r_a_t_o_r_y': Object of class '"character"' representing the
          laboratory of the submitter.

     '_c_o_n_t_a_c_t': Object of class '"character"' representing the contact
          address of the submitter.

     '_p_r_o_j_e_c_t': Object of class '"list"' representing the project
          information.

     '_a_u_t_h_o_r': Object of class '"list"' representing the author
          information.

     '_d_a_t_a_s_e_t': Object of class '"list"' representing the dataset
          information.

     '_s_o_u_r_c_e': Object of class '"list"' representing the sample source
          information.

     '_s_a_m_p_l_e': Object of class '"list"' representing the sample 
          information.

     '_c_e_l_l_i_n_e': Object of class '"list"' representing the sample
          information for cell lines.

     '_p_r_i_m_a_r_y_c_e_l_l': Object of class '"list"' representing the sample
          information for primary cells.

     '_t_i_s_s_u_e': Object of class '"list"' representing the sample
          information for tissues.

     '_b_i_o_p_s_y': Object of class '"list"' representing the sample
          information for biopsies.

     '_a_r_r_a_y_t_y_p_e': Object of class '"list"' representing the array
          information.

     '_h_y_b_r_i_d_i_z_a_t_i_o_n_s': Object of class '"data.frame"' representing the
          hybridization information for each hybridization.

     '_t_r_e_a_t_m_e_n_t_s': Object of class '"data.frame"' representing the
          treatment information for each hybridization.

_M_e_t_h_o_d_s:


     _p_r_o_j_e_c_t_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'project'.

     _p_r_o_j_e_c_t_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'project' with character vector
          c(name,date,type,description,comments).

     _a_u_t_h_o_r_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'author'.

     _a_u_t_h_o_r_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'author' with character vector
          c(lastname,firstname,type,company,department,email,
          phone,comments).

     _d_a_t_a_s_e_t_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'dataset'.

     _d_a_t_a_s_e_t_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'dataset' with character vector
          c(name,type,sample,submitter,date,description,comments).

     _s_o_u_r_c_e_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'source'.

     _s_o_u_r_c_e_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'source' with character vector
          c(name,type,species,subspecies,description,comments).

     _s_a_m_p_l_e_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'sample'.

     _s_a_m_p_l_e_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'sample' with character vector
          c(name,type,sex,phenotype,genotype,extraction,
          isxenograft,xenostrain,xenosex,xenoage,xenoageunit,comments).

     _c_e_l_l_i_n_e_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'celline'.

     _c_e_l_l_i_n_e_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'celline' with character vector
          c(name,type,parent,atcc,modification,sex,phenotype,
          genotype,extraction,isxenograft,xenostrain,xenosex,xenoage,xenoageunit,comments).

     _p_r_i_m_c_e_l_l_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'primarycell'.

     _p_r_i_m_c_e_l_l_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'primarycell' with character
          vector c(name,type,date,description,sex,phenotype,
          genotype,extraction,isxenograft,xenostrain,xenosex,xenoage,xenoageunit,comments).

     _t_i_s_s_u_e_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'tissue'.

     _t_i_s_s_u_e_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'tissue' with character vector
          c(name,type,development,morphology,disease,stage,
          donorage,ageunit,status,sex,phenotype,genotype,extraction,isxenograft,xenostrain,xenosex,
          xenoage,xenoageunit,comments).

     _b_i_o_p_s_y_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'biopsy'.

     _b_i_o_p_s_y_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'biopsy' with character vector
          c(name,type,morphology,disease,stage,donorage,ageunit,
          status,sex,phenotype,genotype,extraction,isxenograft,xenostrain,xenosex,xenoage,xenoageunit,comments).

     _a_r_r_a_y_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'arraytype'.

     _a_r_r_a_y_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'arraytype' with character
          vector c(chipname,chiptype,description,comments).

     _h_y_b_r_i_d_i_z_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'hybridizations'.

     _h_y_b_r_i_d_i_z_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'hybridizations' with vector of
          character vectors with each containing
          c(name,type,inputname,date,preparation,protocol,repname,replica,comments).

     _t_r_e_a_t_m_e_n_t_I_n_f_o 'signature(object = "ProjectInfo")': extracts slot
          'treatments'.

     _t_r_e_a_t_m_e_n_t_I_n_f_o<- 'signature(object = "ProjectInfo", value =
          "character")': replaces  slot 'treatments' with vector of
          character vectors with each containing
          c(name,type,concentration,concentrationunit,time,timeunit,administration,comments).

     _s_h_o_w 'signature(object = "ProjectInfo")': shows the content of
          'ProjectInfo'.

_A_u_t_h_o_r(_s):

     Christian Stratowa

_E_x_a_m_p_l_e_s:

     project <- new("ProjectInfo",submitter="Christian", laboratory="home",contact="email")
     projectInfo(project)    <- c("TestProject","20060106","Project Type","use Test3 data for testing","my comment")
     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")
     sourceInfo(project)     <- c("Unknown","source type","Homo sapiens","caucasian","description","my comment")
     primcellInfo(project)   <- c("Mel31","primary cell",20071123,"extracted from patient","male","my pheno","my genotype","RNA extraction",TRUE,"NMRI","female",7.0,"months", "my comment")
     arrayInfo(project)      <- c("Test3","GeneChip","description","my comment")
     hybridizInfo(project)   <- 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"))
     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"))
     show(project)

