如何将数据读入R中的列联表

Question

我正在尝试通过此链接实现代码：

http://rcompanion.org/handbook/H_09.html

此示例的代码特别：“扩展Cochran–Armitage测试1的示例”

问题是我试图读取包含“输入”表数据的csv文件。 csv表与示例代码中的表相同，即

然后我自己用R编写以下代码；

> library(readr)
> rtestdata <- read_csv("C:/Users/Rayyan/Desktop/rtestdata.csv")
> View(rtestdata)
> a<-ftable(rtestdata)
> 
> sum (a)
[1] 3
> prop.table(a,
+            margin = 1)   ### proportion in each row

生成的prop.table看起来与网站上的不一样，如下所示：

您能帮我吗？谢谢