#Market Share after one month
Current_state<-c(0.55,0.45)
steps<-1
finalState<-Current_state*disc_trans^steps #using power operator
finalState

#Market Share after two month
Current_state<-c(0.55,0.45)
steps<-2
finalState<-Current_state*disc_trans^steps #using power operator
finalState