anRpackage/R/choose_initial_car.R

choose_initial_car <-
function(seg){
    
    test <- initial_fleet %>% filter(segment==seg)
    return(test[sample(1:dim(test)[1],1,prob = test$number),2:3])
    
  }
Phalacrocorax-gaimardi/phevmicrosimr documentation built on June 8, 2022, 3:27 p.m.