Update test.R

linijka2