---
title: "Mammal Litter size"
output: html_document
---


```{r}
library(phytools)
library(kableExtra)
library(phangorn)
library(ape)
# if (!require("BiocManager", quietly = TRUE))
#     install.packages("BiocManager")
# BiocManager::install("ggtree")
#library(ggtree)

tree<- read.tree("~/Dropbox/FCU/Teaching/Mentoring/2016Spring-2021Fall_AssociateProfessor/2020Fall/ChiYuWu/rcodeCYW/mammal2.nwk")

plot(tree)
```




```{r}
df<-read.csv("~/Dropbox/FCU/Teaching/Mentoring/2016Spring-2021Fall_AssociateProfessor/2020Fall/ChiYuWu/dataset/capellini2015role.csv")
head(df,30)
```
