Post your Eurogenes K13 Admixture Proportions by Chromosome

**harutsafaryan07** · 04-08-2019, 03:51 AM

Originally Posted by Lemgrant

here is Mixed Mode Oracle for MDLP k23b
Download: https://drive.google.com/open?id=1V1...FwzqqQzNmryd0M

example (my ftdna converted file from ancestrydna file)

Population
Amerindian1.23 Pct
Ancestral_Altaic2.56 Pct
South_Central_Asian-
Arctic0.57 Pct
South_Indian1.78 Pct
Australoid-
Austronesian0.58 Pct
Caucasian28.35 Pct
Archaic_Human-
East_African-
East_Siberian1.13 Pct
European_Early_Farmers13.91 Pct
Khoisan-
Melano_Polynesian0.18 Pct
Archaic_African-
Near_East0.37 Pct
North_African0.18 Pct
Paleo_Siberian-
African_Pygmy-
South_East_Asian0.07 Pct
Subsaharian-
Tungus-Altaic0.27 Pct
European_Hunters_Gatherers48.79 Pct

Code:

k23b_oracle(c(1.23,2.56,0,0.57,1.78,0.02,0.58,28.35,0,0,1.13,13.91,0,0.18,0,0.37,0.18,0,0.01,0.07,0,0.27,48.79),k=30)

[1,] "Slovak" "4.1622"
[2,] "Ukrainian_West" "4.5569"
[3,] "Kashub" "5.2107"
[4,] "German" "6.0656"
[5,] "Czech" "6.0949"
[6,] "Sorb" "6.2537"
[7,] "Ukrainian_Center" "7.2161"
[8,] "Belarusian_West" "7.7421"
[9,] "Belarusian-East" "7.8139"
[10,] "Slovenian" "7.8618"
[11,] "Russian_North" "7.8848"
[12,] "Hungarian" "8.0671"
[13,] "Ukrainian_East" "8.1422"
[14,] "Russian-West" "8.1466"
[15,] "Russian_South" "8.3565"
[16,] "Russian_Meshtchyora" "8.5716"
[17,] "Hungarian_Budapest" "8.7079"
[18,] "Russian-North-West" "8.786"
[19,] "Croat_BH" "9.2033"
[20,] "Russian-Upper-Volga" "9.4216"
[21,] "Ukrainian" "9.6625"
[22,] "Finn_West" "9.6778"
[23,] "Don_cossack" "9.7051"
[24,] "Moksha" "10.5046"
[25,] "Bosnian" "10.8753"
[26,] "Erzya" "10.9778"
[27,] "Croat" "11.3418"
[28,] "Austrian" "11.9604"
[29,] "Serb_BH" "12.0695"
[30,] "Swede_Saami" "12.2075"

Code:

k23b_oracle(c(1.23, 2.56, 0, 0.57,1.78, 0.02, 0.58, 28.35, 0, 0, 1.13, 13.91, 0, 0.18, 0, 0.37, 0.18, 0, 0.01, 0.07, 0, 0.27, 48.79),k=60,mixedmode=T)

