my Test R prog