# Standard use
library(lavaan)
res <- sem("dist ~ speed", cars)
get_edges(res)
# Pass an expression to the 'label' argument for custom labels
get_edges(res, label = paste(est_sig, confint))
# Pass the argument 'columns' to table_results through '...' to retain
# auxiliary columns for further processing
edg <- get_edges(res, columns = c("est_sig", "confint"))
edg
edg <- within(edg, {label <- paste(est_sig, confint)})
edg
Run the code above in your browser using DataLab