fix typos

likelet · Nov 10, 2017 · 7dfaa8c · 7dfaa8c
1 parent fd6b637
commit 7dfaa8c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/inst/IDEA/GlobalFunction/PlotFunctions.R b/inst/IDEA/GlobalFunction/PlotFunctions.R
@@ -340,8 +340,7 @@ VolcanoPlot<-function(DEtable,DEmethod=c("DESeq","edgeR","NOIseq","PoissonSeq","
 HeatmapData<-function(normalizedData,DEtable,DEmethod=c("DESeq","edgeR","NOIseq","PoissonSeq","SAMseq"),Topnumber=30,
                            clustering='both', labCol=T, labRow=T, logMode=F, pseudocount=1.0, 
                            border=FALSE, heatscale=c(low='green',mid='black',high='red'), heatMidpoint=0,fullnames=T,replicates=TRUE,method='none',heatRange=3
-)
-  {
+) {
 
   #construct datamatrix
   if(DEmethod=='DESeq'){

diff --git a/inst/IDEA/GlobalFunction/searchGeneAndPlotFun.R b/inst/IDEA/GlobalFunction/searchGeneAndPlotFun.R
@@ -38,7 +38,7 @@ getSearchGenePlotFunction<-function(df,genename,conditionlist){
       df<-getsingleGeneDf(df,genename,conditionlist) 
       df<-getMeanSdDf(df) 
 
-      main<-paste("Expression comprison of feature ",genename)
+      main<-paste("Expression comparison of feature ",genename)
 
       p=ggplot(df, aes(x=Sample, y=mean,fill=Sample)) +
         geom_bar( stat="identity",width=0.5)+
@@ -47,7 +47,7 @@ getSearchGenePlotFunction<-function(df,genename,conditionlist){
         geom_point( size=3, shape=21, fill="white") + # 21 is filled circle
 
         xlab("Sample") +
-        ylab("Expression") +
+        ylab("Expression value") +
         # Use darker colors, lightness=40
         ggtitle(main) +
         theme(legend.justification=c(1,0),legend.position="top")+