modify makedatalinearlong.R