##################################################

  demogh <- function(x) {

##################################################

  return(x+1)

} # fin de fonction demogh

##################################################

  findruns <- function(x,k) {

##################################################

  n    <- length(x)
  runs <- NULL

  for (i in 1:(n-k+1)) {
      if (all(x[i:(i+k-1)]==1)) {
          runs <- c(runs,i)
      } # fin si
  } # fin pour i

  return(runs)

} # fin de fonction findruns