[1,] "82.7% Belarusian_Russian + 17.3% Sardinian" "3.1638"
[2,] "82.7% Mixed_East_Slav + 17.3% Sardinian" "3.1851"
[3,] "91% Belarusian-East + 9% Sardinian" "3.2247"
[4,] "73.1% Belarusian_Russian + 26.9% Spanish_Baleares_IBS" "3.2266"
[5,] "73.1% Mixed_East_Slav + 26.9% Spanish_Baleares_IBS" "3.2531"
[6,] "8.4% Basque_Spanish + 91.6% Ukrainian_Center" "3.3087"
[7,] "9.4% Sardinian + 90.6% Ukrainian_East" "3.3126"
[8,] "8.2% Basque_French + 91.8% Ukrainian_Center" "3.3336"
[9,] "11% French_South + 89% Ukrainian_Center" "3.3422"
[10,] "8.2% Sardinian + 91.8% Ukrainian_Center" "3.3537"
[11,] "32.8% Belarusian_Russian + 67.2% Hungarian" "3.3591"
[12,] "9.5% Spanish_Pais_Vasco_IBS + 90.5% Ukrainian_Center" "3.3599"
[13,] "67.2% Hungarian + 32.8% Mixed_East_Slav" "3.3702"
[14,] "17.1% French + 82.9% Ukrainian_Center" "3.4065"
[15,] "11.6% Spanish_Cantabria_IBS + 88.4% Ukrainian_Center" "3.4214"
[16,] "71.9% Belarusian_Russian + 28.1% Italian_Bergamo" "3.4371"
[17,] "11.5% Spanish_Aragon_IBS + 88.5% Ukrainian_Center" "3.441"
[18,] "11.9% Spanish_Valencia_IBS + 88.1% Ukrainian_Center" "3.4458"
[19,] "46.6% Russian-North-West + 53.4% Slovenian" "3.4636"
[20,] "24% Belgian + 76% Ukrainian_Center" "3.4659"
[21,] "28.1% Italian_Bergamo + 71.9% Mixed_East_Slav" "3.4669"
[22,] "48.9% Russian-West + 51.1% Slovenian" "3.4673"
[23,] "21.1% English_Kent_GBR + 78.9% Ukrainian_Center" "3.4739"
[24,] "12.9% Spanish_Cataluna_IBS + 87.1% Ukrainian_Center" "3.4777"
[25,] "32% Belarusian_Russian + 68% Slovenian" "3.4799"
[26,] "47.3% Estonian + 52.7% Serb_Serbia" "3.4891"
[27,] "52.6% Hungarian + 47.4% Russian-North-West" "3.4896"
[28,] "32% Mixed_East_Slav + 68% Slovenian" "3.4909"
[29,] "50.2% Belarusian-East + 49.8% Slovenian" "3.5025"
[30,] "25.2% Serb_Serbia + 74.8% Sorb" "3.5051"
[31,] "19.2% French + 80.8% Ukrainian_East" "3.5095"
[32,] "35.3% Belarusian_South + 64.7% Hungarian" "3.5103"
[33,] "13.5% Spanish_Valencia_IBS + 86.5% Ukrainian_East" "3.5131"
[34,] "11.5% Spanish_Castilla_la_Mancha_IBS + 88.5% Ukrainian_Center" "3.5131"
[35,] "26.3% Croat + 73.7% Kashub" "3.5205"
[36,] "13% Spanish_Aragon_IBS + 87% Ukrainian_East" "3.5257"
[37,] "13.2% Spanish_Cantabria_IBS + 86.8% Ukrainian_East" "3.528"
[38,] "11.1% Sardinian + 88.9% Ukrainian" "3.5284"
[39,] "34.8% Balt + 65.2% Hungarian" "3.5289"
[40,] "51% Belarusian-East + 49% Hungarian" "3.5326"
[41,] "42.7% Croat + 57.3% Russian-North-West" "3.5359"
[42,] "34% Balt + 66% Slovenian" "3.5371"
[43,] "50.3% Hungarian + 49.7% Russian-West" "3.5504"
[44,] "14.7% Spanish_Cataluna_IBS + 85.3% Ukrainian_East" "3.5516"
[45,] "41.5% Hungarian + 58.5% Sorb" "3.5549"
[46,] "56.7% Austrian + 43.3% Belarusian_Russian" "3.5558"
[47,] "12.4% French_South + 87.6% Ukrainian_East" "3.5561"
[48,] "90.5% Russian_South + 9.5% Sardinian" "3.5598"
[49,] "62.3% Hungarian + 37.7% Pole" "3.56"
[50,] "75.2% Kashub + 24.8% Serb_BH" "3.5656"
[51,] "56.8% Austrian + 43.2% Mixed_East_Slav" "3.5677"
[52,] "87.2% Kashub + 12.8% Romanian" "3.5685"
[53,] "13.1% Spanish_Castilla_la_Mancha_IBS + 86.9% Ukrainian_East" "3.5799"
[54,] "26.9% Bosnian + 73.1% Kashub" "3.5925"
[55,] "13.2% Spaniard + 86.8% Ukrainian_Center" "3.595"
[56,] "77.3% Pole + 22.7% Spanish_Baleares_IBS" "3.5993"
[57,] "29.7% Estonian + 70.3% Hungarian" "3.6036"
[58,] "74.3% Belarusian_South + 25.7% Italian_Bergamo" "3.608"
[59,] "32.2% Croat + 67.8% Sorb" "3.6129"
[60,] "71.9% Hungarian + 28.1% Lithuanian" "3.6159"

Nice work Thank you a lot

Отправлено с моего DLI-TL20 через Tapatalk

**harutsafaryan07** · 04-13-2019, 08:05 AM

Originally Posted by Lemgrant

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"

Btw can you also add its Population

In Oracle ?

Отправлено с моего DLI-TL20 через Tapatalk

**Lemgrant** · 04-13-2019, 11:47 AM

Originally Posted by harutsafaryan07

Btw can you also add its Population

In Oracle ?

Отправлено с моего DLI-TL20 через Tapatalk

OK.

Download: https://drive.google.com/open?id=1iS...wp43OPtFYNplYX

Example:

Greek_Pontus average from your image

Code:

K13_updated(c(2.43,2.34,15.35,38.26,36.34,3.66,0.32,0.58,0.07,0,0.57,0,0),k=60)

