Mercurial > repos > greg > ks_distribution
comparison ks_distribution.R @ 31:812f09b96a62 draft
Uploaded
| author | greg |
|---|---|
| date | Mon, 26 Jun 2017 10:35:07 -0400 |
| parents | 62bb454ad4e9 |
| children | 4c3fcfd55d94 |
comparison
equal
deleted
inserted
replaced
| 30:62bb454ad4e9 | 31:812f09b96a62 |
|---|---|
| 81 vx <- seq(1, 100) * (max_ks / 100) | 81 vx <- seq(1, 100) * (max_ks / 100) |
| 82 ymax <- max(nc) | 82 ymax <- max(nc) |
| 83 barplot(nc, space=0.25, offset=0, width=0.04, xlim=c(0, max_ks), ylim=c(0, ymax), col="lightpink1", border="lightpink3") | 83 barplot(nc, space=0.25, offset=0, width=0.04, xlim=c(0, max_ks), ylim=c(0, ymax), col="lightpink1", border="lightpink3") |
| 84 # Add x-axis. | 84 # Add x-axis. |
| 85 axis(1) | 85 axis(1) |
| 86 if (length(colors) == 0) | 86 if (length(colors) == 0)) |
| 87 { | 87 { |
| 88 color <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange') | 88 color <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange') |
| 89 } | 89 } |
| 90 else | 90 else |
| 91 { | 91 { |