CHBJPTSNP: Genotypes on 13 SNPs for 45 Chinese and 45 Japanese people
CHBJPTDist: Physical map positions of the 13 SNPs
Usage
data(CHBJPTData)
Format
CHBJPTSNP: A dataframe of SNP genotypes.
Each row represents an individual.
Each column represents a SNP.
CHBJPTDist: a vector of integers, representing SNP physical map
locations on the chromosome.
Details
The data frame CHBJPTSNP contains genotypes for 13 SNPs on chromosome
7, from 45 Chinese and 45 Japanese individuals. The Chinese individuals
were unrelated residents of the community at Beijing Normal University with
at least 3 Han Chinese grandparents. The Japanese individuals were unrelated
residents of the Tokyo metropolitan area with all grandparents from Japan.
The data are from release 21 of the International HapMap project
(The International HapMap Consortium 2005).
The International HapMap Consortium. A haplotype map of
the human genome. Nature 437, 1299-1320. 2005.
Examples
data(CHBJPTData)
#Now do our panel plot with LDheatmaps in the panels
library(lattice)
pop<-factor(c(rep("chinese", 45), rep("japanese", 45)))
xyplot(1:nrow(CHBJPTSNP) ~ 1:nrow(CHBJPTSNP) | pop, type="n",
scales=list(draw=FALSE), xlab="", ylab="",
panel=function(x, y, subscripts,...) {
LDheatmap(CHBJPTSNP[subscripts,], CHBJPTDist, newpage=FALSE)})
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(LDheatmap)
Loading required package: grid
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/LDheatmap/CHBJPTData.Rd_%03d_medium.png", width=480, height=480)
> ### Name: CHBJPTData
> ### Title: Example data set for LDheatmap
> ### Aliases: CHBJPTData CHBJPTSNP CHBJPTDist hapmapJPT hapmapCHB
> ### Keywords: datasets
>
> ### ** Examples
>
> data(CHBJPTData)
> #Now do our panel plot with LDheatmaps in the panels
> library(lattice)
> pop<-factor(c(rep("chinese", 45), rep("japanese", 45)))
> xyplot(1:nrow(CHBJPTSNP) ~ 1:nrow(CHBJPTSNP) | pop, type="n",
+ scales=list(draw=FALSE), xlab="", ylab="",
+ panel=function(x, y, subscripts,...) {
+ LDheatmap(CHBJPTSNP[subscripts,], CHBJPTDist, newpage=FALSE)})
>
>
>
>
>
> dev.off()
null device
1
>