Function builtin_tcrossprod 

fn builtin_tcrossprod(
    args: &[RValue],
    _: &[(String, RValue)],
) -> Result<RValue, RError>

tcrossprod(x, y) = x %*% t(y)