你这个是属于半正态分布的上半部分，abs(rnorm())?

你先弄清楚自己要产生的随机数的分布，然后再按随机数产生办法产生即可。
很可能如二楼所说你要得是截断正态分布。

截断的正太分布从某种意义已经不服从正太分布了。我写了一个算法得到的数据是正太分布。
a<-rnorm(1000,100,100)
while(length(which(a<0))>0){
  a[which(a<0)]<-rnorm(length(which(a<0)),100,100)
}
shapiro.test(a)
思路：
首先生存1000个服从u=100，sd=100的正态分布数列
然后找到那些小于0的，重新生成数目一样的正态分布数列。
用while重复这个过程，直到没有小于0的
最后用shapiro.test()检验通过。

不好意思，不管是abs（）方法和我那个循环算法，正态性检验都没有通过。
估计只能先生成数列，然后每个数值加上数列中最小值和0 的差
a<-rnorm(1000,100,100)
a<-a+abs(min(a))