---
title: "Example Analysis using the tm package"
author: "Irucka Embry"
date: "`r Sys.Date()`"
output:
  rmarkdown::html_document:
    highlight: kate
    theme: readable
    code_download: TRUE
vignette: >
  %\VignetteIndexEntry{Examples using the tm package}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

# Examples


```{r, warning = FALSE, message = FALSE}
library(install.load)
load_package("iemisctext", "tm") # load needed packages using the load_package function from the install.load package (it is assumed that you have already installed these packages)


# anarchy
# Example 1

data(anarchy)

# create a document term matrix of anarchy
a <- DocumentTermMatrix(anarchy)

# find terms used > 5 times
findFreqTerms(a, 5)

# Zipf's law
Zipf_plot(a)




# war_prayer
# Example 1

data(war_prayer)

# create a document term matrix of war_prayer
wp <- DocumentTermMatrix(war_prayer)

# find terms used > 5 times
findFreqTerms(wp, 5)

# Zipf's law
Zipf_plot(wp)




# war_racket
# Example 1

data(war_racket)

# create a document term matrix of war_racket
wr <- DocumentTermMatrix(war_racket)

# find terms used > 5 times
findFreqTerms(wr, 5)

# Zipf's law
Zipf_plot(wr)




# connect_dots
# Example 1

data(connect_dots)

# create a document term matrix of connect_dots
cd <- DocumentTermMatrix(connect_dots)

# find terms used > 5 times
findFreqTerms(cd, 5)

# Zipf's law
Zipf_plot(cd)




# us_them
# Example 1

data(us_them)

# create a document term matrix of us_them
ut <- DocumentTermMatrix(us_them)

# find terms used > 5 times
findFreqTerms(ut, 5)

# Zipf's law
Zipf_plot(ut)




# climate_strange
# Example 1

data(climate_strange)

# create a document term matrix of climate_strange
cs <- DocumentTermMatrix(climate_strange)

# find terms used > 5 times
findFreqTerms(cs, 5)

# Zipf's law
Zipf_plot(cs)
```


```{r eval = FALSE}
library(install.load)
load_package("iemisctext", "tm") # load needed packages using the load_package function from the install.load package (it is assumed that you have already installed these packages)

# anarchy
# Example 2

data(anarchy)

# View text representation of anarchy
inspect(anarchy[[1]])




# war_prayer
# Example 2

data(war_prayer)

# View text representation of war_prayer
inspect(war_prayer[[1]])




# war_racket
# Example 2

data(war_racket)

# View text representation of war_racket
inspect(war_racket[[1]])




# connect_dots
# Example 2

data(connect_dots)

# View text representation of connect_dots
inspect(connect_dots[[1]])




# us_them
# Example 2

data(us_them)

# View text representation of us_them
inspect(us_them[[1]])




# climate_strange
# Example 2

data(climate_strange)

# View text representation of climate_strange
inspect(climate_strange[[1]])
```
