add getdata_w4.R