Интернационализация для приложений флэш-памяти

 #Updating my prior respose, I'm sure you want a random number of runs per inning, 
 #based on probability.  I found this program for half an inning, 
 #https://gist.github.com/bayesball/36fba464d294944268f09630aa65ab61
 #I replaced "prob" line with 
prob <- c(27,0,0,0,0,4.3)   # inputs  in parenthesis are (outs, bases on 
 #balls, singles, doubles, triples, home runs) 

#I added the following to the online 1/2 inning program

st <- runs_setup()
R <- replicate(99999, simulate_half_inning(st))  # for complete 9 inning game make 
#number in parenthesis divisible by 9.  I picked 99999
round(prop.table(table(R)), 6)


b<-matrix(R,11111,9)   # this divides the 99999 random innings into 11111 games
hrteam<-apply(b,1,sum)
round(prop.table(table(hrteam)),6)

graph<-round(prop.table(table(hrteam)),6)