Initial file
Initial file
Add first r script of extraction function