Tried to understand the marix inverson as well <<- function