######################################################
## data file: PlannedBehavior.csv
######################################################
df <- read.csv("http://commres.net/wiki/_media/r/plannedbehavior.csv")
head(df)
str(df)
######################################################
# attitude
# norms
# control
# intention
# behavior
######################################################
# install.packages("lavaan")
library(lavaan)

# Specify model
specmod <- "
intention ~ attitude + norms + control 
"
# Estimate model
fitmod <- sem(specmod, data=df)

# Summarize model
summary(fitmod, fit.measures=TRUE, rsquare=TRUE)