I have a simple R script that takes a character vector as input and returns a matrix with a half dialle