precision <-
function(t) {
  f  <- t[1,1]/(t[1,1]+t[1,2])
return (f)
}