Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/75.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Wilcoxon秩和检验-在比较测量前后时,你能使R子集不同类型的治疗吗?_R - Fatal编程技术网

Wilcoxon秩和检验-在比较测量前后时,你能使R子集不同类型的治疗吗?

Wilcoxon秩和检验-在比较测量前后时,你能使R子集不同类型的治疗吗?,r,R,我对R编程相当陌生,但我一直在学习:) 我想对测量前后进行配对Wilcoxon秩和检验。我的受试者接受了4种不同类型的治疗(即按因子w/4水平进行治疗)。我的数据是有序的 我有一个包含3列的数据框: 以前 之后 治疗类型 我可以在对不同类型的治疗进行分组时进行wilcox.test吗 我运行了wilcox.test,如下所示: wilcox.test(Before,After,paired=TRUE) 我如何编辑此代码以获得治疗类型的子集 希望有人能帮助我……:) 治疗前后 ------|

我对R编程相当陌生,但我一直在学习:)

我想对测量前后进行配对Wilcoxon秩和检验。我的受试者接受了4种不同类型的治疗(即按因子w/4水平进行治疗)。我的数据是有序的

我有一个包含3列的数据框:

  • 以前
  • 之后
  • 治疗类型
我可以在对不同类型的治疗进行分组时进行wilcox.test吗

我运行了wilcox.test,如下所示:

wilcox.test(Before,After,paired=TRUE)
我如何编辑此代码以获得治疗类型的子集

希望有人能帮助我……:)

治疗前后
------|----------|---------
2 | 2 | SH
2 | 1 | SH
2 | 2 | SH
1 | 1 | SH
2 | 2 |哦
2 | 2 |哦
2 | 2 |哦
2 | 1 |哦
2 | 1 | SA
2 | 1 | SA
1 | 1 | SA
2 | 2 | SA
2 | 2 | OA
2 | 3 | OA
1 | 2 | OA

2 | 2 | OA

使用
split
列出您的组,然后
lappy

x <- read.csv(text = "Before|After|Treatment
2|2|SH
2|1|SH
2|2|SH
1|1|SH
2|2|OH
2|2|OH
2|2|OH
2|1|OH
2|1|SA
2|1|SA
1|1|SA
2|2|SA
2|2|OA
2|3|OA
1|2|OA
2|2|OA", sep = "|")

x <- split(x, x$Treatment)
lapply(x, function(g) wilcox.test(g$Before, g$After, paired = T))

x你能提供一些数据吗?@dvarelas我在上面编辑的版本中做了一些看起来像表格的东西。希望你能使用它排名是从1-4(1是最好的,4是最差的)它的工作与分裂。我现在在x:)下有一个4的列表,但当使用lappy时,我得到了这个错误消息:“g$Before:$运算符中的错误对于原子向量无效”。检查g$Before“>is.atomic(g$Before)”时,如果复制并粘贴所有代码,我会收到以下消息:“错误:未找到对象‘g’”。
g
仅在
lappy
运行时存在,这就是
is.atomic(g$Before)
给出错误的原因。否则,您需要提供您的实际数据以供我帮助。看看如何做到这一点。我在我的实际数据上又试了一次,瞧!)成功了!非常感谢你!你救了我!