Ex4 updated with R
Updated 4