Code:

 [1,] "Greek_Pontus"              "0"      
 [2,] "Turk_East_Black_Sea"       "4.2486" 
 [3,] "Armenian"                  "4.7554" 
 [4,] "Armenian_Eastern_Anatolia" "5.4266" 
 [5,] "Georgian_Jewish"           "7.4903" 
 [6,] "Laz"                       "8.4739" 
 [7,] "Turk_East"                 "9.1754" 
 [8,] "Assyrian"                  "9.3697" 
 [9,] "Turk_South_East"           "10.7677"
[10,] "Turk_Ahiska"               "10.8214"
[11,] "Greek_Central_Anatolia"    "12.0725"
[12,] "Turkish"                   "13.415" 
[13,] "Kurdish_Jewish"            "13.5755"
[14,] "Kurd_Kurmanji_Turkey"      "14.0305"
[15,] "Kurdish"                   "14.1382"
[16,] "Azerbaijani_Iran"          "14.1572"
[17,] "Turk_Azerbaijani"          "14.3101"
[18,] "Iranian_Jewish"            "14.7052"
[19,] "Turk_Central_Black_Sea"    "14.7207"
[20,] "Azeri"                     "14.873" 
[21,] "Turk_Central_East"         "15.008" 
[22,] "Iranian"                   "17.1808"
[23,] "Lebanese_Muslim"           "17.6105"
[24,] "Turk_Central_West"         "18.0586"
[25,] "Turk_South"                "18.3745"
[26,] "Azerbaijani_Dagestan"      "19.5179"
[27,] "Cyprian"                   "19.881" 
[28,] "Syrian"                    "20.2556"
[29,] "Turk_South_West"           "20.568" 
[30,] "Georgian"                  "21.0831"
[31,] "Abhkasian"                 "22.0338"
[32,] "Turk_North_West"           "22.342" 
[33,] "Lebanese_Druze"            "22.5245"
[34,] "Lebanese_Christian"        "22.5498"
[35,] "Kumyk"                     "23.8133"
[36,] "Samaritan"                 "24.3782"
[37,] "Jordanian"                 "24.8717"
[38,] "Adygei"                    "25.2851"
[39,] "Balkar"                    "26.3919"
[40,] "Palestinian"               "27.0434"
[41,] "Ossetian"                  "27.1385"
[42,] "Turkmen"                   "27.806" 
[43,] "North_Ossetian"            "28.0416"
[44,] "Kabardin"                  "28.549" 
[45,] "Turkmen_Turkmenistan"      "28.6119"
[46,] "South_Italian"             "28.9123"
[47,] "Tunisian_Jewish"           "29.3369"
[48,] "Sephardic_Jewish"          "29.3391"
[49,] "Central_Greek"             "29.7174"
[50,] "Libyan_Jewish"             "30.053" 
[51,] "East_Sicilian"             "30.398" 
[52,] "Bedouin"                   "30.9604"
[53,] "Algerian_Jewish"           "31.0601"
[54,] "Chechen"                   "31.1696"
[55,] "Italian_Jewish"            "31.2238"
[56,] "Lezgin"                    "31.4842"
[57,] "Ashkenazi"                 "32.1058"
[58,] "Italian_Abruzzo"           "32.7998"
[59,] "Tabassaran"                "34.6182"
[60,] "West_Sicilian"             "35.2982"

Code:

K13_updated(c(2.43,2.34,15.35,38.26,36.34,3.66,0.32,0.58,0.07,0,0.57,0,0),k=60,mixedmode=T)

Code:

 [1,] "Greek_Pontus"                                                "0"     
 [2,] "85.5% Turk_East_Black_Sea + 14.5% Lebanese_Christian"        "1.9059"
 [3,] "70.6% Laz + 29.4% Cyprian"                                   "1.9911"
 [4,] "86.8% Turk_East_Black_Sea + 13.2% Samaritan"                 "2.0876"
 [5,] "85.9% Turk_East_Black_Sea + 14.1% Lebanese_Druze"            "2.1201"
 [6,] "84.5% Turk_East_Black_Sea + 15.5% Cyprian"                   "2.2286"
 [7,] "58.4% Turk_East_Black_Sea + 41.6% Armenian_Eastern_Anatolia" "2.5189"
 [8,] "83.7% Turk_East_Black_Sea + 16.3% Lebanese_Muslim"           "2.5429"
 [9,] "88.8% Turk_East_Black_Sea + 11.2% Palestinian"               "2.5616"
