m <- read.table(row.names=1, header=TRUE, text=
" Assignment Caused by CI Quality Indicator Update Operator Update Description Update
Assignment 0.0 0.0 0.49 0.0 0.0 0.0
Caused by CI 0.0 0.0 0.0 0.0 0.0 0.0
Quality Indicator 0.0 0.75 0.0 0.0 0.0 0.0
Update 0.0 0.0 0.0 0.0 0.0 0.0
Operator Update 0.0 0.0 0.0 0.0 0.0 0.0
Description Update 0.0 0.0 0.0 0.0 0.0 0.0")
m <- read.table(row.names=1, header=TRUE, text=