R语言如何把分布列转换为原始数据?

题目

R语言如何把分布列转换为原始数据?
1 有分布列：3个1,6个2,7个3,6个4,记为c(1,2,3,4),c(3,6,7,3),如何转化为原始数据?就是说如何把由两个向量形式给出的分布列转化为随机生成的原始数据?
2 有分布列：
1 2 3 4
--------------
3 6 7 3
4 9 1 8
如何用一个命令,把分布列转换为两个数组或向量形式的原始数据?

答案

Function dec(n As String) As Long
For i = 1 To Len(n)
dec = dec * 2 + Val(Mid(n,i,1))
Next
End Function