## Not run:
# ## download list of friends for a given user
# friends <- getFriends(screen_name = "p_barbera", oauth_folder="oauth")
# ## estimating ideology
# results <- estimate.ideology(friends)
# ## trace plot
# traceplot.ideology(results, "theta")
# ## End(Not run)
Run the code above in your browser using DataLab