Skip to content

Latest commit

 

History

History
79 lines (54 loc) · 2.71 KB

README.md

File metadata and controls

79 lines (54 loc) · 2.71 KB
Raw

R-AirBox

R package for AirBox data analysis

Motivation

Air pollution has become an deteriorating environmental problem in the past decades, when the world focus its development on industry without enough environmental protection. Hence, for efficiently monitoring nearby air quality, LASS (Local Aware Sensing System) developed a low-cost air quality monitoring sensor with small volume, but with proper accuracy and reliability. Since a package to analyze datasets collected by the low-cost air quality sensors, we started to write the package to further interpret the meanings behind the collected data.

Installation

Installation of airbox from GitHub is easy using the devtools package. 

require(devtools)
install_github("cclljj/R-AirBox")

Description

airbox is designed to analyze air quality data from low cost air quality sensors mainly as “airbox”. The main pollution that could be analyzed is the particle matters having aerodynamic diameters less than 2.5 μm, aka, PM2.5.
airbox can get sample data of airbox, analyze temporal distribution of PM2.5, find neighbor devices of selected device, discern anomaly within selected area, etc.

Prerequisites

Here are the packages users will need to launch functions of airbox:
purr qboxplot magick geosphere ggmap

Code Example

  • To get sample data within the package 
mydata <- getData(data = "2017-01")
  • To get online lastest real time 5 minute air quality data 
getLatestData(Source = 2, raw.data = FALSE)
  • To know basic information of the dataset (including the states and the measurement length of online devices)
mydata <- getData(data = "2017-01")
info(mydata = mydata)
  • To know the distribution of PM2.5 distribution during days of week and hours in a day
mydata <- getData(data = ‘2017-01’)
week_day(mydata = mydata)
  • To draw a map indicating the neighbor devices within the selected distance of an entered device
mydata <- getData(data = ‘2017-01’)
neighbor(mydata = mydata, id = '74DA388FF60A', dist = 3000, unit = 'm', zoom = 13)
  • To download the animated distribution chart that shows the report of each airbox devices’ PM2.5 concentration from the past 24 hours from the internet.
animation(w = 450, h = 300)
  • To know whether there is a spatial anomaly in the entered device within the certain distance and at the certain time.
spatial_anomaly(id = '74DA3895C392', time = '2017-02-24 10:10:30', dist = 3000 , unit = 'm', zoom = 13)
  • To know whether there is a temporal anomaly in the entered device in the certain time entered.
temporal_anomaly(id = '74DA3895C392', time = '2017-02-24 10:10:30')

License

This package is licensed under MIT.