getwd()
## [1] "C:/Users/jared/OneDrive/Pictures/Desktop/Biostatslab/week4"
setwd("C:/Users/jared/OneDrive/Pictures/Desktop/Biostatslab/week4")

#1

sample_data <- c(5, 7, 8, 6, 9, 10)
se <- function(x){sd(x)/sqrt(length(x))}
se(sample_data)
## [1] 0.7637626

#2

data("iris")
se(iris$Sepal.Length)
## [1] 0.06761132

#3

F.to.C <- function(f) {(f - 32) * 5/9}
F.to.C(32)
## [1] 0

#4.

data <- read.csv("Lab_3_Data_Groupers.csv")
head(data)
##   Sample   Species   Habitat Reserve_Status Year  TL HL         Gut
## 1      1   Graysby Clay Bank        Reserve 2009  55 20 Not sampled
## 2      2   Graysby Clay Bank        Reserve 2009  51 18 Not sampled
## 3      3   Graysby Clay Bank        Reserve 2009  50 19 Not sampled
## 4      4   Graysby Clay Bank        Reserve 2009 223 70 Not sampled
## 5      5 Rock Hind Clay Bank        Reserve 2009 131 46 Not sampled
## 6      6 Rock Hind Clay Bank        Reserve 2009 103 34 Not sampled
##   RNA_DNA_Ratio
## 1           1.2
## 2           1.5
## 3           0.8
## 4           5.1
## 5           2.6
## 6           2.2
read.csv("Lab_3_Data_Groupers.csv")
##     Sample   Species      Habitat Reserve_Status Year  TL HL         Gut
## 1        1   Graysby    Clay Bank        Reserve 2009  55 20 Not sampled
## 2        2   Graysby    Clay Bank        Reserve 2009  51 18 Not sampled
## 3        3   Graysby    Clay Bank        Reserve 2009  50 19 Not sampled
## 4        4   Graysby    Clay Bank        Reserve 2009 223 70 Not sampled
## 5        5 Rock Hind    Clay Bank        Reserve 2009 131 46 Not sampled
## 6        6 Rock Hind    Clay Bank        Reserve 2009 103 34 Not sampled
## 7        7 Rock Hind    Clay Bank        Reserve 2009 127 44 Not sampled
## 8        8 Rock Hind    Clay Bank        Reserve 2009 130 43 Not sampled
## 9        9 Rock Hind    Clay Bank        Reserve 2009 117 39 Not sampled
## 10      10 Rock Hind    Clay Bank        Reserve 2009 140 47 Not sampled
## 11      11 Rock Hind    Clay Bank        Reserve 2009 107 36 Not sampled
## 12      12 Rock Hind    Clay Bank        Reserve 2009 107 37 Not sampled
## 13      13 Rock Hind    Clay Bank        Reserve 2009  98 33 Not sampled
## 14      14 Rock Hind    Clay Bank        Reserve 2009 182 62 Not sampled
## 15      15 Rock Hind    Clay Bank        Reserve 2009 127 45 Not sampled
## 16      16 Rock Hind    Clay Bank        Reserve 2009 136 46 Not sampled
## 17      17 Rock Hind    Clay Bank        Reserve 2009 122 41 Not sampled
## 18      18 Rock Hind    Clay Bank        Reserve 2009 120 41 Not sampled
## 19      19 Rock Hind    Clay Bank        Reserve 2009 139 46 Not sampled
## 20      20 Rock Hind    Clay Bank        Reserve 2009 128 42 Not sampled
## 21      21 Rock Hind    Clay Bank        Reserve 2009 131 44 Not sampled
## 22      22 Rock Hind    Clay Bank        Reserve 2009 140 48 Not sampled
## 23      23 Rock Hind    Clay Bank        Reserve 2009 146 48 Not sampled
## 24      24 Rock Hind    Clay Bank        Reserve 2009 121 41 Not sampled
## 25      25 Rock Hind    Clay Bank        Reserve 2009 133 47 Not sampled
## 26      26 Rock Hind    Clay Bank        Reserve 2009 132 45 Not sampled
## 27      27 Rock Hind    Clay Bank        Reserve 2009 130 45 Not sampled
## 28      28 Rock Hind    Clay Bank        Reserve 2009 115 41 Not sampled
## 29      29 Rock Hind    Clay Bank        Reserve 2009 119 41 Not sampled
## 30      30 Rock Hind    Clay Bank        Reserve 2009 102 36 Not sampled
## 31      31   Graysby   Coral Reef        Reserve 2009 140 46 Not sampled
## 32      32   Graysby   Coral Reef        Reserve 2009 149 50 Not sampled
## 33      33   Graysby   Coral Reef        Reserve 2009 197 66 Not sampled
## 34      34   Graysby   Coral Reef        Reserve 2009  94 35 Not sampled
## 35      35   Graysby   Coral Reef        Reserve 2009 124 43 Not sampled
## 36      36   Graysby   Coral Reef        Reserve 2009 149 48 Not sampled
## 37      37   Graysby   Coral Reef        Reserve 2009 150 56 Not sampled
## 38      38   Graysby   Coral Reef        Reserve 2009 187 61 Not sampled
## 39      39   Graysby   Coral Reef        Reserve 2009 240 78 Not sampled
## 40      40   Graysby   Coral Reef        Reserve 2009 255 90 Not sampled
## 41      41   Graysby    Clay Bank        Reserve 2009  39 13        Full
## 42      42   Graysby    Clay Bank        Reserve 2009  69 23       Empty
## 43      43   Graysby    Clay Bank        Reserve 2009  59 19        Full
## 44      44   Graysby    Clay Bank        Reserve 2009  74 23        Full
## 45      45   Graysby    Clay Bank        Reserve 2009  64 22       Empty
## 46      46   Graysby    Clay Bank        Reserve 2009  61 22        Full
## 47      47   Graysby    Clay Bank        Reserve 2009  64 23        Full
## 48      48 Rock Hind    Clay Bank        Reserve 2009 152 51        Full
## 49      49 Rock Hind    Clay Bank        Reserve 2009 119 39       Empty
## 50      50 Rock Hind    Clay Bank        Reserve 2009 129 43       Empty
## 51      51 Rock Hind    Clay Bank        Reserve 2009 117 41       Empty
## 52      52 Rock Hind    Clay Bank        Reserve 2009 121 41        Full
## 53      53 Rock Hind    Clay Bank        Reserve 2009 142 47       Empty
## 54      54   Graysby   Coral Reef        Reserve 2009 115 40        Full
## 55      55   Graysby   Coral Reef        Reserve 2009 129 44       Empty
## 56      56   Graysby   Coral Reef        Reserve 2009 133 47       Empty
## 57      57   Graysby   Coral Reef        Reserve 2009 132 46       Empty
## 58      58   Graysby   Coral Reef        Reserve 2009 156 55       Empty
## 59      59   Graysby   Coral Reef        Reserve 2009 182 63       Empty
## 60      60   Graysby   Coral Reef        Reserve 2009 200 66        Full
## 61      61   Graysby   Coral Reef        Reserve 2009 153 52       Empty
## 62      62   Graysby   Coral Reef        Reserve 2009  34  7       Empty
## 63      63   Graysby   Coral Reef        Reserve 2009 116 41       Empty
## 64      64   Graysby    Clay Bank        Reserve 2009 151 51       Empty
## 65      65   Graysby   Coral Reef        Reserve 2009 199 73       Empty
## 66      66   Graysby   Coral Reef        Reserve 2009 196 70       Empty
## 67      67   Graysby   Coral Reef        Reserve 2009 185 66       Empty
## 68      68   Graysby   Coral Reef        Reserve 2009 129 45        Full
## 69      69   Graysby   Coral Reef        Reserve 2009 136 48       Empty
## 70      70   Graysby   Coral Reef        Reserve 2009 131 46        Full
## 71      71   Graysby   Coral Reef        Reserve 2009 101 37        Full
## 72      72 Rock Hind    Clay Bank    Non reserve 2009 116 38        Full
## 73      73 Rock Hind    Clay Bank    Non reserve 2009 150 50       Empty
## 74      74 Rock Hind    Clay Bank    Non reserve 2009 147 48        Full
## 75      75 Rock Hind    Clay Bank    Non reserve 2009 101 35       Empty
## 76      76 Rock Hind    Clay Bank    Non reserve 2009 119 39       Empty
## 77      77 Rock Hind    Clay Bank    Non reserve 2009 122 40       Empty
## 78      78 Rock Hind    Clay Bank    Non reserve 2009 116 39       Empty
## 79      79 Rock Hind    Clay Bank    Non reserve 2009 129 44        Full
## 80      80 Rock Hind    Clay Bank    Non reserve 2009 116 38       Empty
## 81      81 Rock Hind    Clay Bank    Non reserve 2009 112 37       Empty
## 82      82 Rock Hind    Clay Bank    Non reserve 2009 137 46        Full
## 83      83 Rock Hind    Clay Bank    Non reserve 2009 106 37        Full
## 84      84 Rock Hind    Clay Bank    Non reserve 2009 104 35       Empty
## 85      85 Rock Hind    Clay Bank    Non reserve 2009  96 32       Empty
## 86      86 Rock Hind    Clay Bank    Non reserve 2009  93 30       Empty
## 87      87 Rock Hind    Clay Bank    Non reserve 2009 122 41       Empty
## 88      88 Rock Hind    Clay Bank    Non reserve 2009 160 53       Empty
## 89      89 Rock Hind    Clay Bank    Non reserve 2009 139 47       Empty
## 90      90 Rock Hind    Clay Bank    Non reserve 2009 115 38       Empty
## 91      91 Rock Hind    Clay Bank    Non reserve 2009 122 40       Empty
## 92      92 Rock Hind    Clay Bank    Non reserve 2009 112 38       Empty
## 93      93 Rock Hind    Clay Bank    Non reserve 2009 118 39        Full
## 94      94 Rock Hind    Clay Bank    Non reserve 2009  95 33       Empty
## 95      95 Rock Hind    Clay Bank    Non reserve 2009 106 34       Empty
## 96      96 Rock Hind Oil Platform        Reserve 2009 185 68        Full
## 97      97 Rock Hind Oil Platform        Reserve 2009 142 50        Full
## 98      98 Rock Hind Oil Platform        Reserve 2009 169 61        Full
## 99      99 Rock Hind Oil Platform        Reserve 2009 159 55       Empty
## 100    100 Rock Hind Oil Platform        Reserve 2009 206 74       Empty
## 101    101 Rock Hind Oil Platform        Reserve 2009 188 66       Empty
## 102    102 Rock Hind Oil Platform        Reserve 2009 198 73        Full
## 103    103 Rock Hind Oil Platform        Reserve 2009 164 58       Empty
## 104    104 Rock Hind Oil Platform        Reserve 2009 169 57       Empty
## 105    105 Rock Hind Oil Platform        Reserve 2009 160 54       Empty
## 106    106 Rock Hind Oil Platform        Reserve 2009 149 52       Empty
## 107    107 Rock Hind Oil Platform        Reserve 2009 165 57       Empty
## 108    108 Rock Hind Oil Platform        Reserve 2009 144 53        Full
## 109    109 Rock Hind Oil Platform        Reserve 2009 147 50       Empty
## 110    110 Rock Hind Oil Platform        Reserve 2009 196 71        Full
## 111    111 Rock Hind Oil Platform        Reserve 2009 228 84        Full
## 112    112 Rock Hind Oil Platform        Reserve 2009 190 66       Empty
## 113    113 Rock Hind Oil Platform        Reserve 2009 155 54       Empty
## 114    114 Rock Hind    Clay Bank        Reserve 2009 195 69       Empty
## 115    115 Rock Hind    Clay Bank        Reserve 2009 115 40        Full
## 116    116 Rock Hind    Clay Bank        Reserve 2009 115 40       Empty
## 117    117   Graysby    Clay Bank        Reserve 2009 109 37        Full
## 118    118   Graysby    Clay Bank        Reserve 2009  94 33       Empty
## 119    119   Graysby    Clay Bank        Reserve 2009  88 31        Full
## 120    120   Graysby    Clay Bank        Reserve 2009  69 25 Not Sampled
## 121    121   Graysby    Clay Bank        Reserve 2009  64 25 Not Sampled
## 122    122   Graysby    Clay Bank        Reserve 2009  69 24       Empty
## 123    123   Graysby    Clay Bank        Reserve 2009  63 23       Empty
## 124    124   Graysby    Clay Bank        Reserve 2009  66 24 Not Sampled
## 125    125   Graysby    Clay Bank        Reserve 2009  57 21 Not Sampled
## 126    126 Rock Hind   Coral Reef        Reserve 2009 251 93       Empty
## 127    127   Graysby    Clay Bank    Non reserve 2009  40 11       Empty
## 128    128   Graysby    Clay Bank    Non reserve 2009  45 16 Not Sampled
## 129    129 Rock Hind    Clay Bank    Non reserve 2009 147 51       Empty
## 130    130 Rock Hind    Clay Bank    Non reserve 2009 133 48        Full
## 131    131 Rock Hind    Clay Bank    Non reserve 2009 125 44        Full
## 132    132 Rock Hind    Clay Bank    Non reserve 2009 136 45        Full
## 133    133 Rock Hind    Clay Bank    Non reserve 2009 134 43        Full
## 134    134 Rock Hind    Clay Bank    Non reserve 2009 120 40       Empty
## 135    135 Rock Hind    Clay Bank    Non reserve 2009 112 38       Empty
## 136    136 Rock Hind    Clay Bank    Non reserve 2009 110 38        Full
## 137    137 Rock Hind    Clay Bank    Non reserve 2009  97 34        Full
## 138    138 Rock Hind    Clay Bank    Non reserve 2009 105 36        Full
## 139    139 Rock Hind    Clay Bank    Non reserve 2009 103 35       Empty
## 140    140 Rock Hind    Clay Bank    Non reserve 2009 111 37       Empty
## 141    141 Rock Hind    Clay Bank    Non reserve 2009 106 37        Full
## 142    142 Rock Hind    Clay Bank    Non reserve 2009  96 35        Full
## 143    143 Rock Hind    Clay Bank    Non reserve 2009  90 31       Empty
## 144    144 Rock Hind    Clay Bank    Non reserve 2009  97 33       Empty
## 145    145 Rock Hind    Clay Bank    Non reserve 2009  97 34 Not Sampled
## 146    146   Graysby   Coral Reef        Reserve 2010 164 59 Not Sampled
## 147    147 Rock Hind    Clay Bank        Reserve 2010  44 15 Not Sampled
## 148    148 Rock Hind    Clay Bank        Reserve 2010  39 14 Not Sampled
## 149    149   Graysby   Coral Reef        Reserve 2010 137 48 Not Sampled
## 150    150   Graysby   Coral Reef        Reserve 2010 167 58 Not Sampled
## 151    151   Graysby   Coral Reef        Reserve 2010 157 55 Not Sampled
## 152    152 Rock Hind    Clay Bank        Reserve 2010 161 54 Not Sampled
## 153    153 Rock Hind    Clay Bank        Reserve 2010  32  9 Not Sampled
## 154    154 Rock Hind    Clay Bank        Reserve 2010  37 12 Not Sampled
## 155    155 Rock Hind    Clay Bank        Reserve 2010 155 52 Not Sampled
## 156    156 Rock Hind    Clay Bank        Reserve 2010 154 53 Not Sampled
## 157    157 Rock Hind    Clay Bank        Reserve 2010 146 49 Not Sampled
## 158    158 Rock Hind    Clay Bank        Reserve 2010 172 59 Not Sampled
## 159    159 Rock Hind    Clay Bank    Non reserve 2009 166 57 Not Sampled
## 160    160 Rock Hind    Clay Bank    Non reserve 2009 186 65 Not Sampled
## 161    161 Rock Hind    Clay Bank    Non reserve 2009 196 65 Not Sampled
## 162    162 Rock Hind    Clay Bank    Non reserve 2009 209 69 Not Sampled
## 163    163 Rock Hind    Clay Bank    Non reserve 2009 204 75 Not Sampled
## 164    164 Rock Hind    Clay Bank    Non reserve 2009  39 11 Not Sampled
## 165    165 Rock Hind    Clay Bank    Non reserve 2009  36 10 Not Sampled
## 166    166 Rock Hind   Coral Reef        Reserve 2010 212 75 Not Sampled
## 167    167   Graysby    Clay Bank    Non reserve 2010 127 44       Empty
## 168    168 Rock Hind    Clay Bank    Non reserve 2010 136 44       Empty
## 169    169 Rock Hind    Clay Bank    Non reserve 2010 145 52       Empty
## 170    170   Graysby    Clay Bank    Non reserve 2010 150 54       Empty
## 171    171 Rock Hind    Clay Bank    Non reserve 2010 205 74       Empty
## 172    172 Rock Hind    Clay Bank    Non reserve 2010 143 48        Full
## 173    173 Rock Hind    Clay Bank    Non reserve 2010 211 73       Empty
## 174    174 Rock Hind    Clay Bank    Non reserve 2010 150 54       Empty
## 175    175 Rock Hind    Clay Bank    Non reserve 2010 225 75        Full
## 176    176 Rock Hind    Clay Bank    Non reserve 2010 225 74        Full
## 177    177 Rock Hind    Clay Bank    Non reserve 2010 154 53       Empty
## 178    178 Rock Hind    Clay Bank    Non reserve 2010 156 52        Full
## 179    179 Rock Hind    Clay Bank    Non reserve 2010 139 47       Empty
## 180    180 Rock Hind    Clay Bank    Non reserve 2010 124 43       Empty
## 181    181 Rock Hind Oil Platform    Non reserve 2010 157 54       Empty
## 182    182 Rock Hind Oil Platform    Non reserve 2010 143 46        Full
## 183    183   Graysby Oil Platform    Non reserve 2010  94 31        Full
## 184    184 Rock Hind Oil Platform    Non reserve 2010 218 75        Full
## 185    185   Graysby Oil Platform    Non reserve 2010 139 48       Empty
## 186    186 Rock Hind    Clay Bank    Non reserve 2010  47 16        Full
## 187    187 Rock Hind    Clay Bank    Non reserve 2010  53 16       Empty
## 188    188 Rock Hind    Clay Bank    Non reserve 2010  50 16       Empty
## 189    189 Rock Hind    Clay Bank        Reserve 2010  55 19        Full
## 190    190 Rock Hind    Clay Bank        Reserve 2010  52 19        Full
## 191    191 Rock Hind    Clay Bank        Reserve 2010  53 19       Empty
## 192    192 Rock Hind    Clay Bank        Reserve 2010  56 19       Empty
## 193    193   Graysby   Coral Reef        Reserve 2010 154 51       Empty
## 194    194   Graysby   Coral Reef        Reserve 2010 148 53       Empty
## 195    195   Graysby   Coral Reef        Reserve 2010 128 45 Not Sampled
## 196    196 Rock Hind    Clay Bank    Non reserve 2010 119 43       Empty
## 197    197 Rock Hind    Clay Bank    Non reserve 2010 131 43        Full
## 198    198 Rock Hind    Clay Bank    Non reserve 2010 140 43        Full
## 199    199 Rock Hind    Clay Bank    Non reserve 2010 142 45 Not Sampled
## 200    200 Rock Hind    Clay Bank    Non reserve 2010 102 32 Not Sampled
## 201    201 Rock Hind    Clay Bank    Non reserve 2010 147 46        Full
## 202    202 Rock Hind    Clay Bank    Non reserve 2010 146 50        Full
## 203    203   Graysby    Clay Bank    Non reserve 2010  47 16       Empty
## 204    204 Rock Hind Oil Platform    Non reserve 2010 151 51       Empty
## 205    205   Graysby Oil Platform    Non reserve 2010 167 54        Full
##     RNA_DNA_Ratio
## 1             1.2
## 2             1.5
## 3             0.8
## 4             5.1
## 5             2.6
## 6             2.2
## 7             4.5
## 8             4.9
## 9             5.1
## 10            3.6
## 11            4.9
## 12            3.5
## 13            3.7
## 14            2.5
## 15            3.3
## 16            3.2
## 17            4.1
## 18            3.3
## 19            3.8
## 20            5.2
## 21            4.0
## 22            4.5
## 23            3.4
## 24            3.3
## 25            4.7
## 26            2.9
## 27            3.3
## 28            3.3
## 29            4.6
## 30            3.5
## 31            2.5
## 32            6.2
## 33            3.8
## 34            2.8
## 35            3.4
## 36            4.1
## 37            3.9
## 38            7.6
## 39            4.7
## 40            5.5
## 41            1.2
## 42            2.5
## 43            1.3
## 44            2.8
## 45            3.3
## 46            1.6
## 47            2.2
## 48            3.3
## 49            2.5
## 50            2.9
## 51            1.7
## 52            2.5
## 53            1.8
## 54            2.3
## 55            2.6
## 56            4.8
## 57            3.4
## 58            2.4
## 59            5.1
## 60            4.8
## 61            3.7
## 62            1.2
## 63            1.7
## 64            4.2
## 65            4.2
## 66            4.3
## 67            4.2
## 68            3.0
## 69            4.1
## 70            3.1
## 71            3.0
## 72            3.4
## 73            3.8
## 74            2.8
## 75            3.6
## 76            4.4
## 77            3.5
## 78            3.7
## 79            4.0
## 80            3.5
## 81            4.5
## 82            4.6
## 83            5.7
## 84            3.8
## 85            4.1
## 86            3.7
## 87            3.5
## 88            5.0
## 89            4.2
## 90            2.9
## 91            2.0
## 92            5.0
## 93            2.1
## 94            3.5
## 95            4.0
## 96            3.2
## 97            2.5
## 98            1.6
## 99            3.3
## 100           4.3
## 101           2.5
## 102           5.2
## 103           3.6
## 104           4.5
## 105           3.3
## 106           3.0
## 107           3.0
## 108           3.0
## 109           2.2
## 110           3.0
## 111           3.0
## 112           3.4
## 113           3.9
## 114           3.2
## 115           2.4
## 116           2.1
## 117           3.1
## 118           2.5
## 119           2.3
## 120           3.0
## 121           1.6
## 122           1.5
## 123           1.4
## 124           2.2
## 125           1.8
## 126           2.6
## 127           1.8
## 128           1.6
## 129           2.4
## 130           2.0
## 131           1.8
## 132           2.9
## 133           1.4
## 134           2.1
## 135           2.4
## 136           2.2
## 137           2.0
## 138           2.3
## 139           2.7
## 140           2.3
## 141           1.9
## 142           2.0
## 143           2.7
## 144           2.2
## 145           1.4
## 146           3.6
## 147           8.5
## 148           2.8
## 149           3.6
## 150           3.2
## 151           3.9
## 152           3.3
## 153           1.7
## 154           2.9
## 155           3.3
## 156           2.9
## 157           2.6
## 158           2.1
## 159           3.3
## 160           3.8
## 161           3.0
## 162           3.3
## 163           4.3
## 164           1.2
## 165           1.7
## 166           3.0
## 167           4.3
## 168           4.3
## 169           4.3
## 170           3.2
## 171           1.4
## 172           3.6
## 173           1.5
## 174           4.5
## 175           2.3
## 176           2.0
## 177           4.4
## 178           3.7
## 179           4.0
## 180           4.9
## 181           3.9
## 182           4.3
## 183           2.2
## 184           6.2
## 185           4.2
## 186           5.4
## 187           6.6
## 188           3.5
## 189           3.9
## 190           3.5
## 191           5.3
## 192           5.6
## 193           8.6
## 194           5.1
## 195           6.5
## 196           6.3
## 197           4.6
## 198           6.0
## 199           6.2
## 200           5.4
## 201           5.8
## 202           6.4
## 203           1.5
## 204           5.6
## 205           4.7

