R/chengeMyNeighbour_ToTheLeft_IntoFALSE_ifIamTRUE.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Convert TRUE,TRUE cases embedded in any boolean into TRUE, FALSE
#' 
#' Take boolean vector of any length and convert any two adjacent TRUE, TRUE cases into FALSE,TRUE
#' 
#' @param boolean_vec Boolean vector to be transformed
#' @return Transformed boolean vector with any embedded TRUE,TRUE cases changed to FALSE,TRUE
#' @export   

chengeMyNeighbour_ToTheLeft_IntoFALSE_ifIamTRUE = function(boolean_vec){
  index_duplexes =  create.duplexes(length(boolean_vec))
  for(duplex in 1:nrow(index_duplexes)){
    boolean_vec[index_duplexes[duplex,]] = transformBooleanIntoAnotherBoolean(boolean_vec = boolean_vec[index_duplexes[duplex,]],
                                                                              mode = list(c(T,T),c(F,T)))
  }
  boolean_vec
}