Update HDplot_graphs.R

edgardomortiz · web-flow · commit 589df0539a22 · 2017-10-24T09:06:54.000-05:00
diff --git a/HDplot_graphs.R b/HDplot_graphs.R
@@ -53,7 +53,7 @@ maxH <- round(max(HDplotData$hetPerc, na.rm=TRUE), 1)
 if (maxH >= 0.5) {
   ticks_H <- round((maxH-minH)/20, digits=2)
 } else {
-  ticks_H <- round((maxH-minH)/10, digits=3)
+  ticks_H <- round((maxH-minH)/10, digits=4)
 }
 
 minN <- min(HDplotData$num_samples, na.rm=TRUE)

Original file line number	Diff line number	Diff line change
`@@ -53,7 +53,7 @@ maxH <- round(max(HDplotData$hetPerc, na.rm=TRUE), 1)`
`53`	`53`	`if (maxH >= 0.5) {`
`54`	`54`	`ticks_H <- round((maxH-minH)/20, digits=2)`
`55`	`55`	`} else {`
`56`		`- ticks_H <- round((maxH-minH)/10, digits=3)`
	`56`	`+ ticks_H <- round((maxH-minH)/10, digits=4)`
`57`	`57`	`}`
`58`	`58`
`59`	`59`	`minN <- min(HDplotData$num_samples, na.rm=TRUE)`