创建输入向量和数字的函数

函数定义如下：

my_function <- function(vec, num){
  # function code here
}

其中vec为输入的向量，num为输入的数字。 这个函数可以根据需要进行更改和扩展，以实现不同的功能。

例如，以下代码演示如何将向量中的所有元素乘以输入的数字：

my_function <- function(vec, num) {
  vec * num
}

# 测试代码
my_vector <- c(1:5)
my_number <- 2
my_function(my_vector, my_number)
# 输出结果：[1]  2  4  6  8 10

在这个例子中，我们定义了一个名为my_function的函数，将输入的向量vec与输入的数字num相乘。我们首先创建一个向量和一个数字变量，并将它们作为参数传递给函数。这个函数返回一个新的向量，其中所有的元素都乘以了输入的数字。

最后，我们调用我们的函数my_function，并传入my_vector和my_number，并输出了返回的新向量。