単純なラテン語超立方体を持つ
mylhs<-randomLHS(3, k=2)
plot(mylhs,ylim=c(0:1),xlim=c(0:1),pch="+")
abline(v=1/3)
abline(v=2/3)
abline(h=1/3)
abline(h=2/3)
すべてのセルに少なくとも 1 つあるように、さらに 6 つのシードを追加したいと考えています。次のステップは、さらに 9 つのシードを追加して、すべてのセルが正確に 2 になるようにすることです。セルの意味を理解するために、プロットと線を描くことが役立つ場合があります。
それはおそらくlhsの元のアイデアではありませんが、可能ですか?
タスクを完全に満たしてaugmentLHSいない（偶然にのみ）
mylhs2<-optAugmentLHS(mylhs, m=6)
points(mylhs2,col="red")
abline(v=1/3)
abline(v=2/3)
abline(h=1/3)
abline(h=2/3)