# NOT RUN {
## Load an example data
data("AlphaPart.ped")
## Partition additive genetic values
res <- AlphaPart(x=AlphaPart.ped, colPath="loc", colAGV=c("agv1", "agv2"))
## Write summary on the disk and collect saved file names
fileName <- file.path(tempdir(), "AlphaPart")
ret <- write.csv(x=res, file=fileName)
print(ret)
file.show(ret[1])
## Clean up
files <- dir(path=tempdir(), pattern="AlphaPart*")
unlink(x=files)
# }
Run the code above in your browser using DataLab