初学乍练，从网上资料里查的算法，自己写的R代码（以下代码中的BETA函数），不知道靠谱不靠谱，大家帮忙看看：