r scrpting learning with emma