if(interactive()){
result <- visual_prep(type = "lm", features = "thickness.left.cuneus",
batch = "manufac", covariates = "AGE", df = adni[1:100, ], mdmr = FALSE, cores = 1)
combat_table_gen(result, table_name = "cov_table", c = "AGE")
combat_table_gen(result, table_name = "pc_variance", PC1 = "PC1", PC2 = "PC2")
}
Run the code above in your browser using DataLab