# Get G matrix.
G <- G.matrix(M = geno.apple, method = "VanRaden")$G
# Diagnose G.
G_summary <- kinship.diagnostics(
K = G,
diagonal.thr.large = 1.3, diagonal.thr.small = 0.7, clean.diagonal = TRUE,
duplicate.thr = 0.8, clean.duplicate = TRUE,
sample.plot = 0.50)
ls(G_summary)
dim(G_summary$clean.kinship)
G_summary$clean.kinship[1:5, 1:5]
G_summary$list.duplicate
G_summary$list.diagonal
G_summary$plot.diag
G_summary$plot.offdiag
Run the code above in your browser using DataLab