file <- system.file("extdata", "testLR.csv", package="PhenStat")
testLR <- PhenList(dataset=read.csv(file),
testGenotype="Mock")
testLR2 <- LRDataset(testLR,"V2")
resultLR <- testDataset(testLR2,
depVariable="V2",
method="LR")
printLROutput(resultLR)
Run the code above in your browser using DataLab