RData Mixed Mode oracle made by me. You can also use this oracle for each chromosome.
Download:
https://drive.google.com/open?id=1f1...d1XcZG0YW1y3Hu
double click on the downloaded RData file to open it with R software:
https://www.r-project.org/
Example1
type this command in R:
Toracle(c(27.15, 45.55, 11.28, 4.98, 5.40, 0.53, 1.07, 0.30, 1.55, 1.93, 0.26, 0, 0),k=30)
Result:
[1,] "Ukrainian" "2.8539"
[2,] "Polish" "4.2575"
[3,] "Southwest_Russian" "4.3884"
[4,] "Ukrainian_Lviv" "4.673"
[5,] "Russian_Smolensk" "4.8358"
[6,] "Estonian_Polish" "4.8598"
[7,] "South_Polish" "5.6423"
[8,] "Ukrainian_Belgorod" "5.7895"
[9,] "Belorussian" "6.2301"
[10,] "Kargopol_Russian" "8.4503"
[11,] "Lithuanian" "10.4068"
[12,] "Estonian" "10.6513"
[13,] "Croatian" "11.3405"
[14,] "Erzya" "11.4837"
[15,] "Finnish" "12.5596"
[16,] "East_Finnish" "12.8273"
[17,] "Southwest_Finnish" "13.7901"
[18,] "Moldavian" "14.6932"
[19,] "Hungarian" "15.8985"
[20,] "East_German" "17.3294"
[21,] "Austrian" "19.4284"
[22,] "La_Brana-1" "20.3965"
[23,] "North_Swedish" "20.6798"
[24,] "Tatar" "21.7155"
[25,] "Serbian" "22.0417"
[26,] "Chuvash" "25.003"
[27,] "Swedish" "26.2588"
[28,] "Romanian" "26.2609"
[29,] "North_German" "27.2574"
[30,] "Bulgarian" "28.3865"
Example 2
Toracle(c(27.15, 45.55, 11.28, 4.98, 5.40, 0.53, 1.07, 0.30, 1.55, 1.93, 0.26, 0, 0),k=60,mixedmode=T)
result:
[1,] "34.4% Estonian_Polish + 65.6% Ukrainian" "1.519"
[2,] "17.9% Lithuanian + 82.1% Ukrainian" "1.7813"
[3,] "28.6% Croatian + 71.4% Estonian_Polish" "1.909"
[4,] "76.5% Estonian_Polish + 23.5% Moldavian" "1.9163"
[5,] "26.2% Belorussian + 73.8% Ukrainian" "1.9224"
[6,] "31.9% Russian_Smolensk + 68.1% Ukrainian" "1.9673"
[7,] "48.8% Estonian_Polish + 51.2% Ukrainian_Lviv" "2.0423"
[8,] "33.2% Southwest_Russian + 66.8% Ukrainian" "2.116"
[9,] "18.5% Kargopol_Russian + 81.5% Ukrainian" "2.1647"
[10,] "47.8% Croatian + 52.2% Lithuanian" "2.1701"
[11,] "93.5% Estonian_Polish + 6.5% Sardinian" "2.1812"
[12,] "58.8% Lithuanian + 41.2% Moldavian" "2.2097"
[13,] "14.6% Estonian + 85.4% Ukrainian" "2.2245"
[14,] "13.7% Erzya + 86.3% Ukrainian" "2.225"
[15,] "85.9% Estonian_Polish + 14.1% Romanian" "2.2598"
[16,] "93.6% Russian_Smolensk + 6.4% Sardinian" "2.2913"
[17,] "13.2% Bulgarian + 86.8% Estonian_Polish" "2.2916"
[18,] "11.6% East_Finnish + 88.4% Ukrainian" "2.3198"
[19,] "90.3% Estonian_Polish + 9.7% North_Italian" "2.345"
[20,] "83.8% Estonian_Polish + 16.2% Serbian" "2.3934"
[21,] "91% Estonian_Polish + 9% Tuscan" "2.397"
[22,] "90.1% Estonian_Polish + 9.9% Greek_Thessaly" "2.4076"
[23,] "72.1% Lithuanian + 27.9% Romanian" "2.4484"
[24,] "91.8% Estonian_Polish + 8.2% West_Sicilian" "2.4702"
[25,] "92.5% Estonian_Polish + 7.5% South_Italian" "2.4802"
[26,] "91.6% Estonian_Polish + 8.4% Italian_Abruzzo" "2.4876"
[27,] "8.3% Central_Greek + 91.7% Estonian_Polish" "2.4896"
[28,] "79.5% Ukrainian + 20.5% Ukrainian_Belgorod" "2.5171"
[29,] "28% Lithuanian + 72% Ukrainian_Lviv" "2.5226"
[30,] "80.9% Lithuanian + 19.1% Tuscan" "2.5514"
[31,] "82.3% Lithuanian + 17.7% West_Sicilian" "2.5579"
[32,] "26.3% Bulgarian + 73.7% Lithuanian" "2.5613"
[33,] "9.2% Finnish + 90.8% Ukrainian" "2.5704"
[34,] "40.7% Belorussian + 59.3% Ukrainian_Lviv" "2.5805"
[35,] "20.9% Greek_Thessaly + 79.1% Lithuanian" "2.5823"
[36,] "8% East_Sicilian + 92% Estonian_Polish" "2.5871"
[37,] "26.2% Polish + 73.8% Ukrainian" "2.5904"
[38,] "6.2% French_Basque + 93.8% Southwest_Russian" "2.6177"
[39,] "68.5% Lithuanian + 31.5% Serbian" "2.681"
[40,] "91.6% Estonian_Polish + 8.4% Spanish_Andalucia" "2.6988"
[41,] "7.8% Southwest_French + 92.2% Southwest_Russian" "2.7038"
[42,] "26.5% Croatian + 73.5% Russian_Smolensk" "2.763"
[43,] "2.2% Mari + 97.8% Ukrainian" "2.7645"
[44,] "83.6% Lithuanian + 16.4% South_Italian" "2.7733"
[45,] "2.6% Chuvash + 97.4% Ukrainian" "2.7754"
[46,] "48.7% Russian_Smolensk + 51.3% Ukrainian_Lviv" "2.7896"
[47,] "91.3% Estonian_Polish + 8.7% Spanish_Extremadura" "2.7896"
[48,] "6.6% Algerian_Jewish + 93.4% Estonian_Polish" "2.7905"
[49,] "1.2% MA-1 + 98.8% Ukrainian" "2.7959"
[50,] "0.5% Karitiana + 99.5% Ukrainian" "2.7991"
[51,] "79.8% Estonian_Polish + 20.2% Hungarian" "2.8083"
[52,] "0.5% Pima + 99.5% Ukrainian" "2.8085"
[53,] "0.4% Mayan + 99.6% Ukrainian" "2.8216"
[54,] "0.5% North_Amerindian + 99.5% Ukrainian" "2.8234"
[55,] "93.5% Estonian_Polish + 6.5% Italian_Jewish" "2.8256"
[56,] "1.6% La_Brana-1 + 98.4% Ukrainian" "2.8344"
[57,] "2.4% Southwest_Finnish + 97.6% Ukrainian" "2.835"
[58,] "99.7% Ukrainian + 0.3% West_Greenlander" "2.8458"
[59,] "0.2% Selkup + 99.8% Ukrainian" "2.852"
[60,] "0.1% East_Greenlander + 99.9% Ukrainian" "2.8532"
Bookmarks