all_shipwrecks <- tibble(read.csv("shipwrecks.csv"))
all_shipwrecks <- select(all_shipwrecks,Vessel.Name, Date.of.Wreck, Event)Dataset
Importing and cleaning the dataset
eighteen <- all_shipwrecks %>%
filter(str_starts(Date.of.Wreck, "185"))
eighteen <- separate(eighteen,
Vessel.Name,
sep = "-",
into = c("Ship","Year")
)
eighteen <- rename(eighteen, Wreck_Date = Date.of.Wreck)
tidy_shipwrecks <- select(eighteen, Ship, Wreck_Date,Event)Overview of the dataset
| Ship | Wreck_Date | Event |
|---|---|---|
| Adriatic | 1859-12-24 | Stranded |
| Stamford | 1857-01-01 | Wrecked |
| Allen And Brown | 1853-01-01 | Wrecked |
| Perthshire | 1854-01-01 | Wrecked |
| Perseverance | 1855-01-01 | Wrecked |
| Zenobia | 1857-01-01 | Wrecked |
| Robert Treat | 1859-06-18 | Wrecked |
| Arcadia | 1854-11-26 | Wrecked |
| Nisbis | 1855-01-18 | Wrecked |
| Amazon | 1853-06-01 | Wrecked |
Variables summary
The following table is a summary of the variables contained within the shipwrecks dataset.
| Variable | Type | Description |
|---|---|---|
| Ship | Nominal | Name of Ship |
| Wreck_Date | Ordinal | Date of Wreck |
| Event | Nominal | Cause of Wreck |
Frequency tables
The following table is a frequency of causes of wreck events:
| Event | freq | rel_freq |
|---|---|---|
| Wrecked | 55 | 0.8 |
| Stranded | 10 | 0.2 |
| Abandoned | 1 | 0.0 |
The following table is a frequency of wreck dates:
| Wreck_Date | freq | rel_freq |
|---|---|---|
| 1855-01-18 | 4 | 0.1 |
| 1854-01-01 | 3 | 0.0 |
| 1857-01-01 | 3 | 0.0 |
| 1850-01-01 | 2 | 0.0 |
| 1851-01-01 | 2 | 0.0 |
| 1851-08-26 | 2 | 0.0 |
| 1856-12-26 | 2 | 0.0 |
| 1859-06-18 | 2 | 0.0 |
| 1850-01-04 | 1 | 0.0 |
| 1850-04-02 | 1 | 0.0 |
| 1850-07-06 | 1 | 0.0 |
| 1850-08-03 | 1 | 0.0 |
| 1850-09-04 | 1 | 0.0 |
| 1850-10-01 | 1 | 0.0 |
| 1851-02-11 | 1 | 0.0 |
| 1851-09-13 | 1 | 0.0 |
| 1851-12-16 | 1 | 0.0 |
| 1852-02-21 | 1 | 0.0 |
| 1852-09-14 | 1 | 0.0 |
| 1852-11-21 | 1 | 0.0 |
| 1852-12-07 | 1 | 0.0 |
| 1852-12-16 | 1 | 0.0 |
| 1852-12-18 | 1 | 0.0 |
| 1853-01-01 | 1 | 0.0 |
| 1853-04-05 | 1 | 0.0 |
| 1853-06-01 | 1 | 0.0 |
| 1853-06-28 | 1 | 0.0 |
| 1853-12-05 | 1 | 0.0 |
| 1853-12-09 | 1 | 0.0 |
| 1854-02-21 | 1 | 0.0 |
| 1854-05-05 | 1 | 0.0 |
| 1854-06-29 | 1 | 0.0 |
| 1854-10-23 | 1 | 0.0 |
| 1854-11-24 | 1 | 0.0 |
| 1854-11-26 | 1 | 0.0 |
| 1855-01-01 | 1 | 0.0 |
| 1855-04-18 | 1 | 0.0 |
| 1855-10-26 | 1 | 0.0 |
| 1855-12-07 | 1 | 0.0 |
| 1856-03-19 | 1 | 0.0 |
| 1856-04-01 | 1 | 0.0 |
| 1856-06-02 | 1 | 0.0 |
| 1856-09-23 | 1 | 0.0 |
| 1856-12-03 | 1 | 0.0 |
| 1856-12-07 | 1 | 0.0 |
| 1856-12-24 | 1 | 0.0 |
| 1857-03-01 | 1 | 0.0 |
| 1858-01-01 | 1 | 0.0 |
| 1858-03-01 | 1 | 0.0 |
| 1858-10-03 | 1 | 0.0 |
| 1859-01-01 | 1 | 0.0 |
| 1859-07-01 | 1 | 0.0 |
| 1859-12-21 | 1 | 0.0 |
| 1859-12-24 | 1 | 0.0 |
Descriptive statistics
The following table is a descriptive table of shipwreck dates:
| variable | n | mean | sd | var | min | max |
|---|---|---|---|---|---|---|
| Wreck_Date | 66 | NA | NA | NA | 1850-01-01 | 1859-12-24 |