concising the Codes in R

I want to turn these codes into one . For every person in my data set, I have 31 probabilities and based on them, I want to know if they migrate by the end of the year or not. These codes work, but I want them to be concise and practical for data with more districts.

ifelse  ((survival1a$district==1)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`1`)),                              ifelse  ((survival1a$district==2)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`2`)),                              ifelse  ((survival1a$district==3)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`3`)),                              ifelse  ((survival1a$district==4)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`4`)),                           ifelse  ((survival1a$district==5)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`5`)),                              ifelse  ((survival1a$district==6)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`6`)),                             ifelse  ((survival1a$district==7)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`7`)),                              ifelse  ((survival1a$district==8)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`8`)),                         ifelse  ((survival1a$district==9)  ,sample(0:30, size=2000, replace=TRUE ,prob= c(Migdata$`9`)),  ...  

https://stackoverflow.com/questions/66629074/concising-the-codes-in-r March 15, 2021 at 04:14AM