[10,] "93% Turk_East_Black_Sea + 7% Yemenite_Jewish"                "2.5629"
[11,] "73.6% Laz + 26.4% Lebanese_Christian"                        "2.6412"
[12,] "78.2% Turk_East_Black_Sea + 21.8% Greek_Central_Anatolia"    "2.697" 
[13,] "89.9% Turk_East_Black_Sea + 10.1% Tunisian_Jewish"           "2.7038"
[14,] "73.6% Laz + 26.4% Lebanese_Druze"                            "2.7206"
[15,] "90.3% Turk_East_Black_Sea + 9.7% Libyan_Jewish"              "2.7837"
[16,] "88.5% Turk_East_Black_Sea + 11.5% Jordanian"                 "2.7935"
[17,] "40.5% Greek_Central_Anatolia + 59.5% Laz"                    "2.809" 
[18,] "75.2% Laz + 24.8% Samaritan"                                 "2.8336"
[19,] "73.9% Turk_East_Black_Sea + 26.1% Assyrian"                  "2.8492"
[20,] "80.8% Turk_East_Black_Sea + 19.2% Kurdish_Jewish"            "2.8542"
[21,] "91% Turk_East_Black_Sea + 9% Italian_Jewish"                 "2.9147"
[22,] "86.7% Turk_East_Black_Sea + 13.3% Syrian"                    "2.937" 
[23,] "91.1% Turk_East_Black_Sea + 8.9% Algerian_Jewish"            "2.9799"
[24,] "92.4% Turk_East_Black_Sea + 7.6% Egyptian"                   "2.9883"
[25,] "90.7% Turk_East_Black_Sea + 9.3% Sephardic_Jewish"           "3.0078"
[26,] "91.3% Turk_East_Black_Sea + 8.7% Bedouin"                    "3.0631"
[27,] "93.7% Turk_East_Black_Sea + 6.3% Saudi"                      "3.0684"
[28,] "83.4% Turk_East_Black_Sea + 16.6% Iranian_Jewish"            "3.146" 
[29,] "64.1% Armenian_Eastern_Anatolia + 35.9% Laz"                 "3.1835"
[30,] "68.8% Laz + 31.2% Lebanese_Muslim"                           "3.2292"
[31,] "92.2% Turk_East_Black_Sea + 7.8% Ashkenazi"                  "3.2822"
[32,] "78.9% Laz + 21.1% Tunisian_Jewish"                           "3.3017"
[33,] "94.3% Turk_East_Black_Sea + 5.7% Tunisian"                   "3.3655"
[34,] "72.8% Turk_East_Black_Sea + 27.2% Georgian_Jewish"           "3.4457"
[35,] "92.1% Turk_East_Black_Sea + 7.9% South_Italian"              "3.4627"
[36,] "94.8% Turk_East_Black_Sea + 5.2% Algerian"                   "3.4656"
[37,] "79.5% Laz + 20.5% Libyan_Jewish"                             "3.4992"
[38,] "80.1% Laz + 19.9% Italian_Jewish"                            "3.5457"
[39,] "92.8% Turk_East_Black_Sea + 7.2% East_Sicilian"              "3.5481"
[40,] "95.2% Turk_East_Black_Sea + 4.8% Mozabite_Berber"            "3.5529"
[41,] "95.2% Turk_East_Black_Sea + 4.8% Moroccan"                   "3.5631"
[42,] "80.1% Laz + 19.9% Algerian_Jewish"                           "3.6126"
[43,] "93.1% Turk_East_Black_Sea + 6.9% Central_Greek"              "3.6357"
[44,] "94.2% Turk_East_Black_Sea + 5.8% West_Sicilian"              "3.6479"
[45,] "94.4% Turk_East_Black_Sea + 5.6% Italian_Abruzzo"            "3.7741"
[46,] "60.5% Turk_East_Black_Sea + 39.5% Armenian"                  "3.8264"
[47,] "95.8% Turk_East_Black_Sea + 4.2% Tuscan"                     "3.84"  
[48,] "95.3% Turk_East_Black_Sea + 4.7% Greek_Thessaly"             "3.863" 
[49,] "97.2% Turk_East_Black_Sea + 2.8% Sardinian"                  "3.8946"
[50,] "78.1% Laz + 21.9% Palestinian"                               "3.9054"
[51,] "53.1% Laz + 46.9% Assyrian"                                  "3.9111"
[52,] "79.5% Laz + 20.5% Sephardic_Jewish"                          "3.921" 
[53,] "97.8% Turk_East_Black_Sea + 2.2% Ethiopian_Tigray"           "3.9854"
[54,] "97.1% Turk_East_Black_Sea + 2.9% North_Italian"              "3.9929"
[55,] "26.7% Turk_Ahiska + 73.3% Armenian_Eastern_Anatolia"         "4.0025"
[56,] "98% Turk_East_Black_Sea + 2% Ethiopian_Amhara"               "4.0199"
[57,] "66% Turk_Ahiska + 34% Cyprian"                               "4.0202"
[58,] "97.9% Turk_East_Black_Sea + 2.1% Spanish_Murcia"             "4.0591"
[59,] "97.9% Turk_East_Black_Sea + 2.1% Spanish_Valencia"           "4.0623"
[60,] "97.9% Turk_East_Black_Sea + 2.1% Portuguese"                 "4.0638"

