希望解决 r 中的 PLS 问题。
我的内部模型结构有点不稳定。我需要定义一个具有适度调解且没有直接影响的矩阵,其中主持人在 b 侧加载(请参见下面的路径)
期望的路径输出 注意:对 x -> y 没有直接影响,M 完全调解它
X = prem
Y = si
mediator = deftrap
moderator = mmtsm
也就是说,我当前代码的输出目前只是线性的(见下图)。我在下面包含了我的代码。如果有人有任何想法,我会全力以赴!!我需要在今天或明天解决这个问题......并且似乎在试图完成这项工作时正在抓住稻草。
谢谢,肖娜
代码
load("~/Desktop/data.pls.RData")
data.pls <- as.data.frame(data.pls)
# INNER MODEL
## rows of path matrix
prem = c(0, 1, 0, 0)
deftrap = c(0, 0, 1, 0)
mmtsm = c(0, 0, 0, 1)
si = c(0, 0, 0, 0)
## matrix (by row binding)
imv_path = rbind (prem, deftrap, mmtsm, si)
imv_path = t(imv_path)
## plot the inner matrix
innerplot(imv_path, box.size = 0.1)
# OUTER MODEL
imv_blocks = list(4:16, 17:21, 22:27, 1:3)
# modes
imv_modes = c("B", "A", "A", "A")
# SCALES
imv_scales = list(
# premotivation
c("ord","ord","ord","num", "num", "num", "num",
"ord", "num", "num", "num", "num", "ord"),
# deftrap
c("ord", "ord", "ord", "ord", "num"),
# mmtsm
c("ord", "ord", "num", "ord", "ord","ord"),
# si
c("ord","ord","ord"))
# APPLICATION
imv_pls1 = plspm(data.pls, imv_path, imv_blocks,
modes = imv_modes, scaling = imv_scales)