qPCR.CT (version 1.1)

GroupPlot: ~~PLOT all graph in the group ... ~~

Description

~~ Plot all in barplot with Error Bar(se or sd) ~~

Usage

GroupPlot(filename, con_group_name, tr_group_name, con_gene_name, repeatnum, ...)

Arguments

filename

~~specific filename such as c: pcr.csv~~

con_group_name

~~set con_group_name ~~

tr_group_name

~~set tr_group_name here~~

con_gene_name

~~set con_gene_name here~~

repeatnum

~~set repeatnum here~~

...

Value

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(filename, 
                  con_group_name,tr_group_name, 
                  con_gene_name, repeatnum, ... ){
                    
rawdata<-read.csv(filename)
unknown<-   subset(rawdata, Type != "NTC")
suppressWarnings(aggdata <-aggregate.data.frame(unknown, by=list(unknown$Fluor),FUN=mean, na.rm=TRUE))
#print(aggdata[1])
groups<-paste(aggdata[,1])
lengr <- length(groups)
temp<- data.frame()
i<- 1
for(i in 1: lengr)
{
   if(groups[i] != con_gene_name ){
     
          tr_gene_name <- groups[i] # assign group names
          temp <- Calc.Expr(filename=filename, con_group_name, tr_group_name, 
          con_gene_name = con_gene_name,tr_gene_name = tr_gene_name, repeatnum = repeatnum)
          plot.CT(temp)
   }
  }
  }