- Thread starter trinker
- Start date
- Tags transformation variability

However that solution is for that one time. The distribution of proportion difference will change.

Code:

```
load(url("http://dl.dropbox.com/u/61803503/dist.RData"))
breaks <- 10
low <- x[x < 0]
high <- x[x > 0]
lcuts <- quantile(low, seq(0, 1, length.out = round(breaks/2)))
hcuts <- quantile(high, seq(0, 1, length.out = round(breaks/2)))
cts <- as.numeric(unique(sort(c(-1, lcuts, 0, hcuts, 1))))
cut(x, breaks=cts)
```