#4 A)

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.5.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
data %>% group_by(Species, Habitat) %>% summarise(
  mean(TL),
  sd(TL),
  var(TL),
  median(TL),
  min(TL), 
  max(TL),
  IQR(TL))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by Species and Habitat.
## ℹ Output is grouped by Species.
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c(Species, Habitat))` for per-operation grouping
##   (`?dplyr::dplyr_by`) instead.
## # A tibble: 6 × 9
## # Groups:   Species [2]
##   Species Habitat `mean(TL)` `sd(TL)` `var(TL)` `median(TL)` `min(TL)` `max(TL)`
##   <chr>   <chr>        <dbl>    <dbl>     <dbl>        <dbl>     <int>     <int>
## 1 Graysby Clay B…       78.8     42.2     1784.          64         39       223
## 2 Graysby Coral …      152.      41.7     1736.         149         34       255
## 3 Graysby Oil Pl…      133.      36.8     1356.         139         94       167
## 4 Rock H… Clay B…      123.      39.2     1536.         122         32       225
## 5 Rock H… Coral …      232.      27.6      760.         232.       212       251
## 6 Rock H… Oil Pl…      172.      25.3      642.         164.       142       228
## # ℹ 1 more variable: `IQR(TL)` <dbl>

#the coral reef Had the largest fish #Interquartile range

#4 B)

library(dplyr)
data %>% group_by("graysby", "clay bank") %>% summarise(
  mean(TL),
  sd(TL),
  var(TL),
  median(TL),
  min(TL), 
  max(TL),
  IQR(TL))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by "graysby" and "clay bank".
## ℹ Output is grouped by "graysby".
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c("graysby", "clay bank"))` for per-operation grouping
##   (`?dplyr::dplyr_by`) instead.
## # A tibble: 1 × 9
## # Groups:   "graysby" [1]
##   `"graysby"` `"clay bank"` `mean(TL)` `sd(TL)` `var(TL)` `median(TL)` `min(TL)`
##   <chr>       <chr>              <dbl>    <dbl>     <dbl>        <int>     <int>
## 1 graysby     clay bank           129.     46.8     2195.          130        32
## # ℹ 2 more variables: `max(TL)` <int>, `IQR(TL)` <dbl>
library(dplyr)
data %>% group_by("rock hind", "clay bank") %>% summarise(
  mean(TL),
  sd(TL),
  var(TL),
  median(TL),
  min(TL), 
  max(TL),
  IQR(TL))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by "rock hind" and "clay bank".
