KMC.R

Add a bjtest function in 2 dimension.