昨天在撰寫的時候
有發現到範例的圖都是一直線
沒有什麼變化
所以今天做一點新的調整
讓結果多元化一點
(今天在lab看paper看太晚差點就來不及發xdd)

適應函數與原本的範例一樣

evaluate <- function(string=c()) {
  returnVal = 1 / sum(string);
  returnVal
}

由於這是一個去染色體中有多少個1的適應函數
而其希望求得越小越好

故今天的size一樣設定為10個

rbga.results = rbga.bin(size=10, 
                        suggestions=NULL,
                        popSize=200, 
                        iters=100,
                        mutationChance=0.01, 
                        elitism=NA, 
                        zeroToOneRatio=10, 
                        monitorFunc=NULL,
                        evalFunc=evaluate, 
                        showSettings=FALSE, 
                        verbose=FALSE)

將結果輸出成圖片

從這邊可以看到
各染色體中的基因(0 or 1)分佈情況

Github連結：Github