In cesco-lab/Vigie-Chiro_scripts: Predict Distribution Of Chiropter

knitr::opts_chunk$set(echo = TRUE)
source("f_coord_date_weather.r")
# rmarkdown::render("get_weather.rmd",output_file="get_weather")

source("f_coord_date_weather.r")
library(data.table)
library(dplyr)

Open file

Weather data extraction from nc files and saving in rData format

default value of parameters: * firstYear = 1950 * lastYear = last available year * repout = data

nc2rdata()

Assessing reference value of daily weather (temprature mean and

precipitation)

default value of parameters:

* firstYear = 1950
* lastYear = last available year
* repout = data

' @param first_year

' @param last_year

' @param nc_one_file

' @param nc_local

' @param nc_extract

' @param nc_data

' @param nc_rep

' @param file_nc_out

' @param var

' @param dsample_colnames

' @param output

' @param save

' @param fileouput

assess_weather_ref()

d <- gen_import_fread()
dsample <- unique(d[,c("date_format","longitude","latitude")])
dsite <- unique(d[,c("longitude","latitude")])
dsite$site_id <- 1:nrow(dsite)

dsample <- data.table(inner_join(dsample,dsite))

get_sample_weather()

cesco-lab/Vigie-Chiro_scripts documentation built on April 4, 2024, 4:27 a.m.