Instructions for setting up a git server on a Synology NAS with Diskstation. Specifically, I am using a DS414 with DSM 5.0.
gituser via Diskstation interface (with File Station and WebDAV privilages)git (located at /volume1/git) with read/write access for gituser and admin. This folder will hold all the repos.
This document provides some suggestions and resources for environmental engineers using R. This information is based on my own personal experience of learning and using R.
| require(lubridate) | |
| require(plyr) | |
| require(ggplot2) | |
| theme_set(theme_bw()) | |
| # create random dataset | |
| df <- data.frame(DATETIME = ymd("2000-01-01") + ddays(runif(100)*365*5)) | |
| # compute day/month columns | |
| df <- mutate(df, |
| library(tidyverse) | |
| library(dataRetrieval) | |
| library(rayshader) | |
| # install {av} to render movie | |
| # install.packages("av") | |
| # fetch daily streamflow from USGS NWIS | |
| df_nwis <- readNWISdv(siteNumbers = "01059000", parameterCd = "00060") %>% | |
| renameNWISColumns() %>% |
| import pandas as pd | |
| import csv | |
| colspecs = [(0,11), (12,20), (21,30), (31,35), (36,40), (41,45)] | |
| df = pd.read_fwf('ghcnd-inventory.txt', colspecs=colspecs, header=None, index_col=None) | |
| df.columns = ["ID", "LATITUDE", "LONGITUDE", "ELEMENT", "FIRSTYEAR", "LASTYEAR"] | |
| df.set_index("ID", inplace=True) | |
| df.to_csv('ghcnd-inventory.csv', quoting=csv.QUOTE_NONNUMERIC) |
| [{"datetime":"2018-04-06 16:00:00","elev_ft":3.336,"Qin_ft":0.0113,"rain_ft":0.0058,"evap_ft":0.0005},{"datetime":"2018-04-06 17:00:00","elev_ft":3.3233,"Qin_ft":0.0064,"rain_ft":0.0033,"evap_ft":0.0005},{"datetime":"2018-04-06 18:00:00","elev_ft":3.3146,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-06 19:00:00","elev_ft":3.3026,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-06 20:00:00","elev_ft":3.2902,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-06 21:00:00","elev_ft":3.2968,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-06 22:00:00","elev_ft":3.3003,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-06 23:00:00","elev_ft":3.311,"Qin_ft":0,"rain_ft":0,"evap_ft":0.0005},{"datetime":"2018-04-07 00:00:00","elev_ft":3.2998,"Qin_ft":0.0016,"rain_ft":0.0008,"evap_ft":0.0005},{"datetime":"2018-04-07 01:00:00","elev_ft":3.3023,"Qin_ft":0.0016,"rain_ft":0.0008,"evap_ft":0.0005},{"datetime":"2018-04-07 02:00:00","elev_ft":3.2884,"Qin_ft":0,"ra |
| assign.events <- function(df, datetime.name="DATETIME", value.name="VALUE", interevent=8, threshold=0.1) { | |
| # assigns events to data frame such as storm events or discharge events | |
| require(plyr) | |
| if (!(datetime.name %in% names(df))) { | |
| stop(paste0('Could not find datetime column called ', datetime.name)) | |
| } | |
| if (!(value.name %in% names(df))) { | |
| stop(paste0('Could not find value column called ', value.name)) | |
| } | |
| if (!is.regular(df[, datetime.name])) { |
| // log DHT sensor readings to SD card | |
| #include "DHT.h" | |
| #include <SD.h> | |
| #include <Wire.h> | |
| #include "RTClib.h" | |
| RTC_DS1307 RTC; | |
| // how many milliseconds between grabbing data and logging it. 1000 ms is once a second | |
| #define LOG_INTERVAL 60000 // mills between entries (reduce to take more/faster data) |
| license: mit |
| license: mit |