# NOT RUN {
# before running the function
HPK_SampleData$dateTime <- parse_date_time(HPK_SampleData$dateTime,"mdy HM")
hpk_flow_cln <- HEDA_Tidy(HPK_SampleData, season = c(6,7,8,9))
hpk_flow_cg <- ReversalCount(hpk_flow_cln)
# running the function to clean unqualified change points
hpk_flow_cg <- Clean_position(hpk_flow_cg)
# default value is open to change
hpk_flow_cg <- Clean_position(hpk_flow_cg, alpha2 = 0.3)
# }
Run the code above in your browser using DataLab