Added AfSIS r code.
Updated R files.