[((Subscript[R, init]^T)(-(Subscript[R, init]^T))*(Subscript[T, init])01)]