README.md

# basicr


## Description

Basic information from a tbl_friendlyts data.frame:

- Mean, standard-deviation, IQR. min, max,... on different groups: year, month, weekday, hour, minute, second.
- Timeseries of basic information.
- L-moments.
- Plots.


## Installation

```R
library("devtools")
devtools::install_git("https://git.nilu.no/rdiagnosis/basicr.git")
```
## Usage

### Basic analysis on 'weather' from 'nycflights13' package.

#### get dataset
```R
#install.packages("nycflights13")
library(nycflights13)
data(weather)

# There are some duplicated rows, I assume there were a maximum of 2 stations.
varnames <- setdiff(names(weather), c("year", "month", "day", "hour","time_hour"))

dup <- weather %>% select('origin':'hour') %>% duplicated %>% as.numeric

# keep time_hour as the only column related to date and time
tmp  <- weather %>% mutate(dup=dup) %>% select('time_hour','dup',varnames)

tmp <- tmp %>%
  tidyr::gather('variable', 'value', -c('dup','origin','time_hour')) %>%
  tidyr::unite('var_tmp', 'origin','dup','variable') %>%
  tidyr::spread('var_tmp', 'value')

```

#### 'weather' as friendlyts

```R
# 'weather' as friendlyts

devtools::install_git("https://git.nilu.no/rfriendlyts/friendlyts.git")

tmp <- friendlyts::friendlyts(df=tmp,date_col="time_hour",date_type="posixlt",tzone="EST")

```

#### Basic analysis.
```R
names(tmp)

# Relative humidity
res <- basicr::basic_info(df=tmp,target="EWR_0_humid")
res

res <- basicr::basic_info(df=tmp,target="EWR_0_humid",group="YEAR")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_humid",group="YEAR")

res <- basicr::basic_info(df=tmp,target="EWR_0_humid",group="MONTH")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_humid",group="MONTH")

res <- basicr::basic_info(df=tmp,target="NEWR_0_humidO2_7",group="WDAY")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_humid",group="WDAY")

res <- basicr::basic_info(df=tmp,target="EWR_0_humid",group="HOUR")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_humid",group="HOUR")

# temperature
res <- basicr::basic_info(df=tmp,target="EWR_0_temp")
res

res <- basicr::basic_info(df=tmp,target="EWR_0_temp",group="YEAR")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_temp",group="YEAR")

res <- basicr::basic_info(df=tmp,target="EWR_0_temp",group="MONTH")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_temp",group="MONTH")

res <- basicr::basic_info(df=tmp,target="EWR_0_temp",group="WDAY")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_temp",group="WDAY")

res <- basicr::basic_info(df=tmp,target="EWR_0_temp",group="HOUR")
res
basicr::plot_tbl_basic(df=tmp,target="EWR_0_temp",group="HOUR")

```