Network Theory, Social Network Analysis, Community Detection, Yelp, R.
sapply(sample_users, length)), friends = unlist(sample_users)) #network is still too big, take a random sample of 100k nodes samp_net <- sample_n(sample_dat, 100000) #make network network <- graph.data.frame(samp_net) network_s <- simplify(network) net_deg <- degree(network_s) all_degree <-