prop.table函数用于计算一个表格（数组）的频率或相对频率。它将表格中的每个元素除以表格中所有元素的总和，得到每个元素的相对频率。
prop.table函数的语法为：
prop.table(x, margin = NULL)
参数说明：
返回值：
示例： 假设有一个表格对象x，包含以下数据：
x <- array(c(1, 2, 3, 4), dim = c(2, 2))
计算整个表格的相对频率：
prop.table(x)
输出结果：
[,1] [,2]
[1,] 0.1 0.2
[2,] 0.3 0.4
计算按行的相对频率：
prop.table(x, 1)
输出结果：
[,1] [,2]
[1,] 0.33 0.67
[2,] 0.43 0.57
计算按列的相对频率：
prop.table(x, 2)
输出结果：
[,1] [,2]
[1,] 0.25 0.4
[2,] 0.75 0.6
