# vignettes/univariatestatistics.R In lehmansociology/lehmansociology: Tools for Sociology Students Using R

```## ---- include = FALSE----------------------------------------------------
knitr::opts_chunk\$set(collapse = TRUE, comment = "#>")
library(ggplot2)

## ----startupcode---------------------------------------------------------

library(lehmansociology)

## ----descriptive---------------------------------------------------------

# This gives us the number of observations.
length(poverty.states\$PCTPOVALL_2013)
max(poverty.states\$PCTPOVALL_2013)
min(poverty.states\$PCTPOVALL_2013)
mean(poverty.states\$PCTPOVALL_2013)
median(poverty.states\$PCTPOVALL_2013)
sd(poverty.states\$PCTPOVALL_2013)
var(poverty.states\$PCTPOVALL_2013)
range(poverty.states\$PCTPOVALL_2013)
sum(poverty.states\$PCTPOVALL_2013)
#summary(poverty.states\$PCTPOVALL_2013)
fivenum(poverty.states\$PCTPOVALL_2013)
### Calculates the numbers associated to defined percentiles
quantile(poverty.states\$PCTPOVALL_2013, c(.25, .5, .75, 1))

## ----narmtrue------------------------------------------------------------

# This gives us the number of observations.

max(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
min(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
mean(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
median(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
sd(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
var(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
range(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
sum(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
#summary(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
fivenum(poverty.states\$PCTPOVALL_2013, na.rm = TRUE)
### Calculates the numbers associated to defined percentiles
quantile(poverty.states\$PCTPOVALL_2013, c(.25, .5, .75, 1))

## ------------------------------------------------------------------------

mean(poverty.states\$PCTPOVALL_2013)

## ------------------------------------------------------------------------
temp <- poverty.states\$PCTPOVALL_2013
temp[50]<- NA

## ------------------------------------------------------------------------
mean(temp)

## ------------------------------------------------------------------------

mean(temp, na.rm = TRUE)

```
lehmansociology/lehmansociology documentation built on Jan. 9, 2018, 12:46 a.m.