## ℹ Output is grouped by "rock hind".
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c("rock hind", "clay bank"))` for per-operation grouping
##   (`?dplyr::dplyr_by`) instead.
## # A tibble: 1 × 9
## # Groups:   "rock hind" [1]
##   `"rock hind"` `"clay bank"` `mean(TL)` `sd(TL)` `var(TL)` `median(TL)`
##   <chr>         <chr>              <dbl>    <dbl>     <dbl>        <int>
## 1 rock hind     clay bank           129.     46.8     2195.          130
## # ℹ 3 more variables: `min(TL)` <int>, `max(TL)` <int>, `IQR(TL)` <dbl>
#ggplot(data = data, aes(x = "clay bank", y = TL, fill = "graysby")) + geom_boxplot()
#ggplot(data = data, aes(x = "clay bank", y = TL, fill = "rock hind" )) + geom_boxplot()
hist(data$TL,
     main = "Rock Hind  (clay bank)",
     xlab = "TL")

hist(data$TL,
     main = "graysby  (Clay bank)",
     xlab = "TL")

library(dplyr)
data %>% group_by("rock hind", "2009","coral reef" ) %>% summarise(
  mean(TL),
  sd(TL),
  var(TL),
  median(TL),
  min(TL), 
  max(TL),
  IQR(TL))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by "rock hind", "2009", and "coral reef".
## ℹ Output is grouped by "rock hind" and "2009".
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c("rock hind", "2009", "coral reef"))` for per-operation
##   grouping (`?dplyr::dplyr_by`) instead.
## # A tibble: 1 × 10
## # Groups:   "rock hind", "2009" [1]
##   `"rock hind"` `"2009"` `"coral reef"` `mean(TL)` `sd(TL)` `var(TL)`
##   <chr>         <chr>    <chr>               <dbl>    <dbl>     <dbl>
## 1 rock hind     2009     coral reef           129.     46.8     2195.
## # ℹ 4 more variables: `median(TL)` <int>, `min(TL)` <int>, `max(TL)` <int>,
## #   `IQR(TL)` <dbl>

