```r
d<-read.csv("https://tinyurl.com/aqm-data/mussels.csv")
d %>% group_by(Site) %>% summarise(n=n(),mean=round(mean(Lshell),1),sd=round(sd(Lshell),1)) %>% DT::datatable()
```

```{=html}
<div id="htmlwidget-c5a004ec1430089c9651" style="width:100%;height:auto;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-c5a004ec1430089c9651">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6"],["Site_1","Site_2","Site_3","Site_4","Site_5","Site_6"],[26,25,8,8,21,25],[100.8,109.2,106.8,97.2,119.5,103.2],[12.4,14,24.1,19.3,8.8,10]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Site<\/th>\n      <th>n<\/th>\n      <th>mean<\/th>\n      <th>sd<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[2,3,4]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
```