Update barplot.R

czheluo · Oct 30, 2019 · abe8f7d · abe8f7d
1 parent 9379fb9
commit abe8f7d
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/R/barplot.R b/R/barplot.R
@@ -61,16 +61,10 @@ text(x=bp,y=pq_before_convert,labels = round(pq_before_convert,0),pos=3,xpd=NA)
 
 dev.off()
 
-
-
-
-
-
 for(i in 1:4){
   text(i-0.2,pq_before_convert[i]+200,t(pq_before_convert)[i])
 }
 
-
 pq_before_convert <- parental_quantities(
   dosage_matrix = ALL_dosages_a,parent1 = P1,parent2 = P2,
   las = 2)
@@ -82,6 +76,3 @@ text(x=bp, y=tmp, labels=round(tmp,0), pos=3, xpd=NA)
 # numbers within bars
 text(x=bp, y=tmp, labels=round(tmp,0), pos=1)
 
-
-
-