please can I get the R codes for the Augmented Common Factor model

I need the codes to implement for my thesis. Thanks