r - 如何在 R 中正确执行 3-way MANOVA?
问题描述
一项实验评估了 3 个因素和 3 个对治疗的反应。选择的因素是使用的化学品 ( Chemical
)、混合速度 ( Speed
) 和固体量 ( Solids
)。观察到的反应是Response1
、Response2
和Response3
。
使用本教程,我根据Chemical
因子对 3 个响应执行了 1-way MANOVA。但是,我想根据 3 个因素进行 3-way MANOVA 来评估 3 个响应。在 MWE 我做了一个尝试,但我不知道这种方法是否正确。
我也接受可以为我提供更多信息的包裹建议或其他统计测试。
Chemical <- c(rep("Organic", 9), rep("Inorganic", 9))
Velocity <- rep(c(rep(100, 3), rep(200, 3), rep(300, 3)), 2)
Solids <- rep(c(0, 90, 180), 6)
Response1 <- runif(18, min = 20, max = 75)
Response2 <- runif(18, min = 0, max = 90)
Response3 <- runif(18, min = 90, max = 100)
df <- data.frame(Chemical, Velocity, Solids,
Response1, Response2, Response3)
df$Chemical <- factor(df$Chemical,
levels = c("Organic", "Inorganic"))
df$Velocity <- factor(df$Velocity,
levels = c(100, 200, 300))
df$Solids <- factor(df$Solids,
levels = c(0, 90, 180))
# 1-way MANOVA
manova_result1 <- manova(cbind(Response1, Response2, Response3) ~ Chemical,
data = df)
summary.aov(manova_result1)
# 3-way MANOVA attempt
manova_result2 <- manova(cbind(Response1, Response2, Response3) ~
cbind(Chemical, Velocity, Solids),
data = df)
summary.aov(manova_result2)
解决方案
推荐阅读
- python - 我是否因为它在定义块内而弄乱了我的 pygame while 循环?
- swift - ios 12 sfsafariviewcontroller 是否支持 webRTC?
- c# - ASP.NET - 导致 mono 引发错误的脚本包
- javascript - 在对象内部查找对象
- python - 在示例图像上打印数据,但文本超出图像
- javascript - 寻找一种现代(类似于“观察者”,没有“滚动”事件)的方式来添加基于滚动方向的正文类
- javascript - 请帮忙,我有一个问题,我的条件不适用于我从 mongoDB.find() 获得的数据
- ios - 在 iOS 14 中锁定屏幕方向
- pandas - 多个块同时处理大数据
- python - TypeError:在使用距离计算平均评分时,不能将序列乘以“浮点”类型的非整数