การแบ่งชุดข้อมูลออกเป็นสองส่วน

# Establish two sets of indices to split the dataset
N <- nrow(gcbs)
indices <- seq(1, ___)
indices_EFA <- sample(indices, floor((.5*___)))
indices_CFA <- indices[!(indices %in% ___)]

# Use those indices to split the dataset into halves for your EFA and CFA
gcbs_EFA <- gcbs[___, ]
gcbs_CFA <- gcbs[___, ]