library("tm")
library("wordcloud")
library("RColorBrewer")
library("twitteR")
library("syuzhet")
discursodiscurso <- read.delim('i have a dream.txt')
corpus_discurso <- Corpus(VectorSource(discurso))
corpus_discurso <- tm_map(corpus_discurso, tolower)
corpus_discurso <- tm_map(corpus_discurso, removePunctuation)
corpus_discurso <- tm_map(corpus_discurso, stripWhitespace)
corpus_discurso <- tm_map(corpus_discurso, removeWords, stopwords('english'))
matriz_palavras <- as.matrix(TermDocumentMatrix(corpus_discurso))
frequencia <-sort(rowSums(matriz_palavras), decreasing=TRUE)
frequencia_min_5 <- subset(frequencia, frequencia>5)
barplot(frequencia_min_5,las=2,main="Frequencia das Palavras",xlab='Palavras',ylab='Quantidade', col= c("red","blue"))
wordcloud(corpus_discurso,min.freq = 2,max.words = 50, random.order = FALSE, rot.per = 0.35, colors =c("red","blue"))
\[ P \left(A \mid B \right) = \frac {P\left(B \mid A\right)P(A)} {P(A)} \]
\[ \nabla \times H = J_{f} + \frac{\partial D}{\partial t} \]
\[ P_{M} = K_{M} \left(e \frac {-I^{*}C^{*}U+F} {F_{M}} -1\right) \]
\[ \nabla \times E= 0 \nabla \times E = -\frac{1}{c}\frac{\partial H}{\partial t} \]
\[ \nabla \times H= 0 \nabla \times H = -\frac{1}{c}\frac{\partial E}{\partial t} \]
Gravura Data Science
Bliblioteca Python mais utlizada para Data Science
Obach and Jaques (2019)
Vaz et al. (2019)
E. V. da Silva, Netto, and Souza (n.d.)
J. C. S. Silva et al. (2018)
R. R. Silva and Brito Gonçalves (n.d.)