R/ge03d2ex.R

In GenABEL-Project/GenABEL.data: Data Used by the GenABEL Examples and Test Functions

#=====================================================================================
#
#       Filename:  ge03d2ex.R
#
#    Description:  Generate ge03d2ex.RData from the ge03d2.RData
#
#        Version:  1.0
#        Created:  27-Nov-2013
#       Revision:  none
#       
#
#         Author:  Maksim V. Struchalin
#        Company:  YuriiA
#          Email:  m.struch@mail.ru
#
#=====================================================================================




##If you would like to generate the RData during 'R CMD build' process, then move this R file in GenABEL.data/data 
#
#
#
#
#if(require(GenABEL)) {
#
## How we get id and snop names:
##_____________________________
##load("ge03d2ex.RData")
##snpnames_ge03d2ex <- colnames(ge03d2ex@gtdata)
##idnames_ge03d2ex <- rownames(ge03d2ex@gtdata)
##write.table(data.frame(snpnames_ge03d2ex=snpnames_ge03d2ex), file="ge03d2ex_snp_names.txt", quote=F, row.names=F, col.names=T)
##write.table(data.frame(idnames_ge03d2ex=idnames_ge03d2ex), file="ge03d2ex_id_names.txt", quote=F, row.names=F, col.names=T)
##_____________________________
#
#load("ge03d2.RData")
#adpr <- paste(getwd(), "/../inst/extdata/", sep="")
#
#snpnames_file <- paste(adpr, "ge03d2ex_snp_names.txt", sep="")
#idnames_file <- paste(adpr, "ge03d2ex_id_names.txt", sep="")
#
#snpnames_ge03d2ex <- read.table(snpnames_file, header=T, strings=F)$snpnames_ge03d2ex
#idnames_ge03d2ex <- read.table(idnames_file, header=T, strings=F)$idnames_ge03d2ex
#
#ge03d2ex <- ge03d2[idnames_ge03d2ex,snpnames_ge03d2ex]
#
#rm(adpr, snpnames_ge03d2ex, idnames_ge03d2ex, ge03d2, pop2.ids, qc.nostr, qc.str)
#unlink(snpnames_file)
#unlink(idnames_file)
#
#
#} else {
#		error("GenABEL package should be installed. Try install.package(GenABEL).")
#}