Update inverse.R