ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ 連鎖不平衡 多次元球 幾何 k次元空間にn個の単位ベクトルがある ベクトル同士の内積が関係を表す ペアワイズな内積が個計算される その内積から、k次元単位球面上にn個のベクトルを再配置する library(sphere) k<-5 n<-30 X<-RandomSphere(df=k,n=n) X #ペアワイズな内積の行列 Y<-X%*%t(X) diag(Y)<-1 Y # 角度にしてもよし Z<-acos(Y) Z # このYを使って、ベクトルを再配置する VectorsFromPairwise<-function(X,k){ n<-length(X[,1]) M<-matrix(0,n,n) M[1,1]<-1 M… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20110406%2F1302053922" title="ペアワイズLDの幾何配置 - 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-04-06 10:38:42 rich https://ryamada22.hatenablog.jp/entry/20110406/1302053922 1.0 100%