# NOT RUN {
# Relative path to raw data
full_path <- system.file('extdata', package = "hydroToolkit")
# Apply function
cuevas <- read_IANIGLA(file = 'Cuevas.csv', path = full_path)
# Get air temperature
cuevas_tair <- cuevas[ , 1:2]
# Create a moving average serie of Tair
Tair_mov <- movAvg(df = cuevas_tair, k = 10, pos = 'izq')
# }
Run the code above in your browser using DataLab