在R中生成数据

我编写了一个函数，生成供应，它生成一些产品到商店的交付。也就是说，该函数通过创建一个包含两列的文本文件来工作：一个月的哪一天（或一周，十年）和产品的价值，使用随机数生成器，使不同日期的产品值不同。功能参数：文件名、位置、最大值和最小值、天数。问题是，我使用此功能创建向商店发货和销售的数据，我的销售额超过了发货量。我试图以某种方式通过最大和最小参数对其进行配置，但没有成功。我怎样才能解决这个问题？ 以下是代码：

generate.supply<-  function(way='',
                            file.name='Supply',
                            days=7,
                            min=100,
                            max=140,
                            goods='Milk, packaging'){

  #creating a table from a single column with a length of days
  tabl<-data.frame('Day'=1:days)
  #use the colnames()function to create a column header
  #adding columns for each product
  for(i in 1:length(goods)){
    tabl[i+1]<-sample(x=min[i]:max[i], size = days)
    colnames(x=tabl)[i+1]=goods[i]
  }
 #write this table to a file with the extension txt
  write.table(
    x=tabl,
    file= paste0(way,file.name),
    col.names = TRUE,
    row.names = FALSE
  )
 return(tabl) 
}
generate.supply(way = "", file.name= 'Shop1_in_K',days=7,goods = c('Cottage cheese, pcs','Kefir, pcs', 'Sour cream, pcs'),min=c(85,100,110),max=c(110,120,130))# generating delivery
generate.supply(way = "", file.name= 'Shop1_out_K',days=7,goods = c('Cottage cheese, pcs','Kefir, pcs', 'Sour cream, pcs'),min=c(85,100,110),max=c(105,119,125))# generating sales

---

generate.supply一个快速而丑陋的解决方案。您必须知道每天的最大值

generate.supply一个快速而丑陋的解决方案。您必须知道每天的最大值

generate.supply如何使用交货的最大价值作为最大价值销售的输入？您的意思是：
generate.supply（way=”“，file.name='Shop1_out_K'，days=7，goods=c（'schoot cheese，pcs'，'Kefir，pcs'，'Sour cream，pcs'），min=c（85100110），**max=c（110120130）**）？
如果这是你的意思，那么使用交货的最大价值作为最大价值销售的输入是无效的。你的意思是：
generate.supply（way=），file.name='Shop1\u out\u K'，days=7，goods=c（‘白干酪，pcs’、‘凯菲尔，pcs’、‘酸奶油，pcs’），min=c（85100110），**max=c（110120130）**）？
如果这是你的意思，它不起作用，请你解释一下这个表达式：
如果（！is.null（deliver））{tabl不幸的是，它工作错误。你有什么想法吗？怎么了？你能解释你的问题吗？你能解释一下这个表达式：
如果（！is.null（deliver））{tabl不幸的是，它工作错误。你有什么想法吗？怎么了？你能解释你的问题吗？