**harutsafaryan07** · 04-13-2019, 12:19 PM

Originally Posted by Lemgrant

OK.

Download: https://drive.google.com/open?id=1iS...wp43OPtFYNplYX

Example:

Greek_Pontus average from your image

Code:

K13_updated(c(2.43,2.34,15.35,38.26,36.34,3.66,0.32,0.58,0.07,0,0.57,0,0),k=60)

Code:

 [1,] "Greek_Pontus"              "0"      
 [2,] "Turk_East_Black_Sea"       "4.2486" 
 [3,] "Armenian"                  "4.7554" 
 [4,] "Armenian_Eastern_Anatolia" "5.4266" 
 [5,] "Georgian_Jewish"           "7.4903" 
 [6,] "Laz"                       "8.4739" 
 [7,] "Turk_East"                 "9.1754" 
 [8,] "Assyrian"                  "9.3697" 
 [9,] "Turk_South_East"           "10.7677"
[10,] "Turk_Ahiska"               "10.8214"
[11,] "Greek_Central_Anatolia"    "12.0725"
[12,] "Turkish"                   "13.415" 
[13,] "Kurdish_Jewish"            "13.5755"
[14,] "Kurd_Kurmanji_Turkey"      "14.0305"
[15,] "Kurdish"                   "14.1382"
[16,] "Azerbaijani_Iran"          "14.1572"
[17,] "Turk_Azerbaijani"          "14.3101"
[18,] "Iranian_Jewish"            "14.7052"
[19,] "Turk_Central_Black_Sea"    "14.7207"
[20,] "Azeri"                     "14.873" 
[21,] "Turk_Central_East"         "15.008" 
[22,] "Iranian"                   "17.1808"
[23,] "Lebanese_Muslim"           "17.6105"
[24,] "Turk_Central_West"         "18.0586"
[25,] "Turk_South"                "18.3745"
[26,] "Azerbaijani_Dagestan"      "19.5179"
[27,] "Cyprian"                   "19.881" 
[28,] "Syrian"                    "20.2556"
[29,] "Turk_South_West"           "20.568" 
[30,] "Georgian"                  "21.0831"
[31,] "Abhkasian"                 "22.0338"
[32,] "Turk_North_West"           "22.342" 
[33,] "Lebanese_Druze"            "22.5245"
[34,] "Lebanese_Christian"        "22.5498"
[35,] "Kumyk"                     "23.8133"
[36,] "Samaritan"                 "24.3782"
[37,] "Jordanian"                 "24.8717"
[38,] "Adygei"                    "25.2851"
[39,] "Balkar"                    "26.3919"
[40,] "Palestinian"               "27.0434"
[41,] "Ossetian"                  "27.1385"
[42,] "Turkmen"                   "27.806" 
[43,] "North_Ossetian"            "28.0416"
[44,] "Kabardin"                  "28.549" 
[45,] "Turkmen_Turkmenistan"      "28.6119"
[46,] "South_Italian"             "28.9123"
[47,] "Tunisian_Jewish"           "29.3369"
[48,] "Sephardic_Jewish"          "29.3391"
[49,] "Central_Greek"             "29.7174"
[50,] "Libyan_Jewish"             "30.053" 
[51,] "East_Sicilian"             "30.398" 
[52,] "Bedouin"                   "30.9604"
[53,] "Algerian_Jewish"           "31.0601"
[54,] "Chechen"                   "31.1696"
[55,] "Italian_Jewish"            "31.2238"
[56,] "Lezgin"                    "31.4842"
[57,] "Ashkenazi"                 "32.1058"
[58,] "Italian_Abruzzo"           "32.7998"
[59,] "Tabassaran"                "34.6182"
[60,] "West_Sicilian"             "35.2982"

Code:

K13_updated(c(2.43,2.34,15.35,38.26,36.34,3.66,0.32,0.58,0.07,0,0.57,0,0),k=60,mixedmode=T)

Code:

 [1,] "Greek_Pontus"                                                "0"     
 [2,] "85.5% Turk_East_Black_Sea + 14.5% Lebanese_Christian"        "1.9059"
 [3,] "70.6% Laz + 29.4% Cyprian"                                   "1.9911"
 [4,] "86.8% Turk_East_Black_Sea + 13.2% Samaritan"                 "2.0876"
 [5,] "85.9% Turk_East_Black_Sea + 14.1% Lebanese_Druze"            "2.1201"
 [6,] "84.5% Turk_East_Black_Sea + 15.5% Cyprian"                   "2.2286"
 [7,] "58.4% Turk_East_Black_Sea + 41.6% Armenian_Eastern_Anatolia" "2.5189"
 [8,] "83.7% Turk_East_Black_Sea + 16.3% Lebanese_Muslim"           "2.5429"
 [9,] "88.8% Turk_East_Black_Sea + 11.2% Palestinian"               "2.5616"
