# getting the path to file: 'ECSI_Tenenhaus.splsm' (generated by SmartPLS)
ptf <- system.file("SmartPLS", "workspace", "ecsi", "ECSI_Tenenhaus.splsm",
package="semPLS")
# creating the model specification to use with 'sempls()'.
ECSI <- read.splsm(ptf)
ECSI
Run the code above in your browser using DataLab