# NOT RUN {
#Prepare one-mode data
df_one_mode <- data.frame(
sender = sample(x = 1:10000, size = 10000, replace = TRUE),
receiver = sample(x = 1:10000, size = 10000, replace = TRUE)
)
#Add self-loops for all nodes
unique_ids <- unique(c(df_one_mode$sender, df_one_mode$receiver))
df_one_mode <- rbind(df_one_mode, data.frame(sender = unique_ids,
receiver = unique_ids))
#Estimate PageRank in one-mode data
PageRank <- pagerank(data = df_one_mode, is_bipartite = FALSE)
#Estimate PageRank in two-mode data
df_two_mode <- data.frame(
patient_id = sample(x = 1:10000, size = 10000, replace = TRUE),
provider_id = sample(x = 1:5000, size = 10000, replace = TRUE)
)
PageRank <- pagerank(data = df_two_mode)
# }
Run the code above in your browser using DataLab