############################################################################# # # # Copyright: Florian Schuberth # # Contact: f.schuberth@utwente.nl # # # ############################################################################# library(cSEM) # Model specification # To specify interaction terms the '.' is used. # The direct effects must be included. model_Int <- " # Measurement models # Product involvement INV =~ INV1 + INV2 + INV3 +INV4 # Satisfaction SAT =~ SAT1 + SAT2 + SAT3 # Switching intention INT =~ INT1 + INT2 # Structrual model containing an interaction term. INT ~ INV + SAT + INV.SAT " # Estimate model out <- csem(.data = Switching, .model = model_Int, # ADANCO settings .PLS_weight_scheme_inner = 'factorial', .tolerance = 1e-06, .resample_method = 'bootstrap' ) # Return summary summarize(out) # Do nonlinear effects analysis with the doNonlinearEffectsAnalysis() function neffects <- doNonlinearEffectsAnalysis(out, .dependent = 'INT', .moderator = 'INV', .independent = 'SAT') # See the help file for further features ?doNonlinearEffectsAnalysis # Simple effects plot plot(neffects, .plot_type = 'simpleeffects') # Surface plot using plotly plot(neffects, .plot_type = 'surface') # Floodlight analysis including Johnson-Neyman point plot(neffects, .plot_type = 'floodlight') # help file of that specific plot function ?cSEM::plot.cSEMNonlinearEffects