UPDATE: Code now works for unlimitted amounts of months and now calculates all values as requested.

Dear Morteza Shabestari ,

i would start this task by identifying negative values in a row:

data

UPDATE: Code now works for unlimitted amounts of months and now calculates all values as requested.

Dear Morteza Shabestari ,

i would start this task by identifying negative values in a row:

data

Hello Morteza Shabestari ,

as I see, there is a lot of progress regarding your SPI issue.

The source of Sven Greving is great!

If you want to get into dplyr, which I highly recommend for data wrangling, you could also try this grammar.

(before you have to install with install.packages("dplyr"), same for "tidyr", as well as library(dplyr) and library(tidyr)

#

D1 =0, "H", "L"),

group=as.numeric(ifelse(LH == "L"&lead(LH) == "H", Month, "")))

D3% fill(group, .direction = "up")

#

D % filter(Value%

group_by(group) %>%

summarise(event = first(group),

severity = sum(Value),

duration = length(Value),

peak = max(Value)) %>% filter(duration >=2) %>% select(-group)

#

D #should give output as attached as figure (example)

#

HTH, Marian

If you want to cover the visual aspect, I think some of these items were added by using an image editor like Paint or Photoshop.