## Not run:
# ##Apply chi-squared based variation reduction method
# chi_corrected_data <- chicorrect(nipt_sample = gc_LOESS_corrected_sample,
# nipt_control_group = subset_loess_corrected_control_group)
# ##Extract sample and control group
# loess_chi_corrected_sample <- chi_corrected_data$sample
# subset_loess_chi_corrected_control_group <- chi_corrected_data$control_group
# ## End(Not run)
Run the code above in your browser using DataLab