Error: `[.data.frame`(crossloadings, , c("name", "block", colnames(xloads))) : undefined columns

Hello,

I am trying to analyse a SEM with R and got the following error. I do not
know what I?ve done worng as it always worked in my previous projects. I
need your help please. Thank you.

blocks = list(1:26, 27:47, 48:51, 52:75)
library(plspm)
r1= c(0,0,0,0)
r2= c(1,0,0,0)
r3= c(1,0,0,0)
r4= c(1,0,0,0)
path = rbind(r1, r2, r3, r4)
rownames(path)= c("Leadership", "Work Values","Employee Motivation",

"Commitment")

colnames(path)= rownames(path)
innerplot(path)
t(colnames(newsurvey))
blocks = list(1:26, 27:47, 48:51, 52:75)
modes=rep("A",4)
pls= plspm(newsurvey, path, blocks, modes = modes)

Fehler in `[.data.frame`(crossloadings, , c("name", "block",
colnames(xloads))) :
  nicht definierte Spalten gew?hlt
Zus?tzlich: Warnmeldung:
Setting row names on a tibble is deprecated.

Regards,
Nadine