#4 C)

library(dplyr)
data %>% group_by("rock hind", "2009","clay bank" ) %>% summarise(
  mean(TL),
  sd(TL),
  var(TL),
  median(TL),
  min(TL), 
  max(TL),
  IQR(TL))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by "rock hind", "2009", and "clay bank".
## ℹ Output is grouped by "rock hind" and "2009".
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c("rock hind", "2009", "clay bank"))` for per-operation
##   grouping (`?dplyr::dplyr_by`) instead.
## # A tibble: 1 × 10
## # Groups:   "rock hind", "2009" [1]
##   `"rock hind"` `"2009"` `"clay bank"` `mean(TL)` `sd(TL)` `var(TL)`
##   <chr>         <chr>    <chr>              <dbl>    <dbl>     <dbl>
## 1 rock hind     2009     clay bank           129.     46.8     2195.
## # ℹ 4 more variables: `median(TL)` <int>, `min(TL)` <int>, `max(TL)` <int>,
## #   `IQR(TL)` <dbl>
hist(data$TL,
     main = "Rock Hind  (2009, Coral Reef)",
     xlab = "TL",
     col = "skyblue",
     border = "white")

hist(data$TL,
     main = "Rock Hind  (2009, Clay bank)",
     xlab = "TL",
     col = "skyblue",
     border = "white")

#ggplot(data = data, aes(x = "2009, clay bank", y = TL, fill = "rock hind" )) + geom_boxplot()
#ggplot(data = data, aes(x = "2009, coral reef", y = TL, fill = "rock hind" )) + geom_boxplot()