—
title: “Example 1”
author: “sheng huo”
date: “3/28/2018”
output: html_document
—
“`{r}
library(knitr)
#setwd(“/Users/NOAH/Desktop/CSC 495/week1/ex1/ex1”)
read_chunk(“example01.R”)
knitr::opts_chunk$set(echo = TRUE)
“`
### Load packages
“`{r C1, results=”hide”, warning=FALSE, message=FALSE}
“`
### Load the data
“`{r C2}
“`
### Graph information
“`{r C3}
“`
### Graph elements
“`{r C4}
“`
### Histogram
“`{r C5a, fig.height=4, fig.width=4}
“`
GGPlot version
“`{r C5b, fig.height=3, fig.width=4}
“`
### Network visualization
“`{r C6}
“`
### Degree distribution
“`{r C7}
“`
### Histogram
“`{r C8, fig.height=3, fig.width=4}
“`
### Degree distribution by sex
Setting up the data
“`{r C9a}
“`
Plotting
“`{r C9b, fig.height=3, fig.width=4}
“`
### Use degree_distribution function
Setting up the data
“`{r C10a}
“`
Show the distribution as a smoothed line: quasi-PDF.
“`{r C10b, fig.height=3, fig.width=4}
“`