[10,] "93% Turk_East_Black_Sea + 7% Yemenite_Jewish"                "2.5629"
[11,] "73.6% Laz + 26.4% Lebanese_Christian"                        "2.6412"
[12,] "78.2% Turk_East_Black_Sea + 21.8% Greek_Central_Anatolia"    "2.697" 
[13,] "89.9% Turk_East_Black_Sea + 10.1% Tunisian_Jewish"           "2.7038"
[14,] "73.6% Laz + 26.4% Lebanese_Druze"                            "2.7206"
[15,] "90.3% Turk_East_Black_Sea + 9.7% Libyan_Jewish"              "2.7837"
[16,] "88.5% Turk_East_Black_Sea + 11.5% Jordanian"                 "2.7935"
[17,] "40.5% Greek_Central_Anatolia + 59.5% Laz"                    "2.809" 
[18,] "75.2% Laz + 24.8% Samaritan"                                 "2.8336"
[19,] "73.9% Turk_East_Black_Sea + 26.1% Assyrian"                  "2.8492"
[20,] "80.8% Turk_East_Black_Sea + 19.2% Kurdish_Jewish"            "2.8542"
[21,] "91% Turk_East_Black_Sea + 9% Italian_Jewish"                 "2.9147"
[22,] "86.7% Turk_East_Black_Sea + 13.3% Syrian"                    "2.937" 
[23,] "91.1% Turk_East_Black_Sea + 8.9% Algerian_Jewish"            "2.9799"
[24,] "92.4% Turk_East_Black_Sea + 7.6% Egyptian"                   "2.9883"
[25,] "90.7% Turk_East_Black_Sea + 9.3% Sephardic_Jewish"           "3.0078"
[26,] "91.3% Turk_East_Black_Sea + 8.7% Bedouin"                    "3.0631"
[27,] "93.7% Turk_East_Black_Sea + 6.3% Saudi"                      "3.0684"
[28,] "83.4% Turk_East_Black_Sea + 16.6% Iranian_Jewish"            "3.146" 
[29,] "64.1% Armenian_Eastern_Anatolia + 35.9% Laz"                 "3.1835"
[30,] "68.8% Laz + 31.2% Lebanese_Muslim"                           "3.2292"
[31,] "92.2% Turk_East_Black_Sea + 7.8% Ashkenazi"                  "3.2822"
[32,] "78.9% Laz + 21.1% Tunisian_Jewish"                           "3.3017"
[33,] "94.3% Turk_East_Black_Sea + 5.7% Tunisian"                   "3.3655"
[34,] "72.8% Turk_East_Black_Sea + 27.2% Georgian_Jewish"           "3.4457"
[35,] "92.1% Turk_East_Black_Sea + 7.9% South_Italian"              "3.4627"
[36,] "94.8% Turk_East_Black_Sea + 5.2% Algerian"                   "3.4656"
[37,] "79.5% Laz + 20.5% Libyan_Jewish"                             "3.4992"
[38,] "80.1% Laz + 19.9% Italian_Jewish"                            "3.5457"
[39,] "92.8% Turk_East_Black_Sea + 7.2% East_Sicilian"              "3.5481"
[40,] "95.2% Turk_East_Black_Sea + 4.8% Mozabite_Berber"            "3.5529"
[41,] "95.2% Turk_East_Black_Sea + 4.8% Moroccan"                   "3.5631"
[42,] "80.1% Laz + 19.9% Algerian_Jewish"                           "3.6126"
[43,] "93.1% Turk_East_Black_Sea + 6.9% Central_Greek"              "3.6357"
[44,] "94.2% Turk_East_Black_Sea + 5.8% West_Sicilian"              "3.6479"
[45,] "94.4% Turk_East_Black_Sea + 5.6% Italian_Abruzzo"            "3.7741"
[46,] "60.5% Turk_East_Black_Sea + 39.5% Armenian"                  "3.8264"
[47,] "95.8% Turk_East_Black_Sea + 4.2% Tuscan"                     "3.84"  
[48,] "95.3% Turk_East_Black_Sea + 4.7% Greek_Thessaly"             "3.863" 
[49,] "97.2% Turk_East_Black_Sea + 2.8% Sardinian"                  "3.8946"
[50,] "78.1% Laz + 21.9% Palestinian"                               "3.9054"
[51,] "53.1% Laz + 46.9% Assyrian"                                  "3.9111"
[52,] "79.5% Laz + 20.5% Sephardic_Jewish"                          "3.921" 
[53,] "97.8% Turk_East_Black_Sea + 2.2% Ethiopian_Tigray"           "3.9854"
[54,] "97.1% Turk_East_Black_Sea + 2.9% North_Italian"              "3.9929"
[55,] "26.7% Turk_Ahiska + 73.3% Armenian_Eastern_Anatolia"         "4.0025"
[56,] "98% Turk_East_Black_Sea + 2% Ethiopian_Amhara"               "4.0199"
[57,] "66% Turk_Ahiska + 34% Cyprian"                               "4.0202"
[58,] "97.9% Turk_East_Black_Sea + 2.1% Spanish_Murcia"             "4.0591"
[59,] "97.9% Turk_East_Black_Sea + 2.1% Spanish_Valencia"           "4.0623"
[60,] "97.9% Turk_East_Black_Sea + 2.1% Portuguese"                 "4.0638"

