##Modify the following R script to calculate the factorials of the following 3 numbers

 myfactorial <- function( x ) {
   #add your own code here
     
 } 

 xs = c(3,5,9);
 ys = c(0,0,0);

 for( i in 1:3 ) {
   #... add your code here

 }

## output your result to a csv file

## email your code and file to hong.qin@yahoo.com