testPG <- .loadPgExample()
# Load grouping data
groups <- system.file('extdata', 'examplePG', 'groupsWG.txt',
package='FindMyFriends'
)
groups <- scan(groups, what=integer(), quiet=TRUE)
# Do the grouping
testPG <- manualGrouping(testPG, groups)
Run the code above in your browser using DataLab