testPG <- .loadPgExample(withGroups=TRUE)
# Create some info
info <- data.frame(nickname=c('Tessie', 'Johnny'), index=c(4, 500))
# Add it to the object
testPG <- addGroupInfo(testPG, info=info, key='index')
Run the code above in your browser using DataLab