こちらから 自分の備忘録にこの日記にもメモを残しておく # ループを減らすのはRのこつ # apply()系の関数の使い方は内容のよくわかっているものでやってみるのが一番 # ローカスごとにアレル数を取り出す l<-6 k<-sample(2:50,l,replace=TRUE) # 各ローカス…