R scripts for circulating endothelial project