/
.Rhistory
77 lines (77 loc) · 2.91 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
library(shiny)
runApp('Rcode/Shiny_NLP')
urlstat="Rcode/Listofstatisticians.html"
browseURL(urlstat)
browseURL("Rcode/IrvingFisher.html")
browseURL("Rcode/MichaelWeirTwitter.html")
urlbuzz="Rcode/BuzzFeed.html"
browseURL(urlbuzz)
browseURL("Rcode/connections.html")
knitr::opts_chunk$set(echo = FALSE)
source("Rcode/00Require.R")
load("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/crazylanguage.RData")
read.csv("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/StatisticianR.csv")%>%
datatable()
urlbuzz="/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/BuzzFeed.html"
url_parsed <- read_html(urlbuzz)
titles<-html_nodes(url_parsed, css = ".lede__link") %>%
html_text()%>%
str_replace_all("\\n", "")%>%
str_replace_all("\\t", "")%>%
str_trim()
titles=data.frame(titles[-which(titles=="")])
names(titles)<-"Titles"
datatable(titles)
load("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/Yieldhero.RData")
urlstat="/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/Listofstatisticians.html"
browseURL(urlstat)
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/IrvingFisher.html")
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/MichaelWeirTwitter.html")
urlbuzz="/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/BuzzFeed.html"
browseURL(urlbuzz)
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/connections.html")
source("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/00Require.R")
urlstat="/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/Listofstatisticians.html"
browseURL(urlstat)
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/IrvingFisher.html")
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/MichaelWeirTwitter.html")
urlbuzz="/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/BuzzFeed.html"
browseURL(urlbuzz)
browseURL("/Users/happyrabbit/Documents/GitHub/BTI2016_12_29/RawData/connections.html")
knitr::opts_chunk$set(echo = FALSE)
source("Rcode/00Require.R")
load("RawData/crazylanguage.RData")
names(annotres$token)[3]<-"word"
# plot(annotres,2)
plot(annotres,9)
install.packages("coreNLP")
load("RawData/crazylanguage.RData")
names(annotres$token)[3]<-"word"
# plot(annotres,2)
plot(annotres,9)
library(coreNLP)
library(coreNLP)
install.packages("rJava")
library(coreNLP)
library(coreNLP)
library(rJava)
dyn.load('/Library/Java/JavaVirtualMachines/jdk1.8.0_66.jdk/Contents/Home/jre/lib/server/libjvm.dylib')
library(rJava)
install.packages("rJava")
library(rJava)
load("RawData/crazylanguage.RData")
names(annotres$token)[3]<-"word"
# plot(annotres,2)
plot(annotres,9)
names(annotres$token)[3]<-"token"
source("Rcode/00Require.R")
install.packages("animation")
source("Rcode/00Require.R")
load("RawData/crazylanguage.RData")
names(annotres$token)[3]<-"word"
# plot(annotres,2)
plot(annotres,9)
names(annotres$token)[3]<-"token"
View(annotres)
plot(annotres)
plot(annotres,9)