ryamada https://blog.hatena.ne.jp/ryamada/ ryamadaのコンピュータ・数学メモ https://ryamada.hatenadiary.jp/ R こちらから 自分の備忘録にこの日記にもメモを残しておく # ループを減らすのはRのこつ # apply()系の関数の使い方は内容のよくわかっているものでやってみるのが一番 # ローカスごとにアレル数を取り出す l<-6 k<-sample(2:50,l,replace=TRUE) # 各ローカスのアレル数が出たら、それを使って、 # 各ローカスのアレルIDのリストを作る alist<-sapply(k,":",1) # アレルのリストがあれば、そこから１つ取り出せばよい # リストの要素のそれぞれに同じ処理をするには"lapply()"関数を使う hap1<-c(as.numeric(lapp… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20110114%2F1294482918" title="apply()系関数はなかなか覚えきれないが… - ryamadaのコンピュータ・数学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-01-14 19:35:18 rich https://ryamada.hatenadiary.jp/entry/20110114/1294482918 1.0 100%