---
title: "Examples of likert Tables"
author: "Jason Bryer"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Examples of likert Tables}
  %\VignetteEncoding{UTF-8}
  %\VignetteEngine{knitr::rmarkdown}
editor_options: 
  chunk_output_type: console
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r}
library(likert)
library(ggplot2)
library(xtable)
data(pisaitems)

##### Item 24: Reading Attitudes
items24 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q']
names(items24) <- c(
	  "I read only if I have to.",
	  "Reading is one of my favorite hobbies.",
	  "I like talking about books with other people.",
	  "I find it hard to finish books.",
	  "I feel happy if I receive a book as a present.",
	  "For me, reading is a waste of time.",
	  "I enjoy going to a bookstore or a library.",
	  "I read only to get information that I need.",
	  "I cannot sit still and read for more than a few minutes.",
	  "I like to express my opinions about books I have read.",
	  "I like to exchange books with my friends.")
l24 = likert(items24)
l24g <- likert(items24, grouping=pisaitems$CNT)
```

```{r, results='asis'}
xtable(l24)