Changed some. Start fitting model with given filesize separately
added fncs.R
made some changes to 2 Rscripts