added scan_2.r, revised function estimate.sd in multi_Scan.r