R将数组转换为正态分布

library(car)
a=c(1,2,3,4,5)
b=powerTransform(a)
a=bcPower(a,b$lambda);

注意，这里的数组a，里面不能有<=0的元素。