# read cuevas station file
path <- system.file('extdata', 'ianigla_cuevas.csv',
package = 'hydrotoolbox')
cuevas <- read_ianigla(path = path)
# get the miss_table
miss_data <- report_miss(x = cuevas, col_name = 'Irradiancia')[[1]]
# apply interpolation function when gap is less than 3 hours
cuevas_interpo <- interpolate(x = cuevas,
col_name = 'Irradiancia',
out_name = 'kin_interpo',
miss_table = miss_data,
threshold = 3)
report_miss(x = cuevas_interpo,
col_name = c('Irradiancia', 'kin_interpo'))
Run the code above in your browser using DataLab