scripts R

src/extp2.R

@@ -23,6 +23,8 @@ penncath_bim_path = "/amuhome/s23014817/m2bsgreprod/results/data/penncath.bim"
 penncath_fam_path = "/amuhome/s23014817/m2bsgreprod/results/data/penncath.fam"
 geno <- read.plink(penncath_bed_path, penncath_bim_path, penncath_fam_path, select.snps=sample(1:861473, 25000, replace = FALSE ), na.strings = ("-9"))
 
+#
+