snps = data.frame(
CHROM = 1:2,
MARKER = c("M1", "M2"),
MB = c(1.23, 2.34),
A1 = c("A", "G"),
A2 = c("C", "C"),
FREQ1 = c(0.7, 0.12),
`2` = c("A/C", "G/C"),
check.names = FALSE) # Note: `check.names = FALSE`!
x = setSNPs(nuclearPed(), snpData = snps)
x
# Inspect the results:
getMap(x)
getFreqDatabase(x)
Run the code above in your browser using DataLab