potato <- quefts_crop("potato")
q <- quefts(crop=potato)
fert=cbind(c(0,100), c(0,200), c(0,30))
supply=cbind(50,50,25)
yatt <- 10000
batch(q, supply, fert, yatt, 0.45, 0.4)
batch(q, supply, fert, yatt, 0.45, 0.4, var="gap")
Run the code above in your browser using DataLab