New PIMA R file

New Pima R File