diag-character-method function

Create a diagonal matrix from a character vector