Create analiza.R