r - PLS 路径建模中的障碍

Question

我正在使用 R 中的 plspm 包对信息安全的风险评估进行建模。但是，当我运行分析时，出现以下错误:

Error in if (w_dif < specs$tol || iter == specs$maxiter) break : missing value where TRUE/FALSE needed

这是我的代码:

library(dplyr)
library(plspm)
risk <- tbl_df(read.csv("case2.csv", stringsAsFactors=F))
risk[is.na(risk)] <- 0

#Rows construction
Env <- c(0,0,0,0,0,0,0,0,0)
Malc <- c(0,0,0,0,0,0,0,0,0)
Phy <- c(1,0,0,0,0,0,0,0,0)
Knowledge <- c(0,0,0,0,0,0,0,0,0)
Hygiene <- c(1,0,1,0,0,0,0,0,0)
Capacity <- c(0,1,0,1,0,0,0,0,0)
Legal <- c(0,0,0,1,0,0,0,0,0)
Malf <- c(1,1,0,0,0,0,0,0,0)
Risk <- c(1,1,1,1,1,1,1,1,0)

#Row Binding
foot_path <- rbind(Env, Malc, Phy, Knowledge, Hygiene, Capacity, Legal, Malf, Risk)

#Column Names
colnames(foot_path) <- rownames(foot_path)

riskarranged <- select(risk, X1, X2, X3, X4, X6, X11,X12,X13,X14,X15,X20,X21,X22,X24,X25,X27,X28,X29,X31,X32,X5,X9,X10,X16,X19,X23,X26,X7,X8,X17,X30,X18,Y1,Y2)

foot_blocks <- list(1:5, 6:20, 21:24, 25:27, 28:29,30,31,32,33:34)

plspm(riskarranged, foot_path, foot_blocks)

riskarranged 没有任何 NA。完全失去了这里。帮助将不胜感激。这是数据文件的链接: https://www.dropbox.com/s/ddhyz931c3vg0xu/case2.csv?dl=0

Answer 1

好吧，我联系了 plspm 包的作者 Gaston Sanchez，他是这样说的:-

错误与 plspm 算法的迭代部分有关，无法收敛。出现此错误的最常见原因是变量的所有或几乎所有常量值。

果然，我在整个列中有三个具有相同观察值的变量。删除这些后，我就可以运行模型了。希望这对某人有帮助。