#' Using Valente's SNS data
data(valentesnsList)
# Creating the DEFM object
mymodel <- new_defm(
id = valentesnsList$id,
X = valentesnsList$X,
Y = valentesnsList$Y,
order = 0
)
# Getting the names
get_X_names(mymodel)
get_Y_names(mymodel)
Run the code above in your browser using DataLab