# creating a corpus of 5 contributor of the action page
c <- corpus_contrib_create('page','Action',limit=5)
c <- corpus_contrib_data('page',c)
# Keeping on this corpus only the contributor who are part of
# the 5 percent first contributors of the correspondant article.
c <- corpus_contrib_select(c,5)
Run the code above in your browser using DataLab