# NOT RUN {
HpkRtDur <- HPK_rt_dur(hpk_flow_cg)
## to extract the time-series of one metric withouth missing value
pk_rtn <- HpkRtDur[na.omit(HpkRtDur$pk_rtn),c("location_id","datetime","pk_rtn")]
# }
Run the code above in your browser using DataLab