这是昨天无意间想起来的一个馊主意，鉴于这个主意和统计没什么太大的关系，我也不打算在近期写这样的R包。不过我相信做出来之后还是会吸引一些眼球的，就像R里面的数独sudoku包一样，和统计也没太大关系，但把它写出来供娱乐用也颇有点意思。
比如这里我可以提供我昨天随意写的一段光学幻象代码：
# By Yihui XIE, Dec 22, 2007 yihui.org
op = par(bg = "gray", mar = rep(2, 4), xpd = NA)
x = seq(0, 2 * pi, length = 16)
replicate(100, {
for (i in 1:length(x)) {
plot(1, xlim = c(-1, 1), ylim = c(-1, 1), axes = F, ann = F,
type = "n")
points(sin(x[-i]), cos(x[-i]), col = "magenta", cex = 7,
pch = 19)
points(0, 0, pch = "+", cex = 5, lwd = 2)
Sys.sleep(0.05)
}
})
par(op)
盯着中间的“+”看几秒之后，就会发现“绕圈”的那个点似乎变成绿色了。
赞赏
作为一名没有固定工作的自由职业者，我非常感谢您通过捐赠的方式来支持我的写作和开源软件开发。当然，捐赠纯属自愿。无论金额多少，都是一片诚挚的心意。支付方式如下：
| 微信 | ← 奋力支开它俩 → | 支付宝 |
|---|---|---|
 |
其它爱心通道 ↓ Venmo: @yihui_xie Zelle: xie@yihui.name PayPal: xie@yihui.name |
 |
若使用 Venmo/Zelle/Paypal，请添加备注“gift”或“donation”，以免捐赠被视为我的可税收入。若使用 Paypal，支付类型请选 Family and Friends，而不要选 Goods and Services。
在不影响生活的前提下，我会将收到的捐赠以尽量大的比例回馈给开源社区和慈善机构。作为参考，2024-25 年间我共收到约三万美元捐赠，完税后我转手捐出了一万五千美元。