Data <- structure(
list(
SNP = c("rs4970420", "rs3766178",
"rs10910030", "rs10910036",
"rs2234167", "rs6661861"),
PVALUE = c(0.9244, 0.167, 0.01177, 0.4267, 0.9728, 0.4063),
CHR = c(1, 1, 1, 1, 1, 1),
POS = c(1106473, 1478180, 2035684, 2183754, 2494330, 3043121),
MAF = c(0.2149, 0.3117, 0.374, 0.3753, 0.1565, 0.06101),
eSNP = c(0, 1, 1, 0, 0, 0),
xSNP = c(0, 1, 1, 0, 0, 0)
),
.Names = c("SNP", "PVALUE", "CHR", "POS", "MAF", "eSNP", "xSNP"),
row.names = c("rs4970420", "rs3766178",
"rs10910030", "rs10910036",
"rs2234167", "rs6661861"),
class = "data.frame")
toyChr <- chromosome(Data = Data)
show(toyChr)
toyChr
toyChr <- chromosome()
toyChr["Data"] <- Data
toyChr
is.chromosome(toyChr) # TRUE
Run the code above in your browser using DataLab