# NOT RUN {
## attach dataset to search path (to use variable names)
attach(learning_motivation)
## internalization print
pidr <- print(internalization(identified, intrinsic, external))
## compactly displayed structure of the object pidr
str(pidr)
## simplex structure print
psimstr <- print(simplex(intrinsic, identified, introjected, external))
## compactly displayed structure of the object psimstr
str(psimstr)
# }
Run the code above in your browser using DataLab