r1factor function

simulate from 1-factor copula model with different linking copula families