R qbeta与向量慢速

Question

我有3个名为vp，va和vb的向量：

vp包含150万随机概率

va包含150万个alpha值

vb包含150万个beta值

我正在尝试创建一个输出，该输出看起来像是：

vanswer <- c(qbeta(vp,va,vb)) 

我知道这很有效，但是如此大量的数据速度非常慢，而我正试图找到加快速度的方法。我也尝试在cbind()矩阵中使用sapply()进行计算，但我找不到正确的方法。

任何帮助都会有所帮助！