From be187e37f1652d914e8bbf46494eca248e937f28 Mon Sep 17 00:00:00 2001 From: pvictor Date: Wed, 14 Jun 2023 11:40:03 +0200 Subject: [PATCH] added example data --- .gitignore | 1 + R/data.R | 31 +++++++++ data-raw/eco2mix.R | 131 +++++++++++++++++++++++++++++++++++++ data-raw/life_expectancy.R | 65 ++++++++++++++++++ data-raw/temperature.R | 63 ++++++++++++++++++ data/eco2mix.rda | Bin 0 -> 5192 bytes data/life_expec.rda | Bin 0 -> 1328 bytes data/temperatures.rda | Bin 0 -> 2744 bytes man/eco2mix.Rd | 19 ++++++ man/life_expec.Rd | 19 ++++++ man/temperatures.Rd | 19 ++++++ 11 files changed, 348 insertions(+) create mode 100644 data-raw/eco2mix.R create mode 100644 data-raw/life_expectancy.R create mode 100644 data-raw/temperature.R create mode 100644 data/eco2mix.rda create mode 100644 data/life_expec.rda create mode 100644 data/temperatures.rda create mode 100644 man/eco2mix.Rd create mode 100644 man/life_expec.Rd create mode 100644 man/temperatures.Rd diff --git a/.gitignore b/.gitignore index a5d36f2..6236f0e 100644 --- a/.gitignore +++ b/.gitignore @@ -6,3 +6,4 @@ inst/doc data-raw/*.csv node_modules docs +data-raw/inputs/ diff --git a/R/data.R b/R/data.R index bf924bf..4b1e973 100644 --- a/R/data.R +++ b/R/data.R @@ -58,3 +58,34 @@ #' } #' @source Wikipedia (\url{https://fr.wikipedia.org/wiki/Climat_de_Paris}) "climate_paris" + + +#' @title eco2mix data +#' +#' @description The dataset contains data about electricity consumption and production in France between 2012 and 2022. +#' +#' @format A data frame with 3,033 observations and 3 variables. +#' +#' @source Rte (Réseau et transport d'électricité) (\url{https://www.rte-france.com/eco2mix/} and \url{https://opendata.reseaux-energies.fr/}) +"eco2mix" + + +#' @title Temperature data +#' +#' @description The dataset contains data about temperatures in France between 2018 and 2022. +#' +#' @format A data frame with 365 observations and 6 variables. +#' +#' @source Enedis (\url{https://data.enedis.fr/explore/dataset/donnees-de-temperature-et-de-pseudo-rayonnement/}) +"temperatures" + + +#' @title Life expectancy data +#' +#' @description The dataset contains data about life expectancy in 1972 and 2007 for 10 countries. +#' +#' @format A data frame with 10 observations and 4 variables. +#' +#' @source gapminder package (\url{https://jennybc.github.io/gapminder/} and \url{https://www.gapminder.org/data/}) +"life_expec" + diff --git a/data-raw/eco2mix.R b/data-raw/eco2mix.R new file mode 100644 index 0000000..db356e2 --- /dev/null +++ b/data-raw/eco2mix.R @@ -0,0 +1,131 @@ +# ------------------------------------------------------------------------ +# +# eCO2mix data +# https://www.rte-france.com/eco2mix +# +# ------------------------------------------------------------------------ + + +# Packages ---------------------------------------------------------------- + +library(data.table) +library(fasttime) + + +complete <- function(data, vars, fill = list()) { + data <- data[do.call(CJ, c( + lapply( + X = mget(vars), + FUN = function(var) { + if (inherits(var, "factor")) { + if (anyNA(var)) { + factor(c(levels(var), NA_character_), levels = levels(var), ordered = is.ordered(var)) + } else { + factor(levels(var), levels = levels(var), ordered = is.ordered(var)) + } + } else { + unique(var) + } + } + ), + list(sorted = FALSE) + )), on = vars] + if (length(fill) > 0 && all(nzchar(names(fill)))) { + for (fillvar in names(fill)) { + data[is.na(get(fillvar)), (fillvar) := fill[[fillvar]]] + } + } + data[] +} + + + +# Download data ----------------------------------------------------------- + +# Source: https://odre.opendatasoft.com/explore/dataset/eco2mix-national-cons-def/ +# and https://odre.opendatasoft.com/explore/dataset/eco2mix-national-tr + + +# Read & transform data --------------------------------------------------- + +# eco2mix <- fread(file = "data-raw/inputs/eco2mix-national-cons-def.csv") +# eco2mix <- eco2mix[, c(5, 6, 9:17)] +# setnames(eco2mix, c("datetime", "consumption", "fuel", "coal", "gas", "nuclear", "wind", "solar", "hydraulic", "pumping", "bioenergies")) + +eco2mix_tr <- fread(file = "data-raw/inputs/eco2mix-national-tr.csv") +eco2mix_tr <- eco2mix_tr[, c(5, 6, 9:17)] +setnames(eco2mix_tr, c("datetime", "consumption", "fuel", "coal", "gas", "nuclear", "wind", "solar", "hydraulic", "pumping", "bioenergies")) + +eco2mix <- copy(eco2mix_tr) +# eco2mix <- rbind(eco2mix, eco2mix_tr) + +eco2mix <- eco2mix[!is.na(consumption)] +eco2mix[, consumption := NULL] +# eco2mix[, date := as.Date(format(datetime, format = "%Y-%m-%d"))] +# eco2mix[, datetime := NULL] +# setcolorder(eco2mix, "date") +eco2mix <- eco2mix[minute(datetime) != 15] +eco2mix <- eco2mix[minute(datetime) != 45] +eco2mix <- eco2mix[datetime >= (max(datetime) - 24*60*60*7)] +eco2mix <- melt( + data = eco2mix, + id.vars = 1, + variable.name = "source", + value.name = "production", + na.rm = TRUE, + variable.factor = FALSE +) +eco2mix <- eco2mix[, list(production = round(mean(production))), by = list(datetime, source)] +eco2mix[, source := factor( + x = source, + levels = c("pumping", "wind", "solar", "nuclear", "hydraulic", "gas", "coal", "fuel", "bioenergies"), + ordered = TRUE +)] +eco2mix <- complete(eco2mix, c("datetime", "source"), list(production = 0)) +setorder(eco2mix, source, datetime) + +eco2mix[] + + +# Use data ---------------------------------------------------------------- + +setDF(eco2mix) +usethis::use_data(eco2mix, internal = FALSE, overwrite = TRUE, compress = "xz") + + + + + +# Test example ------------------------------------------------------------ + +apex(eco2mix[source == "consumption"], aes(date, production), type = "line") + +# data("eco2mix", package = "apexcharter") +apex(eco2mix, aes(datetime, production, fill = source), type = "area") %>% + ax_chart(animations = list(enabled = FALSE), stacked = TRUE) %>% + ax_stroke(width = 1) %>% + ax_fill(opacity = 1, type = "solid") %>% + ax_tooltip(x = list(format = "dd MMM, HH:mm")) %>% + ax_yaxis(labels = list(formatter = format_num("~", suffix = "MW"))) %>% + ax_colors_manual( + list( + "bioenergies" = "#156956", + "fuel" = "#80549f", + "coal" = "#a68832", + "solar" = "#d66b0d", + "gas" = "#f20809", + "wind" = "#72cbb7", + "hydraulic" = "#2672b0", + "nuclear" = "#e4a701", + "pumping" = "#0e4269" + ) + ) %>% + ax_labs( + title = "Electricity generation by sector in France", + subtitle = "Data from \u00e9CO\u2082mix" + ) + + + + + diff --git a/data-raw/life_expectancy.R b/data-raw/life_expectancy.R new file mode 100644 index 0000000..33138d1 --- /dev/null +++ b/data-raw/life_expectancy.R @@ -0,0 +1,65 @@ + + +# Package ----------------------------------------------------------------- + +library(data.table) +library(gapminder) + + + +# Data -------------------------------------------------------------------- + +life_expec <- as.data.table(gapminder::gapminder) +life_expec <- life_expec[year %in% c(1972, 2007), list(country, year, lifeExp)] + +# life_expec <- life_expec[country %in% sample(unique(country), 10)] +life_expec <- life_expec[country %in% c("Botswana", "Ghana", "Iran", "Liberia", "Malaysia", "Mexico", + "Nigeria", "Pakistan", "Philippines", "Zambia")] +life_expec <- dcast(life_expec, country ~ year, value.var = "lifeExp") +life_expec[, type := fifelse(`1972` > `2007`, "decreased", "increased")] + + + +# Use data ---------------------------------------------------------------- + +setDF(life_expec) +usethis::use_data(life_expec, internal = FALSE, overwrite = TRUE, compress = "xz") + + + + + +# Test example ------------------------------------------------------------ + + +pkgload::load_all() + +apex(life_expec, aes(country, x = `1972`, xend = `2007`), type = "dumbbell") %>% + ax_plotOptions( + bar = bar_opts( + dumbbellColors = list(list("#3d85c6", "#fb6003")) + ) + ) %>% + ax_colors("#BABABA") %>% + ax_labs( + title = "Life expectancy : 1972 vs. 2007", + subtitle = "Data from Gapminder dataset", + x = "Life expectancy at birth, in years" + ) + + + +apex(life_expec, aes(country, x = `1972`, xend = `2007`, group = type), type = "dumbbell") %>% + ax_xaxis(type = "category", categories = unique(life_expec$country)) %>% + ax_plotOptions( + bar = bar_opts( + dumbbellColors = list(list("#3d85c6", "#fb6003"), list("#3d85c6", "#fb6003")) + ) + ) %>% + ax_colors(c("#3d85c6", "#fb6003")) %>% + ax_labs( + title = "Life expectancy : 1972 vs. 2007", + subtitle = "Data from Gapminder dataset", + x = "Life expectancy at birth, in years" + ) + diff --git a/data-raw/temperature.R b/data-raw/temperature.R new file mode 100644 index 0000000..37343b3 --- /dev/null +++ b/data-raw/temperature.R @@ -0,0 +1,63 @@ +# ------------------------------------------------------------------------ +# +# temperature data for France +# https://data.enedis.fr/explore/dataset/donnees-de-temperature-et-de-pseudo-rayonnement +# +# ------------------------------------------------------------------------ + + +# Packages ---------------------------------------------------------------- + +library(data.table) +library(fasttime) + + +# Data -------------------------------------------------------------------- + +temperatures <- fread(file = "data-raw/inputs/donnees-de-temperature-et-de-pseudo-rayonnement.csv") +temperatures <- temperatures[, c(6, 7, 8, 2)] +setnames(temperatures, c("year", "month", "day", "temperature")) +temperatures <- temperatures[year > 2017] +temperatures <- temperatures[, list(temperature = round(mean(temperature, na.rm = TRUE), 1)), by = c("year", "month", "day")] +temperatures <- dcast(data = temperatures, formula = month + day ~ year, value.var = "temperature") +temperatures <- temperatures[!(month == 2 & day == 29)] + +temperatures[, low := do.call(pmin, c(as.list(.SD), na.rm = TRUE)), .SDcols = as.character(2018:2021)] +temperatures[, high := do.call(pmax, c(as.list(.SD), na.rm = TRUE)), .SDcols = as.character(2018:2021)] +temperatures[, average := rowMeans(.SD, na.rm = TRUE), .SDcols = as.character(2018:2021)] +temperatures[, (as.character(2018:2021)) := NULL] +# setnames(temperatures, "2022", "temperature") + +temperatures[, date := as.Date("2022-01-01") + (seq_len(.N) - 1)] +temperatures[, (c("month", "day")) := NULL] +setcolorder(temperatures, "date") + +temperatures[] + + +# Save -------------------------------------------------------------------- + +setDF(temperatures) +usethis::use_data(temperatures, internal = FALSE, overwrite = TRUE, compress = "xz") + + + +# Test example ------------------------------------------------------------ + + +pkgload::load_all() + +apex(temperatures, aes(x = date, ymin = low, ymax = high), type = "rangeArea", serie_name = "Low/High (2018-2021)") %>% + add_line(aes(date, `2023`)) %>% + ax_chart(animations = list(enabled = FALSE)) %>% + ax_yaxis(tickAmount = 7, labels = list(formatter = format_num("~", suffix = "°C"))) %>% + ax_colors(c("#8485854D", "#FF0000")) %>% + ax_stroke(width = c(1, 2)) %>% + ax_fill(opacity = 1, type = "solid") %>% + ax_labs( + title = "Temperatures in 2023 with range from 2018 to 2021", + subtitle = "Data from ENEDIS" + ) + + + diff --git a/data/eco2mix.rda b/data/eco2mix.rda new file mode 100644 index 0000000000000000000000000000000000000000..dc75bc109c2d8caea6889b1ef32e701653337ea5 GIT binary patch literal 5192 zcmV-O6u0aBH+ooF0004LBHlIv03iV!0000G&sfah?~4=*T>vQ&2UJ%gRpOV=m zVLY=O$8P(6bs^RCy)47SJCO}!+CV(|LfzAxZ_~71L6NKeKdbCum8<>qgb-dqs6{s# zj`8dn_hbHd^pTVH;2s?DNt5ajrtLv_F8_D>RxwXsI7Q*A=^6dp61P+ec$a&<7>QiE zj}~SJN`-6EyV(vCB}MMeqS7V#UYSnMd~}PVD){lMk>+Z%PEUiU)x9#m2K;%tx6~J5Dk;rG zR)`)sIrmS%5b}fY!}2j$jJ1Y{i@cjEx9d9#i{yq1rs$X|CbPplT$QLZaQ`?-S9MWK zw+D1Q(6+uQ7w3{j#)C7E_gs`zd*x-)y=wBX%&OD&%C;-UIlm;8T9~!yqcKY$e>qq5 z`y3hb%8&)Urke%uj^M@s=fTIj5BNQ|GESMrt&$MgDTxkb@s3g#6aN`sU-!33Z?jkc z)oXw`xep&=Hpgpzg2i17{4bN0y7TfD_6mnV?h5Pr3*Uv{S`yQ11CAC4^6oL;AOf`Q zhd0y~4sT>hXvsY@t<^@`vouv`AVcYXngV$~fNTYk8@!w7$}p`((2^8wW=^p5ECaVg z;2+{HR)32F@Y6*9BPostldRXJ#m|Pi^d3vF1GbgGY|Lfh2l#-vYxl#$J-U^ zK6EKIT(2pN%^SP1o-$}eqe8Bl;P6=zPwCbrE0VdM>F3l5pk_jTC_7(_E*WqbUR6X% zI(`g-t}VPiwP9;Aq2imNH2(8+7bgOToP*lFu#?|)xqnVXoQHa;D5gfW6X7=Q1lEWX zkPGQ7ypEd~au7`%6RMb%)RB=cHige%pdKk-XQHTS6}7?JTIT)2;j` zK3S=~O9GU;m(mtg)g9rHxO~=wvnb#Q2@k*?^GNb)O07T0;Bb~Wlv5ePx877k7J&A5 zkw1p%ftjrLWU5zNMM>x$kZEll>r=t~LOkg>0tM;Q#wL*p2?YnBIk>w0wet5KaA%GY znung*wk&qC1Q-T3m=BUPm}9wNZvU*x@Z^n*M<~2~w&}Vynj@0siAcc?gYN#j_Q(3Z zes%2VBj7geaydR}b*M%D`b;9>6hCXdA3C&Doc^>z$0n2Ay_Ra6odhJf-r0@<>pQ*> z*DDe0nAleF@U3!}oRCSw>Ncc-=o@(9!0vgSiDOX!}G=?7T64J3wVgSwK zvKKG4pYl|+un?fvwNg6&1_p<6j69|Y#UBo*D zUHOMZq=s07lm1M$!VopF(AfB?U84RfnVx_>HcYV#rAH*7i;>PnJJu#WU7$;tav!e^ z-Gms=M`V7*pVSZp9;sNV-FS`UJ$l-`+}l~2=n8(40pe9d94taKVhuXz<; z?+`q=;sj`{AFaez?nVN8`ANe2tO6(f(mRfArgtada6XzUufllR{XWm13VC8G6PRf` z_Xy_l`%P)5bB_8m?Ij0smm%f13O^sMaxL9g@Io{_K>25crm86dw_jJ&&vD5%SlR9F zUX?L5gEPtgNf3xdoMg*Ign+}-L54%xyW!rof+Rd~&^bRRa5imZ6T;d#2}j{QqEJ++ z)T8@BQ*z-iH>C$of8g`xA@c=g-h2Q6OXE*^`DGYmX=7_7kYg4L9h1K)EEY}js1#Mn^__G0TpJ$Fq%-Wd$F_sbykd7^+!n_dYfrWG zM=6h^N4C(5az}QaCihPRK0M3elQ2y9dBK5gM57$?Hzyp|j*L0#^R<8{^3>NTXgnyR zVcvpcT0d9TE6(G|9K;Oi0=UVikiIIM@YMLTx)j^gX3drqCjNG5N4HoM${Qul5U~GY zQ-W9?>chc>F+jRVQ$_D5GKUtGG3aXStNw!>%u*@J>P}8IyD>rGFDl}M-J)=bCLW8* z$SqfdbR?WB3CCg}Df1$QRMB3AxK^|Z#UQBD!U0iJirp-CXx*O9*v%8R9}0(H)u5Id*~e@fj=82B&V z?pzpBd$R}VnHE$y8*m;>@-V*`-IcA9pno}{5OyC6>6OHE-F%>7H~qR#Jfc9IMNU6< zvo0@Sy~0wmMjqOYeCUaHe%`YP?22f2%-{O(Y_FP5+g+l*$d({^oL1s|3YdBNZhPcf z2AvjLNlA;IY)!#D+?0irlqdy{EW2pru>txRPD^|{kS}iqKS9DS$2#4M&X=LAZ^f*(;L~6d5b{F-gw>&tOva= zSemS-I}t*PuvE#2o0Y-#b;Q_Sc=SS@^t+GV_B(%mYSls}@5t6Uun$}4*j*#;F&arZ zD*Gu08%C4-E!GuD+PyI=jBQqTAqc5D2wCN+16%FDCD&@v*cCRFQRvtYUEhNpHn;Qg zU9SY8P=u}w96F>hI}^aE8@rBk2OFLkX0!X>3)%puEgd-q@+NKuFMcvmehv%g-;eD3 zB%|0ZkIbNdm(6xdxUf^#440Ne7DoknDx!U9p2xLo+*-rCBut%|e})s=$^-R^MtEQ+ zcIKYX0a1C0SpI^`|J38q=uhMX|E>Nc@h?pfDuQ+kKC?MZa9_gb!1RYvE6FVTfxJ*; z#VVUDwnJsaf|`71b*dnTC#wsNg)16B_3!pH#eU72QSg>5q51bd(-YwwvX+$t?IK3t z&2&*Yf>0%$YKdHO1+r+ON{jA4vsc2(?SzIc=&DkB-jSwFC%s?CvmE^cFHQ9)QMFT> zZ9C^(5vK*h-@M9=`W?$G3?}a*h!^YQTthpP;9!S~M#p_Jm3J8uFhgsKRF;(2B*l^Y zB+O_;g#Mms$p@Hq{CbyQg4UD)wUGDLuX>w00ejej zq4`&!+19;~$%5Qw{44aW?OerAZ*1n>yF~+(a4&tmI}FUJEkZ*}uF%4lCUMTz7tghK}r#7KLs4vJYeC?EfC=@i8+Xp?xkGj^ypZPd>nM6HI% zTA8sUwiW_r*CPN}ch<)=AZ;ngzCQnY+N6b?RB_ELvhC-^FxapjiCHs4#kui>`5dXu z?R-hwVl>?3#QO}?*KX6~nTQvZzK?Sbs0w6CvKs5=Sx$65JBLWowij`Z{{5e{N7_){ zs%vK5&yHpVit4qr6lwl-;6PW{v+$JBG;g;qqk?(0G9)_fzi@zE_61h!F}mOMgl z6s9_)U^*J)LsfD<+Euycmr|t#RC?A&5xes_;MsK{&D93Z8S3wi!Eg5c@d%~1TiUTI zFC?$Z8uMTd4F~D^GC>P7D4KpfzUTZulVuYP-42~`%1^+)8KfthoOQghE78sXy`RdM z^hW8HTskucm_QzyS+W(cmLVcyGrZ7Cj}rBsfs)6mia@$>pK)XN_UGboa_YVx(nmfp z){%~MwDv>@15z-5BV#eZDkTj7|Kjm@K&C;cY!;>n@7q+x4cGTkK>uW7y~6ef+n*H+ z2xY50p|S=*4rOBJ;wt_F6HI{Rm``%jnOvZ%;)qxnn8fm--js~rE{?89ICvIt&aY{f zZR5HEC;#55xdJQDbQ2yet{S;@7Z83btQhCiQup#b)9@-1gGC0PMRMXFg$q2l+L-E% z;+|ki6gFt9q2Fd}mP~~bQE0hMciA72$-z#*(GY`Zx1eY%9|0u&3Uy{Jj-$wr8(nt4 zs6$-yeA92R;;_Ml)<9ABdpBcbW^hd!TffEqZRO+^%VAAVz(@CEHs+mVS1}~-a7a0~ z1*{a0j~2j8%{9nR;rc7(vc!*^yPg8w8-Qctb0|OYzzS2hODvd29OxGokiEl95g=Hv5x9-s zeae=B4rTkCp*>-BY)r}Ds7LV*A{!z*#Dri5*><;J#Pl}>p~p8t0_T$J5TBoTnoUf& zwDf5+LBpZ&pb_HVn=!+x&;djNObcXBx4A6W56sOpXf-lEdgv>d^@gfJP5F~|W*76w z;UJ1~XDA~#C^RtEm5agp@EhZ85+AxR_-UFAQ-5!q;`P3UzRqWO;d!omI`}kjsS2r9 ztt$Oxn#7COkFVBc>-j8c02uREF^SD4#%QtmRRP!*w^uuZwSw2rb07GYwJ0~N;j1L! zlfkBdz0pK%3SX|^2spWiPJ}ULy~%`N>y;1z3g~6_7{aTd440BAXpG(4vn1MCWU5?o z{h(y7#9bti8xm`*kcc2`r=F`+gLsvwf(zjWV`-ctGrCz8O?P6Ga+Wd(oA}#Wu>$-J zwWBdsp~1Jh{{I=Bxl7Fj?M9Oz?;EFgKj?3dQHr@0gl7OH@}%h-6Z8{Mol<9jIBp&} z*|A^n=4SAam z!U>PZ*Qwa#4`a~sjS+3#JgxcD7;x33z6^u-l2>mgdf-?T!f98*D41j+J%*HsYX?Q- zErgM3ci)nT^r^+({0VcXWU2om?UWYrXWWZ{7??f%aZE$GZPV4goT#E{SsR^!McJfLKJj)qv4S69&l@C_>`B7SkD|s$jp|Ew(o(p+qxO0vx*^%c+1{*{w zpa8gORYcl{$Xe(OYkn2>?jgVfh^NZ-;-wBm{!L_!XnROEucXV@pmrwq2$7qExC-?V zp=(&M|JHZ}wJYzaE>#>)e*%j=jhc7Ew!K)RO$5RY==vwWdzx{K`C$15B4Uc0>vsX0 zZ(3Ml^U^36dm%*#p3UE*BZt!dvtwjo0@L$i^19ZM2UXoX zVoZFuoNrpofe0woeALH_eyM);_ils9&{FpJueG9_e^8sAoi&yt`VbG<<%h^iC#2OF zAigel1~@Ol-o8mMsE+tVJv5F*ZYHo;>2g^)Dw>dTVLkI88>}UJ`?E|7{1NB6hWQ<- z&kn$%$q`j>He>dnI7g^PF=pJGFh}}IRT87dXEhYh*vJ`zf($Tj1ek1^zfK|Sf&^gP zm>rv5exF)DU&XP`VC`y485VCo7Z_Iim+>dzpJCeUWca!m zyRyf-gWbqJo@UTL)FwTY>bQEx&Q0nPdZ~%dX**RyixRD#5`A&}s{KiIR?a^lJy;ZE zG;*~7&v!0;gN*;*g%KDV=cYPi&D|(}K9q}9#WE8syg#RbjLrrW-EN3q(-_qMe@gv!J;>}CF ziH1uBYsoUq;=buQQt7Iu=9H{%+hmBJ%HcX3 zs*2*m&Q^cn%Y2SaZ-R(r_E03k3YaDPWR4787ny^Gb`4w>N=tFR06v_5PpLO?h+`j1 zUbj}y%50OI9$XUW0QXByug&1wM(v_05cqm!9Z=8%ok&^zA|X4TmT9!dx7qao&v;Mg zWLb?HDgdE-&!}xFci6_fDCxmvF4$_}XlrYGd=U4ZKZk@NE6XufcwaSb> z9-*hIPi53KLfN1FjjmYgBPlzJwMMZBr~I@YU2BqGB{uYn95;+~e1b<~c;clV55N6v z(SYjABhvqh!L1(gAkb)pz(cH6Yybe_%zqOA0i!64-va;@`x~b|Fb#_W000000a;oG CHXQ5# literal 0 HcmV?d00001 diff --git a/data/life_expec.rda b/data/life_expec.rda new file mode 100644 index 0000000000000000000000000000000000000000..728a897e4be7d70a5def711f010e9131b3e856d7 GIT binary patch literal 1328 zcmV-01<(5ZH+ooF0004LBHlIv03iV!0000G&sfah3&;fXT>vQ&2UJ%gRpOV=m zVLY=O$8P(6bs^RCy)47Xr4!eDBUL)JLTMKS-3@SQPfvrhHgjAUtR*bUos2*J5frLG zx{mxB79GTjbSd<&ksXtVP?9`-w`0Q=VfB!o=#_=LZ9tWqu=K5{8=1v+>Js!|U^Xhr z)sdFUyg5xAXWBT0}cW^81DA%jb!DAsNWl&;nx#-8Z! zF}1Xl2;u1ac^pw#a24IAjzp3RmXBEv=tns`3nsYy!`35mdWknjI&~yXBu0uDya#^S zm^CUS2T^Lm7?RsnHs#JB6BPWQ0VirY-5nHLKl2qd?>fT`?CI3t{FkM@ux(-LMYNVG z*4GwcLe(I&_oKWglemWXxHsq-lqMW=@R|31M$`c-SaSWbI4(g0NO$FZJz!Lx^77T@ z0J0V_jJ|+YwIID@CGCU0z6u+}v@I<=c%gGpMc9Ge^yC{fe}h~{nmghm&wJA^vg&Q5 z;eM~?=gc?|6wN*9T)BP>19o~6fINh_xmlqTYjLw*SVNE@`z_o*lJC)nag(Q<|IK}k zeTHKlI=$;B?kn@gNTJuXFPDYRugL8OKft}L$mZMhGPx-$i4mOEq53B&K(kTP8&quM zjh6EGJMoE$SNB4WwDm%e9AC_jt@hSc#^%HT^{c`L%@gtOhH@IbGp@8^Su_#@^PhS$wMk7!?PBCxryi{2 z;Xc>e9ZHIQO{fD2aH4b0rBh6_q+81|Cb!1DFrAfvT6*eQPfQvg@I;-Xj>Y6q05a>o zC%(N&bQz772*%~i`NW_d=NvxE-1;h2_X>Go_`}TQc$Z6JzC2$c>q9%$OmP%ejq&_n z|CWfES9U%UA0Ne$JwEx-H(wl4<(Im5zlamgCr+QUP?L~9)Qh#K*5(C`_;u}4t#2?t zG-uP53d!o$85&Q{$N{_-=whM4teh@%HV3r7eR!7Ht^KBYe_wwf>`Hk5Pm;O9BV6lc zZ6D^W1+Oyn7}8RbqgB82P4^Xl{}q)azCGI$xO4#kp&b%qAd@ciN$Iv|=R&$denty} zv&;M4^`@LBO{T8pog1>sZGHNDxTh{oQhbv8-3=U&K(qrC^5A?(BnIx^athy1tji6} zVYWc{cf4h_u{)r@H?|%;w@3{V)X)I3A#i-SrBOv?Q#&Cs5ZlGTX=jmY2y5o(H~5*g z5PWnN>wO|$;&^G#4XDGa9m?1n`s<3#=7bDcVuCMNh?z_f zV$(T}CTFzauip7eW*MT;F9PjrpeJJU1UxgQzFIBvygMCQN~)R%Wu;XMzdmr&@G%UF zwbr2@hyN*%bhpr^owk{HdeH8p+|lI5a mDIEZ4RsaAR%@HL40gDRB7XSbrJihNfFb#_W000000a;oT`;BJ+ literal 0 HcmV?d00001 diff --git a/data/temperatures.rda b/data/temperatures.rda new file mode 100644 index 0000000000000000000000000000000000000000..37c507bd900e76b3666f1fd5b2899f970fe88802 GIT binary patch literal 2744 zcmV;p3P<(*H+ooF0004LBHlIv03iV!0000G&sfahMZF4pT>vQ&2UJ%gRpOV=m zVLY=O$8P(6bs^RCy)47b0T7~@$sLRx;*u(R=Vuf+RC}}9c4(?vR>fl~6ayq5E^36L zn3dn~8QWZ>{y(o$3NNz*1`K^@^(}_vM!;Gpg`g;3)fLqarICSJpz{kef1 z^;oiuv$QC5;N~RvyHcBXhGCqRQnaT$k( z-2>%Ty-o~O*d4YJ!8)7m7!)EK65iM|C@}l;I;SC}dmJO}$qQq`6Trx1Zti5W1Ld>6 z9wvkP&08(%lY6~`czo>MF_6{a1{Q8UDsbRT>4{GpG^%paz!;~>k|>M@mQjJJ97UCE z7DQO=c7AHFOu%H+qa4s2S#2BHlofUb>knOq(_dE`gYlvKnG61Wj5|r5Zk*A$wRFU* z(ZO2$fAi8-TkYIU_m)tDHJ=zVrGOM-5d&rsT?Wfqo)$kQKNgclPH3A#ZC@FhaFw!Z z2*rq3YwH({EbJ<5RW*ZPU+!g}@=Qi-(iR54nuWpGXe@N0b(||(2K_Z@%XVRmlR?HKZ07R zpo`=`(WItFj-&PY$2Z+Y~gQ571lV@fM|b*k)H_) z5hX<4Hzn_9f!`G)7;bP1Fv8s-?wg|bz(04pl;JHPE=s@v+5ZP$QN|$8ceI{mfkuIM zOf|Y0%FKqnynRZjbWTk0F<04OTL(s0^txx>MnUKhI?^X&A|~CLU4js7e}1Cv_FL6p ztB3D|m6n)<%qj8@)d96=yL2ULRjLx3@4FSyM)B&Lns+B@zsSgP(YVR4L$?sZt zZvY0(oS!ZMKOdluxs>vClACE;tN97Qp8GRU9tTYtWs;C^Dq+_qL6QTZ>(Fka5IwD2 zpPL5OCJiQ|;>N~t*kAXl+a^~FxkSMlk_ciMq*{tV?glQC7WXoVqQN;9ZSq$D)Fo;X zSFtA~c7al|&B$}t8beHwd#6hGgjTXlA3b>l|ooIkfUkMjKLjj$0 z>9i<4w?a{}{#ZnE%=WWH?>&jfz-BK4Yts2Cc?Jhzc5SsFsqoNbq_B|-xg$-{wgbo) zX2NkXqaZuHfb6UfE`0LHcB0nd@@-Oe{7uMD9{k~_=<6s_(<2;~P8|`+MTvB;Nbxh) z|8BzZO^Cs~tAxJWh~k3tFn8`Mp+Vm?>bZsxA<3_2QLYNS)Z*H+-{F250}93Z|W(+gsO+dAp;1(ObAnpe{H>I-vx(I zYen^Wd4mpY5IJK?{Fc#h+zFK^ga3b)kAETNZU?T0OAg$&!W2ZR6_sUTyx(=RGQ4us05Dp%wH~5~>X&If-mA zOo@xlKybvXN~sTh^xC$8t!Y4|nHSUc&H*w(NKDh0Gom0_YRx`Wt32usnRyk26ISMz z;5KAXjNJEqn8VI`DRu2bxkz!=oV8E3_7&FJkNS-HI`m;O<{eQvC4@OJ>ji?=rY#|P zyTAnew$rEWOS!nrb*4Pdn;6#|_-<*5qTCTt+CUsZ1Zo%{fX_ zeuK@D3QE?{tY>BcWDQxty8GuBq-`_&-IjI1#|pq1i7{3pmxb@fX(ZuDyHz{c$hAZg z{dLdS|HArutO>GG&3~ESe_X{NI$O&QG6$`Hi?D))hf6sf@l!NaMrkly3@11p6U@MA z`C&7f2HmsQVkoZEyY(FnbUKh0yfelTS4`fC-nrbk>uNYylwDYLmmBr9Lj?|$yh#A8 z*`D$n=J>v&kWCo?d}N+-F$itCMX#lcI%imhE*cXxkO^74qI~BR4~&Z`^0)9(FLMKs zrb$*@)o9>Vn^q}%N5&Oj+qIn@*`6}lI5U~=v7>@<%fd`Xketm$%CT`WShIsfYB7MC zrDWv`Cg-p2JHM`Y*W6H5Ux(SXI;AK{4NnpC3znI#W{6G5VU+mX0wc07!uEg zPdz!RMPk)~mk@b%53VCeDI)}wQrpno86~>(xSfBX6x@w@UQ})*_qTm>;r!v)Rz5oiu~Cn*M%0bc~@-~aWDE-OPyh)VXNw`QI{CbujpQ_NA*x~fn{y!x_A@8b5x@tYhoQW&i{S!!Fk@iyL=JetA`kClzgDdewsfqOh5a8ReL#InSL%O$3?&4GRambBkauJvK{io(q+5|o`7(81a!yz<_hC} zTtn3vSACb8`Vpw-oMNxHGi`ItG;P|Xm9c?~wsg|$GU$d;hmxrPtFpW2%!Atl0nihJ zhd8#Td9og9qZ%l{h9Ti1of}ORw&YB!Wbs8IV4@s1c3i4aP{eOO>tn%UoIn4=JNiG; z=FjBS?fsH(HE3?1U3%jcxe{L^5nh~C5ia?m&b5m?YjoS@FBdS~M3TSsg84LcJI>JR zCAvd<=8D0?*2>Q3g7F48t{#;k;q^n0TjgZ-shuiqp`dA&m46h)Wj4;Cu$Akyj$Yx1 yuOGj5gN12_R^fX8V~lR#0000#FRi%%0h1NJiva*jRB`z}Fb#_W000000a;pbCq#V! literal 0 HcmV?d00001 diff --git a/man/eco2mix.Rd b/man/eco2mix.Rd new file mode 100644 index 0000000..e58b4be --- /dev/null +++ b/man/eco2mix.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{eco2mix} +\alias{eco2mix} +\title{eco2mix data} +\format{ +A data frame with 3,033 observations and 3 variables. +} +\source{ +Rte (Réseau et transport d'électricité) (\url{https://www.rte-france.com/eco2mix/} and \url{https://opendata.reseaux-energies.fr/}) +} +\usage{ +eco2mix +} +\description{ +The dataset contains data about electricity consumption and production in France between 2012 and 2022. +} +\keyword{datasets} diff --git a/man/life_expec.Rd b/man/life_expec.Rd new file mode 100644 index 0000000..7d43ac7 --- /dev/null +++ b/man/life_expec.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{life_expec} +\alias{life_expec} +\title{Life expectancy data} +\format{ +A data frame with 10 observations and 4 variables. +} +\source{ +gapminder package (\url{https://jennybc.github.io/gapminder/} and \url{https://www.gapminder.org/data/}) +} +\usage{ +life_expec +} +\description{ +The dataset contains data about life expectancy in 1972 and 2007 for 10 countries. +} +\keyword{datasets} diff --git a/man/temperatures.Rd b/man/temperatures.Rd new file mode 100644 index 0000000..7030f9f --- /dev/null +++ b/man/temperatures.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{temperatures} +\alias{temperatures} +\title{Temperature data} +\format{ +A data frame with 365 observations and 6 variables. +} +\source{ +Enedis (\url{https://data.enedis.fr/explore/dataset/donnees-de-temperature-et-de-pseudo-rayonnement/}) +} +\usage{ +temperatures +} +\description{ +The dataset contains data about temperatures in France between 2018 and 2022. +} +\keyword{datasets}