R-export-datasets.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## R export datasets"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "A note from *the future* (i.e. 2024):\n",
    "\n",
    "When I first put this together, I was paranoid about publishing the resulting datasets online.  At the same time, I was not paranoid enough about how difficult it would be to re-run all the code in this repository after some time elapsed.\n",
    "\n",
    "Now I'm applying some minimal updates to make everything runnable in 2024, and the last thing I want to do is dive into reproducible builds in the R world.  Fortunately, I'm now less paranoid about republishing public data.  So rather than running this notebook, I'm borrowing the outputs helpfully published by [Asif Mehedi](https://github.com/asifm) in his [fpp3-data](https://github.com/asifm/fpp3-data/) repository."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Original content"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "https://robjhyndman.com/hyndsight/ts2csv/"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading required package: forecast\n",
      "\n",
      "Registered S3 method overwritten by 'quantmod':\n",
      "  method            from\n",
      "  as.zoo.data.frame zoo \n",
      "\n"
     ]
    }
   ],
   "source": [
    "library(fpp3)\n",
    "library(dplyr)\n",
    "library(purrr)\n",
    "library(fma)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [],
   "source": [
    "ts2csv <- function(objname, pname) {\n",
    "    dir.create(paste0('data/', pname), showWarnings = FALSE)\n",
    "    fname <- paste0('data/', pname, '/', objname, '.csv')\n",
    "    x = get(objname)\n",
    "    tryCatch({\n",
    "        readr::write_csv(x, fname)\n",
    "        print(fname)\n",
    "    }, warning = function(w) {\n",
    "    }, error = function(e) {\n",
    "        print(paste0(fname, \" <-- error\"))\n",
    "    }, finally = {\n",
    "    })\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"data/fpp3/aus_airpassengers.csv\"\n",
      "[1] \"data/fpp3/aus_arrivals.csv\"\n",
      "[1] \"data/fpp3/boston_marathon.csv\"\n",
      "[1] \"data/fpp3/canadian_gas.csv\"\n",
      "[1] \"data/fpp3/guinea_rice.csv\"\n",
      "[1] \"data/fpp3/us_change.csv\"\n",
      "[1] \"data/fpp3/us_employment.csv\"\n",
      "[1] \"data/fpp3/us_gasoline.csv\"\n",
      "[1] \"data/tsibbledata/PBS.csv\"\n",
      "[1] \"data/tsibbledata/ansett.csv\"\n",
      "[1] \"data/tsibbledata/aus_livestock.csv\"\n",
      "[1] \"data/tsibbledata/aus_production.csv\"\n",
      "[1] \"data/tsibbledata/aus_retail.csv\"\n",
      "[1] \"data/tsibbledata/gafa_stock.csv\"\n",
      "[1] \"data/tsibbledata/global_economy.csv\"\n",
      "[1] \"data/tsibbledata/hh_budget.csv\"\n",
      "[1] \"data/tsibbledata/nyc_bikes.csv\"\n",
      "[1] \"data/tsibbledata/olympic_running.csv\"\n",
      "[1] \"data/tsibbledata/pelt.csv\"\n",
      "[1] \"data/tsibbledata/vic_elec.csv\"\n",
      "[1] \"data/tsibble/pedestrian.csv\"\n",
      "[1] \"data/tsibble/tourism.csv\"\n",
      "[1] \"data/fma/auto.csv\"\n",
      "[1] \"data/fma/bank.csv\"\n",
      "[1] \"data/fma/books.csv <-- error\"\n",
      "[1] \"data/fma/boston.csv <-- error\"\n",
      "[1] \"data/fma/capital.csv <-- error\"\n",
      "[1] \"data/fma/cement.csv\"\n",
      "[1] \"data/fma/dexter.csv\"\n",
      "[1] \"data/fma/econsumption.csv\"\n",
      "[1] \"data/fma/ibm.csv <-- error\"\n",
      "[1] \"data/fma/kkong.csv\"\n",
      "[1] \"data/fma/mortal.csv\"\n",
      "[1] \"data/fma/motel.csv <-- error\"\n",
      "[1] \"data/fma/olympic.csv\"\n",
      "[1] \"data/fma/ozone.csv\"\n",
      "[1] \"data/fma/pcv.csv\"\n",
      "[1] \"data/fma/pulpprice.csv\"\n",
      "[1] \"data/fma/running.csv\"\n",
      "[1] \"data/fma/texasgas.csv\"\n"
     ]
    }
   ],
   "source": [
    "for (pname in list(\"fpp3\", \"tsibbledata\", \"tsibble\", \"fma\")) {\n",
    "    x <- as.data.frame(data(package=pname)[3])\n",
    "    for (objname in x$results.Item) {\n",
    "        ts2csv(objname, pname)\n",
    "    }\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<h3>Data sets</h3>\n",
       "<table>\n",
       "<caption>A data.frame: 158 × 3</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>Package</th><th scope=col>Item</th><th scope=col>Title</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>tsibbledata</td><td>PBS                   </td><td>Monthly Medicare Australia prescription data                     </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>ansett                </td><td>Passenger numbers on Ansett airline flights                      </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>aus_livestock         </td><td>Australian livestock slaughter                                   </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>aus_production        </td><td>Quarterly production of selected commodities in Australia.       </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>aus_retail            </td><td>Australian retail trade turnover                                 </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>gafa_stock            </td><td>GAFA stock prices                                                </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>global_economy        </td><td>Global economic indicators                                       </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>hh_budget             </td><td>Household budget characteristics                                 </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>nyc_bikes             </td><td>NYC Citi Bike trips                                              </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>olympic_running       </td><td>Fastest running times for Olympic races                          </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>pelt                  </td><td>Pelt trading records                                             </td></tr>\n",
       "\t<tr><td>tsibbledata</td><td>vic_elec              </td><td>Half-hourly electricity demand for Victoria, Australia           </td></tr>\n",
       "\t<tr><td>tsibble    </td><td>pedestrian            </td><td>Pedestrian counts in the city of Melbourne                       </td></tr>\n",
       "\t<tr><td>tsibble    </td><td>tourism               </td><td>Australian domestic overnight trips                              </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>diamonds              </td><td>Prices of over 50,000 round cut diamonds                         </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>economics             </td><td>US economic time series                                          </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>economics_long        </td><td>US economic time series                                          </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>faithfuld             </td><td>2d density estimate of Old Faithful data                         </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>luv_colours           </td><td>'colors()' in Luv space                                          </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>midwest               </td><td>Midwest demographics                                             </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>mpg                   </td><td>Fuel economy data from 1999 to 2008 for 38 popular models of cars</td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>msleep                </td><td>An updated and expanded version of the mammals sleep dataset     </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>presidential          </td><td>Terms of 11 presidents from Eisenhower to Obama                  </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>seals                 </td><td>Vector field of seal movements                                   </td></tr>\n",
       "\t<tr><td>ggplot2    </td><td>txhousing             </td><td>Housing sales in TX                                              </td></tr>\n",
       "\t<tr><td>lubridate  </td><td>lakers                </td><td>Lakers 2008-2009 basketball data set                             </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>billboard             </td><td>Song rankings for billboard top 100 in the year 2000             </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>construction          </td><td>Completed construction in the US in 2018                         </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>fish_encounters       </td><td>Fish encounters                                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>population            </td><td>World Health Organization TB data                                </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>relig_income          </td><td>Pew religion and income survey                                   </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>smiths                </td><td>Some data about the Smith family                                 </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table1                </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table2                </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table3                </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table4a               </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table4b               </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>table5                </td><td>Example tabular representations                                  </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>us_rent_income        </td><td>US rent and income data                                          </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>who                   </td><td>World Health Organization TB data                                </td></tr>\n",
       "\t<tr><td>tidyr      </td><td>world_bank_pop        </td><td>Population data from the world bank                              </td></tr>\n",
       "\t<tr><td>dplyr      </td><td>band_instruments      </td><td>Band membership                                                  </td></tr>\n",
       "\t<tr><td>dplyr      </td><td>band_instruments2     </td><td>Band membership                                                  </td></tr>\n",
       "\t<tr><td>dplyr      </td><td>band_members          </td><td>Band membership                                                  </td></tr>\n",
       "\t<tr><td>dplyr      </td><td>starwars              </td><td>Starwars characters                                              </td></tr>\n",
       "\t<tr><td>dplyr      </td><td>storms                </td><td>Storm tracks data                                                </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>aus_airpassengers     </td><td>Air Transport Passengers Australia                               </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>aus_arrivals          </td><td>International Arrivals to Australia                              </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>boston_marathon       </td><td>Boston marathon winning times since 1897                         </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>canadian_gas          </td><td>Monthly Canadian gas production                                  </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>guinea_rice           </td><td>Rice production (Guinea)                                         </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>us_change             </td><td>Percentage changes in economic variables in the USA.             </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>us_employment         </td><td>US monthly employment data                                       </td></tr>\n",
       "\t<tr><td>fpp3       </td><td>us_gasoline           </td><td>US finished motor gasoline product supplied.                     </td></tr>\n",
       "\t<tr><td>datasets   </td><td>AirPassengers         </td><td>Monthly Airline Passenger Numbers 1949-1960                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>BJsales               </td><td>Sales Data with Leading Indicator                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>BJsales.lead (BJsales)</td><td>Sales Data with Leading Indicator                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>BOD                   </td><td>Biochemical Oxygen Demand                                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>CO2                   </td><td>Carbon Dioxide Uptake in Grass Plants                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>ChickWeight           </td><td>Weight versus age of chicks on different diets                   </td></tr>\n",
       "\t<tr><td>datasets   </td><td>DNase                 </td><td>Elisa assay of DNase                                             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>EuStockMarkets        </td><td>Daily Closing Prices of Major European Stock Indices, 1991-1998  </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Formaldehyde          </td><td>Determination of Formaldehyde                                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>HairEyeColor          </td><td>Hair and Eye Color of Statistics Students                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Harman23.cor          </td><td>Harman Example 2.3                                               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Harman74.cor          </td><td>Harman Example 7.4                                               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Indometh              </td><td>Pharmacokinetics of Indomethacin                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>InsectSprays          </td><td>Effectiveness of Insect Sprays                                   </td></tr>\n",
       "\t<tr><td><span style=white-space:pre-wrap>datasets   </span></td><td><span style=white-space:pre-wrap>JohnsonJohnson        </span></td><td><span style=white-space:pre-wrap>Quarterly Earnings per Johnson &amp; Johnson Share                   </span></td></tr>\n",
       "\t<tr><td>datasets   </td><td>LakeHuron             </td><td>Level of Lake Huron 1875-1972                                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>LifeCycleSavings      </td><td>Intercountry Life-Cycle Savings Data                             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Loblolly              </td><td>Growth of Loblolly pine trees                                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Nile                  </td><td>Flow of the River Nile                                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Orange                </td><td>Growth of Orange Trees                                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>OrchardSprays         </td><td>Potency of Orchard Sprays                                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>PlantGrowth           </td><td>Results from an Experiment on Plant Growth                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Puromycin             </td><td>Reaction Velocity of an Enzymatic Reaction                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Seatbelts             </td><td>Road Casualties in Great Britain 1969-84                         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Theoph                </td><td>Pharmacokinetics of Theophylline                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>Titanic               </td><td>Survival of passengers on the Titanic                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>ToothGrowth           </td><td>The Effect of Vitamin C on Tooth Growth in Guinea Pigs           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>UCBAdmissions         </td><td>Student Admissions at UC Berkeley                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>UKDriverDeaths        </td><td>Road Casualties in Great Britain 1969-84                         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>UKgas                 </td><td>UK Quarterly Gas Consumption                                     </td></tr>\n",
       "\t<tr><td>datasets   </td><td>USAccDeaths           </td><td>Accidental Deaths in the US 1973-1978                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>USArrests             </td><td>Violent Crime Rates by US State                                  </td></tr>\n",
       "\t<tr><td>datasets   </td><td>USJudgeRatings        </td><td>Lawyers' Ratings of State Judges in the US Superior Court        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>USPersonalExpenditure </td><td>Personal Expenditure Data                                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>UScitiesD             </td><td>Distances Between European Cities and Between US Cities          </td></tr>\n",
       "\t<tr><td>datasets   </td><td>VADeaths              </td><td>Death Rates in Virginia (1940)                                   </td></tr>\n",
       "\t<tr><td>datasets   </td><td>WWWusage              </td><td>Internet Usage per Minute                                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>WorldPhones           </td><td>The World's Telephones                                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>ability.cov           </td><td>Ability and Intelligence Tests                                   </td></tr>\n",
       "\t<tr><td>datasets   </td><td>airmiles              </td><td>Passenger Miles on Commercial US Airlines, 1937-1960             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>airquality            </td><td>New York Air Quality Measurements                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>anscombe              </td><td>Anscombe's Quartet of 'Identical' Simple Linear Regressions      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>attenu                </td><td>The Joyner-Boore Attenuation Data                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>attitude              </td><td>The Chatterjee-Price Attitude Data                               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>austres               </td><td>Quarterly Time Series of the Number of Australian Residents      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>beaver1 (beavers)     </td><td>Body Temperature Series of Two Beavers                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>beaver2 (beavers)     </td><td>Body Temperature Series of Two Beavers                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>cars                  </td><td>Speed and Stopping Distances of Cars                             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>chickwts              </td><td>Chicken Weights by Feed Type                                     </td></tr>\n",
       "\t<tr><td>datasets   </td><td>co2                   </td><td>Mauna Loa Atmospheric CO2 Concentration                          </td></tr>\n",
       "\t<tr><td>datasets   </td><td>crimtab               </td><td>Student's 3000 Criminals Data                                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>discoveries           </td><td>Yearly Numbers of Important Discoveries                          </td></tr>\n",
       "\t<tr><td>datasets   </td><td>esoph                 </td><td>Smoking, Alcohol and (O)esophageal Cancer                        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>euro                  </td><td>Conversion Rates of Euro Currencies                              </td></tr>\n",
       "\t<tr><td>datasets   </td><td>euro.cross (euro)     </td><td>Conversion Rates of Euro Currencies                              </td></tr>\n",
       "\t<tr><td>datasets   </td><td>eurodist              </td><td>Distances Between European Cities and Between US Cities          </td></tr>\n",
       "\t<tr><td>datasets   </td><td>faithful              </td><td>Old Faithful Geyser Data                                         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>fdeaths (UKLungDeaths)</td><td>Monthly Deaths from Lung Diseases in the UK                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>freeny                </td><td>Freeny's Revenue Data                                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>freeny.x (freeny)     </td><td>Freeny's Revenue Data                                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>freeny.y (freeny)     </td><td>Freeny's Revenue Data                                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>infert                </td><td>Infertility after Spontaneous and Induced Abortion               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>iris                  </td><td>Edgar Anderson's Iris Data                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>iris3                 </td><td>Edgar Anderson's Iris Data                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>islands               </td><td>Areas of the World's Major Landmasses                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>ldeaths (UKLungDeaths)</td><td>Monthly Deaths from Lung Diseases in the UK                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>lh                    </td><td>Luteinizing Hormone in Blood Samples                             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>longley               </td><td>Longley's Economic Regression Data                               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>lynx                  </td><td>Annual Canadian Lynx trappings 1821-1934                         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>mdeaths (UKLungDeaths)</td><td>Monthly Deaths from Lung Diseases in the UK                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>morley                </td><td>Michelson Speed of Light Data                                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>mtcars                </td><td>Motor Trend Car Road Tests                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>nhtemp                </td><td>Average Yearly Temperatures in New Haven                         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>nottem                </td><td>Average Monthly Temperatures at Nottingham, 1920-1939            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>npk                   </td><td>Classical N, P, K Factorial Experiment                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>occupationalStatus    </td><td>Occupational Status of Fathers and their Sons                    </td></tr>\n",
       "\t<tr><td>datasets   </td><td>precip                </td><td>Annual Precipitation in US Cities                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>presidents            </td><td>Quarterly Approval Ratings of US Presidents                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>pressure              </td><td>Vapor Pressure of Mercury as a Function of Temperature           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>quakes                </td><td>Locations of Earthquakes off Fiji                                </td></tr>\n",
       "\t<tr><td>datasets   </td><td>randu                 </td><td>Random Numbers from Congruential Generator RANDU                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>rivers                </td><td>Lengths of Major North American Rivers                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>rock                  </td><td>Measurements on Petroleum Rock Samples                           </td></tr>\n",
       "\t<tr><td>datasets   </td><td>sleep                 </td><td>Student's Sleep Data                                             </td></tr>\n",
       "\t<tr><td>datasets   </td><td>stack.loss (stackloss)</td><td>Brownlee's Stack Loss Plant Data                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>stack.x (stackloss)   </td><td>Brownlee's Stack Loss Plant Data                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>stackloss             </td><td>Brownlee's Stack Loss Plant Data                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.abb (state)     </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.area (state)    </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.center (state)  </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.division (state)</td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.name (state)    </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.region (state)  </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>state.x77 (state)     </td><td>US State Facts and Figures                                       </td></tr>\n",
       "\t<tr><td>datasets   </td><td>sunspot.month         </td><td>Monthly Sunspot Data, from 1749 to \"Present\"                     </td></tr>\n",
       "\t<tr><td>datasets   </td><td>sunspot.year          </td><td>Yearly Sunspot Data, 1700-1988                                   </td></tr>\n",
       "\t<tr><td>datasets   </td><td>sunspots              </td><td>Monthly Sunspot Numbers, 1749-1983                               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>swiss                 </td><td>Swiss Fertility and Socioeconomic Indicators (1888) Data         </td></tr>\n",
       "\t<tr><td>datasets   </td><td>treering              </td><td>Yearly Treering Data, -6000-1979                                 </td></tr>\n",
       "\t<tr><td>datasets   </td><td>trees                 </td><td>Diameter, Height and Volume for Black Cherry Trees               </td></tr>\n",
       "\t<tr><td>datasets   </td><td>uspop                 </td><td>Populations Recorded by the US Census                            </td></tr>\n",
       "\t<tr><td>datasets   </td><td>volcano               </td><td>Topographic Information on Auckland's Maunga Whau Volcano        </td></tr>\n",
       "\t<tr><td>datasets   </td><td>warpbreaks            </td><td>The Number of Breaks in Yarn during Weaving                      </td></tr>\n",
       "\t<tr><td>datasets   </td><td>women                 </td><td>Average Heights and Weights for American Women                   </td></tr>\n",
       "</tbody>\n",
       "</table>\n",
       "\n",
       "<p>Use ‘data(package = .packages(all.available = TRUE))’\n",
       "to list the data sets in all *available* packages.</p>"
      ],
      "text/plain": [
       "Data sets in package ‘datasets’:\n",
       "\n",
       "AirPassengers           Monthly Airline Passenger Numbers 1949-1960\n",
       "BJsales                 Sales Data with Leading Indicator\n",
       "BJsales.lead (BJsales)\n",
       "                        Sales Data with Leading Indicator\n",
       "BOD                     Biochemical Oxygen Demand\n",
       "CO2                     Carbon Dioxide Uptake in Grass Plants\n",
       "ChickWeight             Weight versus age of chicks on different diets\n",
       "DNase                   Elisa assay of DNase\n",
       "EuStockMarkets          Daily Closing Prices of Major European Stock\n",
       "                        Indices, 1991-1998\n",
       "Formaldehyde            Determination of Formaldehyde\n",
       "HairEyeColor            Hair and Eye Color of Statistics Students\n",
       "Harman23.cor            Harman Example 2.3\n",
       "Harman74.cor            Harman Example 7.4\n",
       "Indometh                Pharmacokinetics of Indomethacin\n",
       "InsectSprays            Effectiveness of Insect Sprays\n",
       "JohnsonJohnson          Quarterly Earnings per Johnson & Johnson Share\n",
       "LakeHuron               Level of Lake Huron 1875-1972\n",
       "LifeCycleSavings        Intercountry Life-Cycle Savings Data\n",
       "Loblolly                Growth of Loblolly pine trees\n",
       "Nile                    Flow of the River Nile\n",
       "Orange                  Growth of Orange Trees\n",
       "OrchardSprays           Potency of Orchard Sprays\n",
       "PlantGrowth             Results from an Experiment on Plant Growth\n",
       "Puromycin               Reaction Velocity of an Enzymatic Reaction\n",
       "Seatbelts               Road Casualties in Great Britain 1969-84\n",
       "Theoph                  Pharmacokinetics of Theophylline\n",
       "Titanic                 Survival of passengers on the Titanic\n",
       "ToothGrowth             The Effect of Vitamin C on Tooth Growth in\n",
       "                        Guinea Pigs\n",
       "UCBAdmissions           Student Admissions at UC Berkeley\n",
       "UKDriverDeaths          Road Casualties in Great Britain 1969-84\n",
       "UKgas                   UK Quarterly Gas Consumption\n",
       "USAccDeaths             Accidental Deaths in the US 1973-1978\n",
       "USArrests               Violent Crime Rates by US State\n",
       "USJudgeRatings          Lawyers' Ratings of State Judges in the US\n",
       "                        Superior Court\n",
       "USPersonalExpenditure   Personal Expenditure Data\n",
       "UScitiesD               Distances Between European Cities and Between\n",
       "                        US Cities\n",
       "VADeaths                Death Rates in Virginia (1940)\n",
       "WWWusage                Internet Usage per Minute\n",
       "WorldPhones             The World's Telephones\n",
       "ability.cov             Ability and Intelligence Tests\n",
       "airmiles                Passenger Miles on Commercial US Airlines,\n",
       "                        1937-1960\n",
       "airquality              New York Air Quality Measurements\n",
       "anscombe                Anscombe's Quartet of 'Identical' Simple Linear\n",
       "                        Regressions\n",
       "attenu                  The Joyner-Boore Attenuation Data\n",
       "attitude                The Chatterjee-Price Attitude Data\n",
       "austres                 Quarterly Time Series of the Number of\n",
       "                        Australian Residents\n",
       "beaver1 (beavers)       Body Temperature Series of Two Beavers\n",
       "beaver2 (beavers)       Body Temperature Series of Two Beavers\n",
       "cars                    Speed and Stopping Distances of Cars\n",
       "chickwts                Chicken Weights by Feed Type\n",
       "co2                     Mauna Loa Atmospheric CO2 Concentration\n",
       "crimtab                 Student's 3000 Criminals Data\n",
       "discoveries             Yearly Numbers of Important Discoveries\n",
       "esoph                   Smoking, Alcohol and (O)esophageal Cancer\n",
       "euro                    Conversion Rates of Euro Currencies\n",
       "euro.cross (euro)       Conversion Rates of Euro Currencies\n",
       "eurodist                Distances Between European Cities and Between\n",
       "                        US Cities\n",
       "faithful                Old Faithful Geyser Data\n",
       "fdeaths (UKLungDeaths)\n",
       "                        Monthly Deaths from Lung Diseases in the UK\n",
       "freeny                  Freeny's Revenue Data\n",
       "freeny.x (freeny)       Freeny's Revenue Data\n",
       "freeny.y (freeny)       Freeny's Revenue Data\n",
       "infert                  Infertility after Spontaneous and Induced\n",
       "                        Abortion\n",
       "iris                    Edgar Anderson's Iris Data\n",
       "iris3                   Edgar Anderson's Iris Data\n",
       "islands                 Areas of the World's Major Landmasses\n",
       "ldeaths (UKLungDeaths)\n",
       "                        Monthly Deaths from Lung Diseases in the UK\n",
       "lh                      Luteinizing Hormone in Blood Samples\n",
       "longley                 Longley's Economic Regression Data\n",
       "lynx                    Annual Canadian Lynx trappings 1821-1934\n",
       "mdeaths (UKLungDeaths)\n",
       "                        Monthly Deaths from Lung Diseases in the UK\n",
       "morley                  Michelson Speed of Light Data\n",
       "mtcars                  Motor Trend Car Road Tests\n",
       "nhtemp                  Average Yearly Temperatures in New Haven\n",
       "nottem                  Average Monthly Temperatures at Nottingham,\n",
       "                        1920-1939\n",
       "npk                     Classical N, P, K Factorial Experiment\n",
       "occupationalStatus      Occupational Status of Fathers and their Sons\n",
       "precip                  Annual Precipitation in US Cities\n",
       "presidents              Quarterly Approval Ratings of US Presidents\n",
       "pressure                Vapor Pressure of Mercury as a Function of\n",
       "                        Temperature\n",
       "quakes                  Locations of Earthquakes off Fiji\n",
       "randu                   Random Numbers from Congruential Generator\n",
       "                        RANDU\n",
       "rivers                  Lengths of Major North American Rivers\n",
       "rock                    Measurements on Petroleum Rock Samples\n",
       "sleep                   Student's Sleep Data\n",
       "stack.loss (stackloss)\n",
       "                        Brownlee's Stack Loss Plant Data\n",
       "stack.x (stackloss)     Brownlee's Stack Loss Plant Data\n",
       "stackloss               Brownlee's Stack Loss Plant Data\n",
       "state.abb (state)       US State Facts and Figures\n",
       "state.area (state)      US State Facts and Figures\n",
       "state.center (state)    US State Facts and Figures\n",
       "state.division (state)\n",
       "                        US State Facts and Figures\n",
       "state.name (state)      US State Facts and Figures\n",
       "state.region (state)    US State Facts and Figures\n",
       "state.x77 (state)       US State Facts and Figures\n",
       "sunspot.month           Monthly Sunspot Data, from 1749 to \"Present\"\n",
       "sunspot.year            Yearly Sunspot Data, 1700-1988\n",
       "sunspots                Monthly Sunspot Numbers, 1749-1983\n",
       "swiss                   Swiss Fertility and Socioeconomic Indicators\n",
       "                        (1888) Data\n",
       "treering                Yearly Treering Data, -6000-1979\n",
       "trees                   Diameter, Height and Volume for Black Cherry\n",
       "                        Trees\n",
       "uspop                   Populations Recorded by the US Census\n",
       "volcano                 Topographic Information on Auckland's Maunga\n",
       "                        Whau Volcano\n",
       "warpbreaks              The Number of Breaks in Yarn during Weaving\n",
       "women                   Average Heights and Weights for American Women\n",
       "Data sets in package ‘dplyr’:\n",
       "\n",
       "band_instruments        Band membership\n",
       "band_instruments2       Band membership\n",
       "band_members            Band membership\n",
       "starwars                Starwars characters\n",
       "storms                  Storm tracks data\n",
       "Data sets in package ‘fpp3’:\n",
       "\n",
       "aus_airpassengers       Air Transport Passengers Australia\n",
       "aus_arrivals            International Arrivals to Australia\n",
       "boston_marathon         Boston marathon winning times since 1897\n",
       "canadian_gas            Monthly Canadian gas production\n",
       "guinea_rice             Rice production (Guinea)\n",
       "us_change               Percentage changes in economic variables in the\n",
       "                        USA.\n",
       "us_employment           US monthly employment data\n",
       "us_gasoline             US finished motor gasoline product supplied.\n",
       "Data sets in package ‘ggplot2’:\n",
       "\n",
       "diamonds                Prices of over 50,000 round cut diamonds\n",
       "economics               US economic time series\n",
       "economics_long          US economic time series\n",
       "faithfuld               2d density estimate of Old Faithful data\n",
       "luv_colours             'colors()' in Luv space\n",
       "midwest                 Midwest demographics\n",
       "mpg                     Fuel economy data from 1999 to 2008 for 38\n",
       "                        popular models of cars\n",
       "msleep                  An updated and expanded version of the mammals\n",
       "                        sleep dataset\n",
       "presidential            Terms of 11 presidents from Eisenhower to Obama\n",
       "seals                   Vector field of seal movements\n",
       "txhousing               Housing sales in TX\n",
       "Data sets in package ‘lubridate’:\n",
       "\n",
       "lakers                  Lakers 2008-2009 basketball data set\n",
       "Data sets in package ‘tidyr’:\n",
       "\n",
       "billboard               Song rankings for billboard top 100 in the year\n",
       "                        2000\n",
       "construction            Completed construction in the US in 2018\n",
       "fish_encounters         Fish encounters\n",
       "population              World Health Organization TB data\n",
       "relig_income            Pew religion and income survey\n",
       "smiths                  Some data about the Smith family\n",
       "table1                  Example tabular representations\n",
       "table2                  Example tabular representations\n",
       "table3                  Example tabular representations\n",
       "table4a                 Example tabular representations\n",
       "table4b                 Example tabular representations\n",
       "table5                  Example tabular representations\n",
       "us_rent_income          US rent and income data\n",
       "who                     World Health Organization TB data\n",
       "world_bank_pop          Population data from the world bank\n",
       "Data sets in package ‘tsibble’:\n",
       "\n",
       "pedestrian              Pedestrian counts in the city of Melbourne\n",
       "tourism                 Australian domestic overnight trips\n",
       "Data sets in package ‘tsibbledata’:\n",
       "\n",
       "PBS                     Monthly Medicare Australia prescription data\n",
       "ansett                  Passenger numbers on Ansett airline flights\n",
       "aus_livestock           Australian livestock slaughter\n",
       "aus_production          Quarterly production of selected commodities in\n",
       "                        Australia.\n",
       "aus_retail              Australian retail trade turnover\n",
       "gafa_stock              GAFA stock prices\n",
       "global_economy          Global economic indicators\n",
       "hh_budget               Household budget characteristics\n",
       "nyc_bikes               NYC Citi Bike trips\n",
       "olympic_running         Fastest running times for Olympic races\n",
       "pelt                    Pelt trading records\n",
       "vic_elec                Half-hourly electricity demand for Victoria,\n",
       "                        Australia\n",
       "\n",
       "Use ‘data(package = .packages(all.available = TRUE))’\n",
       "to list the data sets in all *available* packages."
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "data()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [],
   "source": [
    "readr::write_csv(as_tibble(fma::sheep), 'data/fma/sheep.csv')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [],
   "source": [
    "readr::write_csv(as_tibble(fma::bicoal), 'data/fma/bicoal.csv')"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "4.0.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 4
}