Advertisement
Guest User

Untitled

a guest
Apr 17th, 2014
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. signers <- data.frame(
  2. id = c(11,11,12,13,14,15,16,17,17,18,19,20,20,21) ,
  3. first =
  4. c("Benjamin","Ben","Robert","George","Thomas","Jared","James","John","James","George","George","James","Edmund","George") ,
  5. last =
  6. c( "Franklin","F","Morris","Clymer","Fitzsimons","Ingersoll","Wilson","Blair","Madison","Washington","Mason","McClurg","E","Wythe")
  7. )
  8.  
  9. id first last
  10. 1 11 Benjamin Franklin
  11. 2 11 Ben F
  12. 3 12 Robert Morris
  13. 4 13 George Clymer
  14. 5 14 Thomas Fitzsimons
  15. 6 15 Jared Ingersoll
  16. 7 16 James Wilson
  17. 8 17 John Blair
  18. 9 17 James Madison
  19. 10 18 George Washington
  20. 11 19 George Mason
  21. 12 20 James McClurg
  22. 13 20 Edmund E
  23. 14 21 George Wythe
  24.  
  25. signers[!duplicated(signers$id), ]
  26. # id first last
  27. # 1 11 Benjamin Franklin
  28. # 3 12 Robert Morris
  29. # 4 13 George Clymer
  30. # 5 14 Thomas Fitzsimons
  31. # 6 15 Jared Ingersoll
  32. # 7 16 James Wilson
  33. # 8 17 John Blair
  34. # 10 18 George Washington
  35. # 11 19 George Mason
  36. # 12 20 James McClurg
  37. # 14 21 George Wythe
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement