exercise2_2_4

library(tidyverse)

## -- Attaching packages ---------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts ------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

##Create data vector of dendritic branch segments

segments <- c(14, 23, 30, 54, 28, 31, 29, 34, 35, 30, 27, 21, 43, 51, 35, 51, 49, 35, 24, 26, 29, 21, 29, 37, 27, 28, 33, 33, 23, 37, 27, 40, 48, 41, 20, 30, 57)

##Create frequency table of observed segments

table(segments)

## segments
## 14 20 21 23 24 26 27 28 29 30 31 33 34 35 37 40 41 43 48 49 51 54 57 
##  1  1  2  2  1  1  3  2  3  3  1  2  1  3  2  1  1  1  1  1  2  1  1

##Create of histogram of observed segments

hist(segments)