R/TURN.R

In MoLE: Modeling Language Evolution

TURN <-
function(speakerID, hearerID){
	erosion=world$erosion
	situation= SITUATION(speakerID)
	proposition= PROPOSITION(speakerID, situation)
	prep= PREPARE(speakerID, proposition, situation)
	utterance= PRODUCE(speakerID, prep)
	interpretation= INTERPRET(hearerID, utterance, situation)
	population[[speakerID]]$age = population[[speakerID]]$age + 1
	population[[hearerID]]$age = population[[hearerID]]$age + 1
	population<<-population
	success=SUCCESS(proposition, interpretation, situation)
	FREQUPDATE(speakerID, prep, success)
	FREQUPDATE(hearerID, interpretation, success)
	if(success==1){
		if(erosion==TRUE){EROSION(hearerID, interpretation)}
	}
utterance
}