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

Question

我正在尝试从这个链接实现代码：

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

特别是此示例的代码：“Example of Extended Cochran–Armitage test 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 与网站上的完全不同，如下所示：

你能帮我解决这个问题吗？谢谢