Remove multiplicative identity matrix I

Description

Remove multiplicative identity matrix I

Usage

reduce_expr_I(expr)

Arguments

Value

an expression

Examples

modify_math_operators()
reduce_expr_I("A%*%I")
reduce_expr_I("A*I")
reduce_expr_I("I%*%A")
reduce_expr_I("I%*%I")
reduce_expr_I("A%*%CB%*%I%*%D*E")
reduce_expr_I("A%*%((CB%*%I)%*%D)*E")
reduce_expr_I("A%*%C%*%B%*%I%*%I*E")

## Not run: 
reduce_expr_I("t(t(-t(inv(B%*%X)%*%t(t(-t(inv(t(inv(B%*%X)))%*%t(t(t(I)))%*%inv(t(inv(B%*%X))))))%*%inv(B%*%X)))%*%B)")
grep_expr("t(t(-t(inv(B%*%X)%*%t(t(-t(inv(t(inv(B%*%X)))%*%t(t(t(I)))%*%inv(t(inv(B%*%X))))))%*%inv(B%*%X)))%*%B)")

## End(Not run)