bug in episode_calculation

[fieri]

      # HYPO OR HYPER DURATION LENGTH CALCULATION
      hyp_result = hyp_episode[2:length(hyp_episode)] - hyp_episode[1:length(hyp_episode)-1]
      hyp_end_point = which(hyp_result %in% -1) + 1
      hyp_starting_point = which(hyp_result %in% 1) + 1

      if (is_hypo){
            if(gl_by_id_ip[length(gl_by_id_ip)] <= params[[2]]){
              hyp_end_point = c(hyp_end_point, length(hyp_result))    # wrong
              hyp_end_point= sort(hyp_end_point)
            }
            if(gl_by_id_ip[1] <= params[[2]] ) {
              hyp_starting_point = c(hyp_starting_point, 1)
              hyp_starting_point= sort(hyp_starting_point)
            }
      }else{
            if(gl_by_id_ip[length(gl_by_id_ip)] >= params[[3]]){
              hyp_end_point = c(hyp_end_point, length(hyp_result))
              hyp_end_point= sort(hyp_end_point)
            }
            if(gl_by_id_ip[1] >= params[[3]] ) {
              hyp_starting_point = c(hyp_starting_point, 1)
              hyp_starting_point= sort(hyp_starting_point)
            }
      }

      hyp_dur_length = hyp_end_point - hyp_starting_point

[fieri]

      if (is_hypo){
        if(gl_by_id_ip[1] <= params[[2]] ) {
          hyp_starting_point = c(hyp_starting_point, 1)
          hyp_starting_point= sort(hyp_starting_point)
        }
        if(length(hyp_starting_point) > length(hyp_end_point)){
          hyp_end_point = c(hyp_end_point, length(gl_by_id_ip))
        }

      }else{
        if(gl_by_id_ip[1] >= params[[3]] ) {
          hyp_starting_point = c(hyp_starting_point, 1)
          hyp_starting_point= sort(hyp_starting_point)
        }
        if(length(hyp_starting_point) > length(hyp_end_point)){
          hyp_end_point = c(hyp_end_point, length(gl_by_id_ip))
        }
      }

[irinagain]

We finally fixed this on github, I am sorry it took us a while