add clustering R scripts