data(Aeut)
Aeut.gc <- as.genclone(Aeut)
# Notice that there are two hierarchical levels, Pop and Subpop
Aeut.gc
# Currently set on just Pop
head(pop(Aeut.gc))
# setting the hierarchy to both Pop and Subpop
setpop(Aeut.gc) <- ~Pop/Subpop
head(pop(Aeut.gc))
# Can be used to create objects as well.
Aeut.old <- setpop(Aeut.gc, ~Pop)
head(pop(Aeut.old))
Run the code above in your browser using DataLab