Update faimms.R