[R] program

[kafi dano]

Dear Sir.
I need your to help me to correct the attached R-code. 

when I apply this code give me the bad result 


Attached the program by using R

Thank you 









 
Kafi Dano Pati
Ph.D candidate ( mathematics/statistics)
Department of mathematical Science/ faculty of Science
University Technology Malaysia
81310 UTM, Johor Bahru, Johor, Malaysia
IC. NO. 201202F10234
Matric No. PS113113
HP. No. 00601117517559
E-mail: kafi_dano at yahoo.com
supervisor- Assoc. Prof. Robiah Binti Adnan