# Load data (satisfaction data in plspm package)
data("plspmsat")
## Model specification by formulas
satmodele <- "
## measure model specification
EXPE =~ expe1+expe2+expe3+expe4+expe5
IMAG =~ imag1+imag2+imag3+imag4+imag5
LOY =~ loy1+loy2+loy3+loy4
SAT =~ sat1+sat2+sat3+sat4
VAL =~ val1+val2+val3+val4
QUAL =~ qual1+qual2+qual3+qual4+qual5
## outer model specification
EXPE ~~ IMAG
LOY ~~ IMAG+SAT
SAT ~~ IMAG+EXPE+QUAL+VAL
VAL ~~ EXPE+QUAL
QUAL ~~ EXPE
"
## computer the PLSPM parameters
sat.param <- plspm.params(Formula = satmodele, Data = plspmsat)
sat.param$inner.mat ## inner matrix
sat.param$outer.list ## outer list
Run the code above in your browser using DataLab