thank you so much

Отправлено с моего DLI-TL20 через Tapatalk

**Thambi** · 04-13-2019, 01:12 PM

**Ritz06** · 04-13-2019, 05:03 PM

**Kaspias** · 04-14-2019, 02:27 PM

Originally Posted by Lemgrant

No, it is only for Eurogenes K13, but I can make for any other calculator.

If it is not much work for you, can you make for PuntDNAL K15?

**Lemgrant** · 04-14-2019, 02:45 PM

Originally Posted by Kaspias

If it is not much work for you, can you make for PuntDNAL K15?

Download: https://drive.google.com/open?id=10L...y9C3IlA4KVMi3c

Example:

Code:

PuntDNAL_K15(c(1.23,20.36,2.32,0,1.17,0,0.78,6.14,63.59,0.40,0,0,0.26,0,3.75),k=60)

Code:

 [1,] "Polish"         "4.372"  
 [2,] "Mordovian"      "6.0711" 
 [3,] "Russian"        "6.2685" 
 [4,] "Belarusian"     "6.332"  
 [5,] "Swedish"        "6.9794" 
 [6,] "Karelian"       "7.5402" 
 [7,] "Finnish"        "8.2182" 
 [8,] "Norwegian"      "9.2139" 
 [9,] "North_German"   "10.0995"
[10,] "Lithuanian"     "10.6674"
[11,] "Slovenian"      "11.0358"
[12,] "Austrian"       "11.3401"
[13,] "Scottish"       "11.5878"
[14,] "Orcadian"       "11.8642"
[15,] "Hungarian"      "12.1736"
[16,] "Irish"          "12.5826"
[17,] "English"        "12.9802"
[18,] "Croatian"       "14.4749"
[19,] "Utahn_White"    "16.5182"
[20,] "South_German"   "17.1585"
[21,] "Serbian"        "20.5669"
[22,] "French"         "20.8597"
[23,] "Chuvash"        "23.9934"
[24,] "Bosnian"        "24.6542"
[25,] "Macedonian"     "27.1184"
[26,] "Romanian"       "28.7951"
[27,] "Bulgarian"      "29.4688"
[28,] "Montenegrin"    "31.5382"
[29,] "Spaniard"       "32.2659"
[30,] "Italian"        "34.1383"
[31,] "Bashkir"        "34.5353"
[32,] "Portuguese"     "35.451" 
[33,] "Brazilian"      "37.3102"
[34,] "Basque"         "38.5222"
[35,] "Greek_Thessaly" "39.1638"
[36,] "Albanian"       "40.0412"
[37,] "Greek_Central"  "41.6366"
[38,] "Tuscan"         "41.92"  
[39,] "Mexican"        "46.5362"
[40,] "Puerto_Rican"   "49.9783"
[41,] "Ashkenazy_Jew"  "50.4678"
[42,] "Sicilian"       "52.228" 
[43,] "Dominican"      "54.1455"
[44,] "Sephardic_Jew"  "55.1187"
[45,] "Nogai"          "56.6399"
[46,] "Tadjik"         "57.8574"
[47,] "Uzbek"          "57.9007"
[48,] "Chechen"        "59.2656"
[49,] "Colombian_B"    "59.3627"
[50,] "Romani"         "59.4229"
[51,] "Turkmen"        "60.9203"
[52,] "Selkup"         "62.1564"
[53,] "Pashtun"        "62.3233"
[54,] "Sardinian"      "62.4284"
[55,] "Lezgin"         "62.788" 
[56,] "Uyghur"         "63.0811"
[57,] "Kumyk"          "63.3793"
[58,] "Balkar"         "63.7711"
[59,] "Turk_Kayseri"   "64.6301"
[60,] "Hazara"         "65.0194"

Code:

 PuntDNAL_K15(c(1.23,20.36,2.32,0,1.17,0,0.78,6.14,63.59,0.40,0,0,0.26,0,3.75),k=60,mixedmode=T)

