Create calRandIndex.R