c(person(given = c("Andrew", "D."),
                      family = "Martin",
                      role = "aut"),
               person(given = c("Kevin", "M."),
                      family = "Quinn",
                      role = "aut"),
               person(given = c("Jong", "Hee"),
                      family = "Park",
                      role = c("aut", "cre"),
                      email = "jongheepark@snu.ac.kr"),
               person(given = "Ghislain",
                      family = "Vieilledent",
                      role = "ctb"),
               person(given = "Michael",
                      family = "Malecki",
                      role = "ctb"),
               person(given = "Matthew",
                      family = "Blackwell",
                      role = "ctb"),
               person(given = "Keith",
                      family = "Poole",
                      role = "ctb"),
               person(given = "Craig",
                      family = "Reed",
                      role = "ctb"),
               person(given = "Ben",
                      family = "Goodrich",
                      role = "ctb"),
               person(given = "Qiushi",
                      family = "Yu",
                      role = "ctb"),
               person(given = "Ross",
                      family = "Ihaka",
                      role = "cph"),
               person(given = c("The", "R", "Development", "Core"),
                      family = "Team",
                      role = "cph"),
               person(given = c("The", "R"),
                      family = "Foundation",
                      role = "cph"),
               person(given = "Pierre",
                      family = "L'Ecuyer",
                      role = "cph"),
               person(given = "Makoto",
                      family = "Matsumoto",
                      role = "cph"),
               person(given = "Takuji",
                      family = "Nishimura",
                      role = "cph"))