fn builtin_crossprod( args: &[RValue], _: &[(String, RValue)], ) -> Result<RValue, RError>
crossprod(x, y) = t(x) %*% y