data <- data.frame(
MarkerName = rep("m1", 5),
SampleName = paste0("S", 1:5),
X = c(100, 110, 90, 95, 85),
Y = c(200, 190, 210, 205, 215),
R = c(300, 300, 300, 300, 300),
ratio = c(0.67, 0.63, 0.70, 0.68, 0.72)
)
geno.pos <- data.frame(MarkerName = "m1", Chromosome = "1", Position = 123456)
get_zscore(data, geno.pos)
Run the code above in your browser using DataLab