move ex4.r