code: def test_bin_vector_num_expr():
      expr = ast.BinVectorNumExpr(
          ast.VectorVal([ast.NumVal(1), ast.NumVal(2)]),
          ast.NumVal(1),
          ast.BinNumOpType.MUL,
      )
  
      expected_code = """
  score <- function(input) {
      return(c(1.0, 2.0) * 1.0)
  }
  """
  
      interpreter = RInterpreter()
      assert_code_equal(interpreter.interpret(expr), expected_code)
  
imports: from itertools import product
  import pytest
  from m2cgen import ast
  from m2cgen.interpreters import RInterpreter
  from tests.utils import assert_code_equal
label_desc: Use image node_id 9 for calling a global function with example usage: test_bin_vector_num_expr() without return types