R/get_coocurence_matrix.R

In MargotBr/SeqAgSorting: Statistical analysis of Sequential Agglomerative Sorting task data (stimulus-oriented analysis and participant-oriented analysis)

get_coocurence_matrix <- function(
  dta.final,
  sep.charact
  ){

  sink(file = "undesired message")
  res.fast <- invisible(
    fast(
      dta.final,
      sep.words = sep.charact,
      graph = FALSE
      )
  )
  sink()
  file.remove("undesired message")

  return(res.fast)

}