modify gdm.R :calc ci function and cor.table
add gdm for parallel
reset