- P <- if (k == 0 || k > floor(n/2)) 0 else if (n == 4) if (k == 1) 2/3 else if (k == 2) 1/3 else 0
- else (1 - 2*(k - 1)/(n - 1))*f.cherry.yule(n - 1, k - 1) +
- 2*k/(n - 1)*f.cherry.yule(n - 1, k)
- P
+ if (k == 0 || k > floor(n/2)) 0 else if (n == 4) if (k == 1) 2/3 else if (k == 2) 1/3 else 0
+ else (1 - 2*(k - 1)/(n - 1))*f.cherry.yule(n - 1, k - 1) +
+ 2*k/(n - 1)*f.cherry.yule(n - 1, k)