CASE STUDY 6B: Burst Detection of Documents using Textnets¶
Created by Manika Lamba under Creative Commons CC BY License
For questions/comments, email lambamanika07@gmail.com
____
In [1]:
#Load libraries
library(aRxiv)
library(bursts)
Warning message: "package 'aRxiv' was built under R version 3.6.3"
In [2]:
data <- arxiv_search('abs:"burst detection"', limit=1000)
write.csv(data, "6b_dataset.csv")
retrieved batch 1 retrieved batch 2 retrieved batch 3 retrieved batch 4
In [3]:
bursts <- kleinberg(as.POSIXct(data$submitted))
In [4]:
#Accumulation of submissions
plot(as.POSIXct(data$submitted),
1:length(as.POSIXct(data$submitted)),
xlab='Time',
ylab='Submissions')
In [5]:
#Bursts in submissions
plot(bursts, xaxt = 'n')
axis.POSIXct(1, bursts$start)
