file <- system.file("extdata", "test1.csv", package="PhenStat")
test <- PhenList(dataset=read.csv(file),
testGenotype="Sparc/Sparc")
class(test)
file <- system.file("extdata", "test2.csv", package="PhenStat")
test2 <- PhenList(dataset=read.csv(file),
testGenotype="Arid4a/Arid4a",
refGenotype="+/+",
hemiGenotype="Arid4a/+",
dataset.colname.weight="Weight.Value")
getStat(test2)
testGenotype(test2)
refGenotype(test2)
hemiGenotype(test2)
Run the code above in your browser using DataLab