Code:

 [1,] "61.3% Mordovian + 38.7% Norwegian"       "2.2528"
 [2,] "39.9% Mordovian + 60.1% Polish"          "2.2681"
 [3,] "54% Mordovian + 46% Swedish"             "2.2836"
 [4,] "63.7% Mordovian + 36.3% North_German"    "2.3133"
 [5,] "86.3% Belarusian + 13.7% Brazilian"      "2.3157"
 [6,] "67% Mordovian + 33% Scottish"            "2.3428"
 [7,] "67.5% Mordovian + 32.5% Orcadian"        "2.3644"
 [8,] "58.5% Finnish + 41.5% Austrian"          "2.3696"
 [9,] "86.8% Polish + 13.2% Chuvash"            "2.4477"
[10,] "85.4% Belarusian + 14.6% Italian"        "2.4499"
[11,] "69.7% Mordovian + 30.3% English"         "2.4617"
[12,] "83.1% Belarusian + 16.9% Romanian"       "2.4763"
[13,] "83.5% Belarusian + 16.5% Bulgarian"      "2.4972"
[14,] "91.5% Belarusian + 8.5% Sardinian"       "2.5055"
[15,] "84.4% Belarusian + 15.6% Montenegrin"    "2.5075"
[16,] "69.1% Mordovian + 30.9% Irish"           "2.52"  
[17,] "87.3% Belarusian + 12.7% Albanian"       "2.523" 
[18,] "82.3% Belarusian + 17.7% Macedonian"     "2.5434"
[19,] "84.7% Belarusian + 15.3% Spaniard"       "2.549" 
[20,] "65.6% Belarusian + 34.4% Austrian"       "2.576" 
[21,] "78.2% Belarusian + 21.8% French"         "2.5826"
[22,] "66.8% Mordovian + 33.2% Austrian"        "2.5893"
[23,] "87.9% Belarusian + 12.1% Tuscan"         "2.6079"
[24,] "67.4% Belarusian + 32.6% Hungarian"      "2.6276"
[25,] "66% Russian + 34% Austrian"              "2.6331"
[26,] "89.8% Belarusian + 10.2% Ashkenazy_Jew"  "2.645" 
[27,] "90.1% Belarusian + 9.9% Sicilian"        "2.6655"
[28,] "78.1% Belarusian + 21.9% Serbian"        "2.6893"
[29,] "86.1% Belarusian + 13.9% Portuguese"     "2.6967"
[30,] "81.1% Belarusian + 18.9% Bosnian"        "2.713" 
[31,] "74.8% Belarusian + 25.2% South_German"   "2.7454"
[32,] "75.1% Mordovian + 24.9% Utahn_White"     "2.7472"
[33,] "67.2% Russian + 32.8% Orcadian"          "2.7537"
[34,] "90.6% Belarusian + 9.4% Sephardic_Jew"   "2.7554"
[35,] "65.2% Belarusian + 34.8% Slovenian"      "2.7555"
[36,] "37.5% Russian + 62.5% Polish"            "2.7828"
[37,] "71.4% Belarusian + 28.6% Croatian"       "2.7849"
[38,] "59.9% Finnish + 40.1% Orcadian"          "2.7912"
[39,] "74.2% Belarusian + 25.8% Utahn_White"    "2.8099"
[40,] "61% Russian + 39% Norwegian"             "2.8217"
[41,] "87.3% Belarusian + 12.7% Greek_Thessaly" "2.8295"
[42,] "66.5% Mordovian + 33.5% Slovenian"       "2.8368"
[43,] "75.9% Mordovian + 24.1% South_German"    "2.8381"
[44,] "67.1% Belarusian + 32.9% Orcadian"       "2.855" 
[45,] "78.4% Lithuanian + 21.6% Brazilian"      "2.8552"
[46,] "58% Finnish + 42% Slovenian"             "2.856" 
[47,] "60.6% Finnish + 39.4% Hungarian"         "2.8727"
[48,] "55.7% Finnish + 44.3% North_German"      "2.8879"
[49,] "69.5% Russian + 30.5% English"           "2.8884"
[50,] "95% Polish + 5% Selkup"                  "2.9032"
[51,] "66.9% Russian + 33.1% Scottish"          "2.9057"
[52,] "61.4% Finnish + 38.6% Irish"             "2.9138"
[53,] "88.1% Belarusian + 11.9% Greek_Central"  "2.914" 
[54,] "53.3% Russian + 46.7% Swedish"           "2.9233"
[55,] "69.3% Belarusian + 30.7% English"        "2.9442"
[56,] "63.6% Russian + 36.4% North_German"      "2.9569"
[57,] "29.6% Finnish + 70.4% Polish"            "2.9587"
[58,] "69% Mordovian + 31% Hungarian"           "2.9662"
[59,] "91.5% Polish + 8.5% Bashkir"             "2.9668"
[60,] "92.4% Belarusian + 7.6% Cypriot"         "2.9766"