ipcr_lav_constraints_R2K <- eval(parse(text = "lavaan:::lav_constraints_R2K"))
ipcr_computeDelta <- eval(parse(text = "lavaan:::computeDelta"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.