1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| library(plspm)
data(spainfoot)
Attack=c(0,0,0)
Defense=c(0,0,0)
Succes= c(1,1,0)
foot_inner <- rbind (Attack, Defense, Succes)
colnames(foot_inner) <- rownames (foot_inner)
foot_inner
innerplot(foot_inner)
foot_outer <- list(1:4, 5:8, 9:12)
foot_modes <- c("A", "A", "A")
foot_modes2 <- c("A", "A", "B")
foot_pls <- plspm (spainfoot, foot_inner, foot_outer, foot_modes,boot.val = TRUE )
foot_pls
class(foot_pls)
foot_pls$path.coefs
foot_pls$inner.mod
foot_pls$inner.sum
summary(foot_pls)
plot(foot_pls, what="loadings", arr.pos=0.7, lwd=0.8, colpos = "blue", colneg = "red")
plot(foot_pls) |
Partager