Popsimと同じ手法でSAMとVPAの疑似データを生成する

Usage

popsim_vpasam(Res, n = 5, seed = 1)