g25 all in one unscaled oracle

**vbnetkhio** · 11-21-2019, 03:30 PM

ancient:
https://drive.google.com/file/d/1c5v...ew?usp=sharing

modern:
https://drive.google.com/file/d/1m7l...ew?usp=sharing

eurogenes k36 ancient version:
https://drive.google.com/file/d/1TRq...ew?usp=sharing

instructions:
1)install the free program R: https://cloud.r-project.org/
2)once you have installed R, you can open the .rdata files by double-clicking them.
3)the R console will open.
3)enter these command into the console to get your results:

for all oracles:
oracle(c(your g25/k36 admixtures),mode="all")

for example:
oracle(c(0,0.3,0.29,3.64,0,7.21,0,0,10.17,0,16.16, 5.37,10.29,4.12,1.71,6.25,0,15.44,0,0,0.12,0,2.64, 6.7,0,0,0,0,0,0,0,0,4.36,0,1.74,3.49),mode="all")

the default K(number of approximations shown) is 20. if you want more, add "k=*your desired number"
for example:
oracle(c(0,0.3,0.29,3.64,0,7.21,0,0,10.17,0,16.16, 5.37,10.29,4.12,1.71,6.25,0,15.44,0,0,0.12,0,2.64, 6.7,0,0,0,0,0,0,0,0,4.36,0,1.74,3.49),mode="all",k=100)

if you want just one of the oracles, change the " mode="all" " to:

mode="single"
mode="2way"
mode="fifty"
mode="nmonte1"
mode="nmonte3"

**vbnetkhio** · 11-21-2019, 03:43 PM

example of g25 modern results for Stears, first unscaled coordinates i found

Code:

oracle(c(0.0108,0.0118,0.013,0.0093,0.0087,0.0061,0.003,0.0017,-0.0012,-0.005,-0.0018,-0.0013,0.0014,0.008,-0.0021,-0.0015,0.0047,0.0016,0.001,-0.0005,-0.0009,0.0026,0.004,0.003,0.0058),mode="all")
      [,1]                 [,2]    
 [1,] "Hungarian"          "0.0103"
 [2,] "Croatian"           "0.0113"
 [3,] "Czech"              "0.013" 
 [4,] "Slovenian"          "0.0135"
 [5,] "Bosnian"            "0.0152"
 [6,] "Austrian"           "0.0153"
 [7,] "Montenegrin"        "0.0155"
 [8,] "German_East"        "0.0168"
 [9,] "Serbian"            "0.0178"
[10,] "Romanian"           "0.0182"
[11,] "Slovakian"          "0.0183"
[12,] "Moldavian"          "0.0185"
[13,] "Polish"             "0.0197"
[14,] "Bulgarian"          "0.0199"
[15,] "Macedonian"         "0.0201"
[16,] "Turkish_Balkans"    "0.0204"
[17,] "Gagauz"             "0.0206"
[18,] "German"             "0.0208"
[19,] "Ukrainian"          "0.0219"
[20,] "Sorb_Niederlausitz" "0.0231"
      [,1]                                          [,2]    
 [1,] "15.1 %  Armenian_Hemsheni  +  84.9 %  Czech" "0.0086"
 [2,] "8.4 %  Abkhasian  +  91.6 %  Hungarian"      "0.0086"
 [3,] "10.7 %  Cherkes  +  89.3 %  Hungarian"       "0.0087"
 [4,] "88.3 %  Hungarian  +  11.7 %  Kumyk"         "0.0087"
 [5,] "10.2 %  Abazin  +  89.8 %  Hungarian"        "0.0087"
 [6,] "89 %  Hungarian  +  11 %  Kabardin"          "0.0087"
 [7,] "9.5 %  Adygei  +  90.5 %  Hungarian"         "0.0087"
 [8,] "77.8 %  Czech  +  22.2 %  Turkish_Northwest" "0.0088"
 [9,] "89.9 %  Hungarian  +  10.1 %  Karachay"      "0.0088"
[10,] "91.5 %  Hungarian  +  8.5 %  Ossetian"       "0.0088"
[11,] "90.4 %  Hungarian  +  9.6 %  Ingushian"      "0.0088"
[12,] "9.8 %  Balkar  +  90.2 %  Hungarian"         "0.0088"
[13,] "10 %  Circassian  +  90 %  Hungarian"        "0.0088"
[14,] "7.7 %  Georgian_Imer  +  92.3 %  Hungarian"  "0.0088"
[15,] "8.7 %  Georgian_Laz  +  91.3 %  Hungarian"   "0.0088"
[16,] "84.2 %  Czech  +  15.8 %  Turkish_Trabzon"   "0.0089"
[17,] "80 %  Czech  +  20 %  Turkish_South"         "0.0089"
[18,] "91.5 %  Hungarian  +  8.5 %  North_Ossetian" "0.0089"
[19,] "9.3 %  Chechen  +  90.7 %  Hungarian"        "0.0089"
[20,] "66.1 %  Czech  +  33.9 %  Turkish_Balkans"   "0.0089"
      [,1]                                                     [,2]    
 [1,] "50% %  Croatian  +  50% %  Hungarian"                   "0.0108"
 [2,] "50% %  Czech  +  50% %  Montenegrin"                    "0.0115"
 [3,] "50% %  Estonian  +  50% %  Swiss_Italian"               "0.0115"
 [4,] "50% %  Croatian  +  50% %  Czech"                       "0.0115"
 [5,] "50% %  Italian_Northeast  +  50% %  Mordovian"          "0.0117"
 [6,] "50% %  Czech  +  50% %  Slovenian"                      "0.0117"
 [7,] "50% %  Lithuanian_PA  +  50% %  Swiss_Italian"          "0.0117"
 [8,] "50% %  Italian_Molise  +  50% %  Lithuanian_VZ"         "0.012" 
 [9,] "50% %  Polish  +  50% %  Turkish_Balkans"               "0.012" 
[10,] "50% %  Czech  +  50% %  Hungarian"                      "0.0122"
[11,] "50% %  French_Provence  +  50% %  Lithuanian_PA"        "0.0123"
[12,] "50% %  German_East  +  50% %  Montenegrin"              "0.0123"
[13,] "50% %  Austrian  +  50% %  Bosnian"                     "0.0124"
[14,] "50% %  Estonian  +  50% %  Greek"                       "0.0124"
[15,] "50% %  Estonian  +  50% %  Italian_Veneto"              "0.0124"
[16,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Kursk"   "0.0125"
[17,] "50% %  Moldavian  +  50% %  Polish"                     "0.0125"
[18,] "50% %  Greek  +  50% %  Karelian"                       "0.0125"
[19,] "50% %  Italian_Umbria  +  50% %  Lithuanian_VZ"         "0.0125"
[20,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Voronez" "0.0126"

[1] "nMONTE 1"
[1] "distance%=0.5119"

          

Montenegrin,33.2
Estonian,28.7
Shetlandic,15.1
Georgian_Laz,8.3
Moldavian,5.3
Sherpa,3.4
Sorb_Niederlausitz,1.6
Ju_hoan_North,0.9
Dinka,0.7
Mlabri,0.7
Yakut,0.6
Huichol,0.5
Georgian_Imer,0.3
Czech,0.2
Lithuanian_SZ,0.2
Macedonian,0.2
Abkhasian,0.1

[1] "nMONTE 3"
[1] "distance%=0.7938"

          

Hungarian,35
Czech,16.2
Croatian,8
Montenegrin,8
Slovenian,3.2
Moldavian,1.8
Slovakian,1.8
Gagauz,1.4
Macedonian,1.4
Ingrian,1.2
Norwegian,1.2
Vepsian,1.2
Estonian,1
Finnish_East,1
Bulgarian,0.8
Cossack_Kuban,0.8
Chechen,0.6
German,0.6
Karelian,0.6
Ukrainian,0.6
Ezid,0.4
Irish,0.4
Italian_Molise,0.4
Italian_Northeast,0.4
Latvian,0.4
Lithuanian_PA,0.4
Lithuanian_SZ,0.4
Russian_Kostroma,0.4
Russian_Smolensk,0.4
Shetlandic,0.4
Sudanese,0.4
Turkish_Balkans,0.4
Abkhasian,0.2
Adygei,0.2
Amerindian_North,0.2
Avar,0.2
Balkar,0.2
Bantu_S.E.,0.2
Belgian,0.2
Bosnian,0.2
Brahmin_Tamil_Nadu,0.2
Brahui,0.2
Burmese,0.2
Circassian,0.2
Dai,0.2
Ethiopian_Ari_blacksmith,0.2
Finnish,0.2
Georgian_Laz,0.2
Greek,0.2
Greek_Central_Anatolia,0.2
Greek_Kos,0.2
Greek_Trabzon,0.2
Italian_Basilicata,0.2
Italian_Calabria,0.2
Jamatia,0.2
Kabardin,0.2
Karachay,0.2
Kumyk,0.2
Kusunda,0.2
Miao,0.2
Naxi,0.2
Pima,0.2
Polish,0.2
Quechua,0.2
Sherpa,0.2
Somali_Kenya,0.2
Tabasaran,0.2
Tatar_Lipka,0.2
Tu,0.2
Turkish_Adana,0.2
Turkish_Azer,0.2
Turkish_Kayseri,0.2
Turkish_Northwest,0.2
Turkish_Southwest,0.2
Uygur,0.2
Yusufzai,0.2

**~~Daos777~~** · 11-21-2019, 04:03 PM

Daos,0.0111,0.0113,0.015,0.014,0.0099,0.0069,0.002 4,-0.001,-0.0031,-0.0081,-0.0016,-0.0067,0.011,0.0114,-0.0139,0.008,0.0168,-0.0039,-0.0058,0.0035,0.0033,-0.0027,0.0039,-0.0001,-0.0057

Can you do this one for me?

**vbnetkhio** · 11-21-2019, 04:12 PM

Originally Posted by Daos777

Daos,0.0111,0.0113,0.015,0.014,0.0099,0.0069,0.002 4,-0.001,-0.0031,-0.0081,-0.0016,-0.0067,0.011,0.0114,-0.0139,0.008,0.0168,-0.0039,-0.0058,0.0035,0.0033,-0.0027,0.0039,-0.0001,-0.0057

Can you do this one for me?

ancient:

Code:

> oracle(c(0.0111,0.0113,0.015,0.014,0.0099,0.0069,0.0024,-0.001,-0.0031,-0.0081,-0.0016,-0.0067,0.011,0.0114,-0.0139,0.008,0.0168,-0.0039,-0.0058,0.0035,0.0033,-0.0027,0.0039,-0.0001,-0.0057),mode="all")
      [,1]                        [,2]    
 [1,] "CZE_Early_Slav"            "0.0224"
 [2,] "HUN_Avar_Szolad"           "0.0273"
 [3,] "Baltic_EST_MA"             "0.0292"
 [4,] "RUS_Sunghir_MA"            "0.0295"
 [5,] "Baltic_EST_IA"             "0.0306"
 [6,] "KAZ_Golden_Horde_Euro"     "0.0308"
 [7,] "UKR_Chernyakhiv_Shyshaky"  "0.0309"
 [8,] "Scythian_UKR"              "0.0326"
 [9,] "Scythian_HUN"              "0.0333"
[10,] "UKR_Chernyakhiv_Legedzine" "0.0336"
[11,] "HUN_LBA"                   "0.0351"
[12,] "BGR_Varna_En3"             "0.0352"
[13,] "DEU_Welzin_BA"             "0.0357"
[14,] "DEU_MA_ACD"                "0.038" 
[15,] "Corded_Ware_Baltic"        "0.0382"
[16,] "Bell_Beaker_CZE_o"         "0.0397"
[17,] "HUN_MA"                    "0.0404"
[18,] "POL_EBA"                   "0.0405"
[19,] "Bell_Beaker_HUN_EBA"       "0.0406"
[20,] "SWE_Viking_Age_Sigtuna"    "0.0409"
      [,1]                                                                  [,2]    
 [1,] "27.9 %  Anatolia_Isparta_EBA  +  72.1 %  Baltic_EST_MA"              "0.0162"
 [2,] "53.6 %  Baltic_EST_BA  +  46.4 %  ITA_Prenestini_tribe_IA_o"         "0.0169"
 [3,] "68.4 %  Baltic_EST_MA  +  31.6 %  ITA_Prenestini_tribe_IA_o"         "0.0176"
 [4,] "26.6 %  Anatolia_Ovaoren_EBA  +  73.4 %  Baltic_EST_MA"              "0.0178"
 [5,] "75.9 %  Baltic_EST_MA  +  24.1 %  BGR_Krepost_N"                     "0.0181"
 [6,] "65.3 %  Baltic_EST_MA  +  34.7 %  IND_Roopkund_B"                    "0.0181"
 [7,] "67 %  Baltic_EST_IA  +  33 %  ITA_Prenestini_tribe_IA_o"             "0.0181"
 [8,] "28.3 %  Anatolia_Isparta_EBA  +  71.7 %  Baltic_EST_IA"              "0.0182"
 [9,] "26.5 %  Anatolia_Barcin_C  +  73.5 %  Baltic_EST_MA"                 "0.0183"
[10,] "51 %  Baltic_EST_BA  +  49 %  ITA_Tivoli_Renaissance"                "0.0184"
[11,] "23 %  Anatolia_Tepecik_Ciftlik_N  +  77 %  Baltic_EST_MA"            "0.0184"
[12,] "81.1 %  Baltic_EST_MA  +  18.9 %  GRC_N"                             "0.0187"
[13,] "25.7 %  Anatolia_Kaman-Kalehoyuk_MLBA  +  74.3 %  Baltic_EST_MA"     "0.0188"
[14,] "36.3 %  Baltic_EST_BA  +  63.7 %  UKR_Chernyakhiv_Shyshaky"          "0.0189"
[15,] "27.7 %  Anatolia_IA_low_res  +  72.3 %  Baltic_EST_MA"               "0.0189"
[16,] "64 %  Baltic_EST_IA  +  36 %  IND_Roopkund_B"                        "0.019" 
[17,] "78.5 %  Baltic_EST_MA  +  21.5 %  GRC_Minoan_Lassithi"               "0.0191"
[18,] "32.6 %  ITA_Prenestini_tribe_IA_o  +  67.4 %  KAZ_Golden_Horde_Euro" "0.0192"
[19,] "78.7 %  Baltic_EST_MA  +  21.3 %  HUN_ALPc_III_MN"                   "0.0192"
[20,] "73.5 %  Baltic_EST_MA  +  26.5 %  Levant_LBN_Roman"                  "0.0192"
      [,1]                                                               [,2]    
 [1,] "50% %  KAZ_Golden_Horde_Euro  +  50% %  UKR_Chernyakhiv_Shyshaky" "0.0202"
 [2,] "50% %  Baltic_EST_BA  +  50% %  ITA_Tivoli_Renaissance"           "0.0204"
 [3,] "50% %  Baltic_EST_BA  +  50% %  IND_Roopkund_B"                   "0.0205"
 [4,] "50% %  Baltic_EST_IA  +  50% %  UKR_Chernyakhiv_Shyshaky"         "0.0211"
 [5,] "50% %  RUS_Sunghir_MA  +  50% %  UKR_Chernyakhiv_Shyshaky"        "0.0215"
 [6,] "50% %  Baltic_EST_MA  +  50% %  UKR_Chernyakhiv_Shyshaky"         "0.0216"
 [7,] "50% %  Baltic_LVA_BA  +  50% %  ITA_Tivoli_Renaissance"           "0.022" 
 [8,] "50% %  Baltic_EST_BA  +  50% %  ITA_Rome_MA"                      "0.0224"
 [9,] "50% %  Baltic_EST_BA  +  50% %  Scythian_MDA"                     "0.0225"
[10,] "50% %  KAZ_Golden_Horde_Euro  +  50% %  Scythian_HUN"             "0.0233"
[11,] "50% %  Baltic_LVA_BA  +  50% %  HRV_MBA"                          "0.0234"
[12,] "50% %  Baltic_EST_BA  +  50% %  HRV_MBA"                          "0.0236"
[13,] "50% %  Baltic_LVA_BA  +  50% %  ITA_Prenestini_tribe_IA_o"        "0.0244"
[14,] "50% %  Baltic_EST_MA  +  50% %  Scythian_HUN"                     "0.0245"
[15,] "50% %  Baltic_EST_MA  +  50% %  CZE_Early_Slav"                   "0.0246"
[16,] "50% %  HUN_Avar_Szolad  +  50% %  UKR_Chernyakhiv_Shyshaky"       "0.0246"
[17,] "50% %  Baltic_EST_IA  +  50% %  Scythian_HUN"                     "0.0247"
[18,] "50% %  Baltic_EST_BA  +  50% %  DEU_Lech_EBA"                     "0.0247"
[19,] "50% %  Baltic_EST_BA  +  50% %  ITA_Prenestini_tribe_IA_o"        "0.0249"
[20,] "50% %  Baltic_EST_BA  +  50% %  ITA_Rome_Late_Antiquity"          "0.025" 
[1] "nMONTE 1"
[1] "distance%=1.1692"

          

Baltic_EST_MA,25.4
Baltic_EST_BA,20.9
DEU_Welzin_BA_outlier2,12.6
GRC_N,12.6
RUS_Petrovka_MLBA,8.7
RUS_Darkveti-Meshoko_En,6.5
JPN_Jomon,4.9
Levant_JOR_EBA,2.9
Anatolia_Kumtepe_N_low_res,2.6
USA_Anzick,1.3
MAR_EN,0.8
Yamnaya_KAZ_Karagash,0.6
IRN_Hasanlu_IA,0.1
PER_LaGalgada_4100BP,0.1

[1] "nMONTE 3"
[1] "distance%=1.5657"

          

CZE_Early_Slav,32.8
UKR_Chernyakhiv_Shyshaky,15.6
Baltic_EST_MA,15
KAZ_Golden_Horde_Euro,12.2
DEU_Welzin_BA_outlier2,6.2
Baltic_EST_BA,3.4
Baltic_EST_IA,2.2
IND_Roopkund_B,1.4
RUS_Sunghir_MA,0.8
Anatolia_IA_low_res,0.6
ITA_Prenestini_tribe_IA_o,0.6
Ostrogothic_Crimea_ACD,0.6
Baltic_LVA_BA,0.4
England_Roman_Near_Eastern_o,0.4
GRC_Minoan_Odigitria_low_res,0.4
HUN_ALPc_III_MN,0.4
ITA_Tivoli_Renaissance,0.4
Levant_LBN_Roman,0.4
Anatolia_Barcin_C,0.2
Anatolia_Boncuklu_N,0.2
Anatolia_IA,0.2
Anatolia_Kaman-Kalehoyuk_MLBA,0.2
Anatolia_Kumtepe_N_low_res,0.2
Anatolia_Pinarbasi_HG,0.2
ARM_Lchashen_MBA,0.2
BGR_IA,0.2
BGR_Krepost_N,0.2
BRA_Botocudo,0.2
CHL_Ayayema_5100BP,0.2
CHL_Yamana_1000BP,0.2
DEU_MA_o,0.2
EGY_Late_Period,0.2
GRC_N,0.2
GRC_Peloponnese_N,0.2
HUN_ALPc_MN,0.2
IND_Roopkund_B_o,0.2
JPN_Jomon,0.2
KAZ_Kipchak,0.2
Kura-Araxes_ARM_Talin,0.2
Levant_Canaanite_MBA,0.2
Levant_Natufian,0.2
Levant_PPNB,0.2
MAR_EN,0.2
MYS_Historical,0.2
PAK_Loebanr_IA_o,0.2
PER_RioUncallane_1800BP,0.2
PYF_150BP,0.2
RUS_Darkveti-Meshoko_En,0.2
USA_AK_Paleo-Aleut,0.2

**vbnetkhio** · 11-21-2019, 04:17 PM

Originally Posted by Daos777

Daos,0.0111,0.0113,0.015,0.014,0.0099,0.0069,0.002 4,-0.001,-0.0031,-0.0081,-0.0016,-0.0067,0.011,0.0114,-0.0139,0.008,0.0168,-0.0039,-0.0058,0.0035,0.0033,-0.0027,0.0039,-0.0001,-0.0057

Can you do this one for me?

modern:

Code:

      [,1]                 [,2]    
 [1,] "Cossack_Kuban"      "0.0183"
 [2,] "Slovakian"          "0.0195"
 [3,] "Russian_Tver"       "0.0236"
 [4,] "Ukrainian"          "0.0238"
 [5,] "Russian_Kursk"      "0.0244"
 [6,] "Bosnian"            "0.0246"
 [7,] "Sorb_Niederlausitz" "0.0252"
 [8,] "Mordovian"          "0.0254"
 [9,] "Polish"             "0.0255"
[10,] "Russian_Orel"       "0.0255"
[11,] "Russian_Voronez"    "0.0265"
[12,] "Croatian"           "0.0272"
[13,] "Russian_Kostroma"   "0.0274"
[14,] "Lithuanian_VA"      "0.028" 
[15,] "Lithuanian_PA"      "0.0281"
[16,] "Cossack_Ukrainian"  "0.0287"
[17,] "Montenegrin"        "0.0293"
[18,] "Hungarian"          "0.0293"
[19,] "Czech"              "0.0301"
[20,] "Estonian"           "0.0304"
      [,1]                                                       [,2]    
 [1,] "34.6 %  Bosnian  +  65.4 %  Cossack_Kuban"                "0.0152"
 [2,] "79.5 %  Cossack_Kuban  +  20.5 %  Greek"                  "0.0155"
 [3,] "74.6 %  Cossack_Kuban  +  25.4 %  Macedonian"             "0.0156"
 [4,] "24.9 %  Bulgarian  +  75.1 %  Cossack_Kuban"              "0.0157"
 [5,] "84.1 %  Cossack_Kuban  +  15.9 %  Greek_Kos"              "0.0157"
 [6,] "75 %  Cossack_Kuban  +  25 %  Romanian"                   "0.0158"
 [7,] "86.4 %  Cossack_Kuban  +  13.6 %  Turkish_Trabzon"        "0.0159"
 [8,] "72.9 %  Cossack_Kuban  +  27.1 %  Montenegrin"            "0.0159"
 [9,] "18.8 %  Albanian  +  81.2 %  Cossack_Kuban"               "0.0159"
[10,] "78.1 %  Cossack_Kuban  +  21.9 %  Gagauz"                 "0.0159"
[11,] "85.7 %  Cossack_Kuban  +  14.3 %  Greek_Central_Anatolia" "0.016" 
[12,] "87.2 %  Cossack_Kuban  +  12.8 %  Iraqi_Jew"              "0.016" 
[13,] "84.3 %  Cossack_Kuban  +  15.7 %  Greek_Crete"            "0.016" 
[14,] "74.8 %  Cossack_Kuban  +  25.2 %  Serbian"                "0.016" 
[15,] "76.1 %  Cossack_Kuban  +  23.9 %  Moldavian"              "0.016" 
[16,] "86.6 %  Cossack_Kuban  +  13.4 %  Moroccan_Jew"           "0.0161"
[17,] "86.9 %  Cossack_Kuban  +  13.1 %  Libyan_Jew"             "0.0161"
[18,] "86.7 %  Cossack_Kuban  +  13.3 %  Lebanese_Druze"         "0.0161"
[19,] "86.6 %  Cossack_Kuban  +  13.4 %  Cypriot"                "0.0162"
[20,] "86.3 %  Cossack_Kuban  +  13.7 %  Romaniote_Jew"          "0.0162"
      [,1]                                                 [,2]    
 [1,] "50% %  Cossack_Kuban  +  50% %  Slovakian"          "0.0172"
 [2,] "50% %  Bosnian  +  50% %  Cossack_Kuban"            "0.0197"
 [3,] "50% %  Cossack_Kuban  +  50% %  Ukrainian"          "0.0209"
 [4,] "50% %  Bosnian  +  50% %  Russian_Tver"             "0.021" 
 [5,] "50% %  Cossack_Kuban  +  50% %  Russian_Tver"       "0.0211"
 [6,] "50% %  Bosnian  +  50% %  Russian_Kursk"            "0.0215"
 [7,] "50% %  Russian_Tver  +  50% %  Slovakian"           "0.0216"
 [8,] "50% %  Cossack_Kuban  +  50% %  Russian_Kursk"      "0.0217"
 [9,] "50% %  Bosnian  +  50% %  Mordovian"                "0.0219"
[10,] "50% %  Cossack_Kuban  +  50% %  Sorb_Niederlausitz" "0.0219"
[11,] "50% %  Lithuanian_VA  +  50% %  Montenegrin"        "0.0221"
[12,] "50% %  Slovakian  +  50% %  Ukrainian"              "0.0224"
[13,] "50% %  Lithuanian_RA  +  50% %  Montenegrin"        "0.0224"
[14,] "50% %  Cossack_Kuban  +  50% %  Russian_Orel"       "0.0225"
[15,] "50% %  Bosnian  +  50% %  Ukrainian"                "0.0225"
[16,] "50% %  Russian_Kursk  +  50% %  Slovakian"          "0.0225"
[17,] "50% %  Cossack_Kuban  +  50% %  Polish"             "0.0227"
[18,] "50% %  Lithuanian_SZ  +  50% %  Moldavian"          "0.0227"
[19,] "50% %  Bosnian  +  50% %  Russian_Orel"             "0.0229"
[20,] "50% %  Lithuanian_RA  +  50% %  Romanian"           "0.0229"
[1] "nMONTE 1"
[1] "distance%=1.3131"

          

Cossack_Kuban,63.2
Lithuanian_RA,16.4
Greek,6.3
Turkish_Trabzon,4.5
Berber_Tunisia_Chen,2.2
Biaka,1.9
Japanese,1.8
Palestinian_Beit_Sahour,1.5
Surui,1.1
Yukpa,1.1

[1] "nMONTE 3"
[1] "distance%=1.4947"

          

Cossack_Kuban,63.6
Slovakian,15.8
Bosnian,6.6
Russian_Tver,3
Montenegrin,1.2
Lithuanian_VA,1
Greek,0.8
Bulgarian,0.6
Russian_Kursk,0.6
Bolivian_Cochabamba,0.4
Gagauz,0.4
Quechua,0.4
Romanian,0.4
Turkish_Balkans,0.4
Abkhasian,0.2
Albanian,0.2
Atayal,0.2
Cachi,0.2
Chechen,0.2
Circassian,0.2
Cree,0.2
Greek_Crete,0.2
Italian_Campania,0.2
Kumyk,0.2
Kurdish,0.2
Lithuanian_PA,0.2
Lithuanian_RA,0.2
Macedonian,0.2
Moldavian,0.2
Palestinian_Beit_Sahour,0.2
Piapoco,0.2
Roma_Balkans,0.2
Sorb_Niederlausitz,0.2
Tujia,0.2
Turkish_South,0.2
Turkish_Southwest,0.2
Ukrainian,0.2
Yemenite_Ma'rib,0.2

**firemonkey** · 11-21-2019, 04:21 PM

Originally Posted by vbnetkhio

example of g25 modern results for Stears, first unscaled coordinates i found

Code:

oracle(c(0.0108,0.0118,0.013,0.0093,0.0087,0.0061,0.003,0.0017,-0.0012,-0.005,-0.0018,-0.0013,0.0014,0.008,-0.0021,-0.0015,0.0047,0.0016,0.001,-0.0005,-0.0009,0.0026,0.004,0.003,0.0058),mode="all")
      [,1]                 [,2]    
 [1,] "Hungarian"          "0.0103"
 [2,] "Croatian"           "0.0113"
 [3,] "Czech"              "0.013" 
 [4,] "Slovenian"          "0.0135"
 [5,] "Bosnian"            "0.0152"
 [6,] "Austrian"           "0.0153"
 [7,] "Montenegrin"        "0.0155"
 [8,] "German_East"        "0.0168"
 [9,] "Serbian"            "0.0178"
[10,] "Romanian"           "0.0182"
[11,] "Slovakian"          "0.0183"
[12,] "Moldavian"          "0.0185"
[13,] "Polish"             "0.0197"
[14,] "Bulgarian"          "0.0199"
[15,] "Macedonian"         "0.0201"
[16,] "Turkish_Balkans"    "0.0204"
[17,] "Gagauz"             "0.0206"
[18,] "German"             "0.0208"
[19,] "Ukrainian"          "0.0219"
[20,] "Sorb_Niederlausitz" "0.0231"
      [,1]                                          [,2]    
 [1,] "15.1 %  Armenian_Hemsheni  +  84.9 %  Czech" "0.0086"
 [2,] "8.4 %  Abkhasian  +  91.6 %  Hungarian"      "0.0086"
 [3,] "10.7 %  Cherkes  +  89.3 %  Hungarian"       "0.0087"
 [4,] "88.3 %  Hungarian  +  11.7 %  Kumyk"         "0.0087"
 [5,] "10.2 %  Abazin  +  89.8 %  Hungarian"        "0.0087"
 [6,] "89 %  Hungarian  +  11 %  Kabardin"          "0.0087"
 [7,] "9.5 %  Adygei  +  90.5 %  Hungarian"         "0.0087"
 [8,] "77.8 %  Czech  +  22.2 %  Turkish_Northwest" "0.0088"
 [9,] "89.9 %  Hungarian  +  10.1 %  Karachay"      "0.0088"
[10,] "91.5 %  Hungarian  +  8.5 %  Ossetian"       "0.0088"
[11,] "90.4 %  Hungarian  +  9.6 %  Ingushian"      "0.0088"
[12,] "9.8 %  Balkar  +  90.2 %  Hungarian"         "0.0088"
[13,] "10 %  Circassian  +  90 %  Hungarian"        "0.0088"
[14,] "7.7 %  Georgian_Imer  +  92.3 %  Hungarian"  "0.0088"
[15,] "8.7 %  Georgian_Laz  +  91.3 %  Hungarian"   "0.0088"
[16,] "84.2 %  Czech  +  15.8 %  Turkish_Trabzon"   "0.0089"
[17,] "80 %  Czech  +  20 %  Turkish_South"         "0.0089"
[18,] "91.5 %  Hungarian  +  8.5 %  North_Ossetian" "0.0089"
[19,] "9.3 %  Chechen  +  90.7 %  Hungarian"        "0.0089"
[20,] "66.1 %  Czech  +  33.9 %  Turkish_Balkans"   "0.0089"
      [,1]                                                     [,2]    
 [1,] "50% %  Croatian  +  50% %  Hungarian"                   "0.0108"
 [2,] "50% %  Czech  +  50% %  Montenegrin"                    "0.0115"
 [3,] "50% %  Estonian  +  50% %  Swiss_Italian"               "0.0115"
 [4,] "50% %  Croatian  +  50% %  Czech"                       "0.0115"
 [5,] "50% %  Italian_Northeast  +  50% %  Mordovian"          "0.0117"
 [6,] "50% %  Czech  +  50% %  Slovenian"                      "0.0117"
 [7,] "50% %  Lithuanian_PA  +  50% %  Swiss_Italian"          "0.0117"
 [8,] "50% %  Italian_Molise  +  50% %  Lithuanian_VZ"         "0.012" 
 [9,] "50% %  Polish  +  50% %  Turkish_Balkans"               "0.012" 
[10,] "50% %  Czech  +  50% %  Hungarian"                      "0.0122"
[11,] "50% %  French_Provence  +  50% %  Lithuanian_PA"        "0.0123"
[12,] "50% %  German_East  +  50% %  Montenegrin"              "0.0123"
[13,] "50% %  Austrian  +  50% %  Bosnian"                     "0.0124"
[14,] "50% %  Estonian  +  50% %  Greek"                       "0.0124"
[15,] "50% %  Estonian  +  50% %  Italian_Veneto"              "0.0124"
[16,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Kursk"   "0.0125"
[17,] "50% %  Moldavian  +  50% %  Polish"                     "0.0125"
[18,] "50% %  Greek  +  50% %  Karelian"                       "0.0125"
[19,] "50% %  Italian_Umbria  +  50% %  Lithuanian_VZ"         "0.0125"
[20,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Voronez" "0.0126"

[1] "nMONTE 1"
[1] "distance%=0.5119"

          

Montenegrin,33.2
Estonian,28.7
Shetlandic,15.1
Georgian_Laz,8.3
Moldavian,5.3
Sherpa,3.4
Sorb_Niederlausitz,1.6
Ju_hoan_North,0.9
Dinka,0.7
Mlabri,0.7
Yakut,0.6
Huichol,0.5
Georgian_Imer,0.3
Czech,0.2
Lithuanian_SZ,0.2
Macedonian,0.2
Abkhasian,0.1

[1] "nMONTE 3"
[1] "distance%=0.7938"

          

Hungarian,35
Czech,16.2
Croatian,8
Montenegrin,8
Slovenian,3.2
Moldavian,1.8
Slovakian,1.8
Gagauz,1.4
Macedonian,1.4
Ingrian,1.2
Norwegian,1.2
Vepsian,1.2
Estonian,1
Finnish_East,1
Bulgarian,0.8
Cossack_Kuban,0.8
Chechen,0.6
German,0.6
Karelian,0.6
Ukrainian,0.6
Ezid,0.4
Irish,0.4
Italian_Molise,0.4
Italian_Northeast,0.4
Latvian,0.4
Lithuanian_PA,0.4
Lithuanian_SZ,0.4
Russian_Kostroma,0.4
Russian_Smolensk,0.4
Shetlandic,0.4
Sudanese,0.4
Turkish_Balkans,0.4
Abkhasian,0.2
Adygei,0.2
Amerindian_North,0.2
Avar,0.2
Balkar,0.2
Bantu_S.E.,0.2
Belgian,0.2
Bosnian,0.2
Brahmin_Tamil_Nadu,0.2
Brahui,0.2
Burmese,0.2
Circassian,0.2
Dai,0.2
Ethiopian_Ari_blacksmith,0.2
Finnish,0.2
Georgian_Laz,0.2
Greek,0.2
Greek_Central_Anatolia,0.2
Greek_Kos,0.2
Greek_Trabzon,0.2
Italian_Basilicata,0.2
Italian_Calabria,0.2
Jamatia,0.2
Kabardin,0.2
Karachay,0.2
Kumyk,0.2
Kusunda,0.2
Miao,0.2
Naxi,0.2
Pima,0.2
Polish,0.2
Quechua,0.2
Sherpa,0.2
Somali_Kenya,0.2
Tabasaran,0.2
Tatar_Lipka,0.2
Tu,0.2
Turkish_Adana,0.2
Turkish_Azer,0.2
Turkish_Kayseri,0.2
Turkish_Northwest,0.2
Turkish_Southwest,0.2
Uygur,0.2
Yusufzai,0.2

> k36_ancient_oracle(c(0.13,0,0,2.18,0,4.34,0,0,0,0, 5.43,0,3.61,11.68,8.10,13.47,0,2.83,0,0,0,20.01,4. 05,22.77,0,0,0.28,0,0,0,0,0,0.39,0,0,0.72),k=25)
Error in k36_ancient_oracle(c(0.13, 0, 0, 2.18, 0, 4.34, 0, 0, 0, 0, 5.43, :
could not find function "k36_ancient_oracle

**firemonkey** · 11-21-2019, 04:24 PM

Originally Posted by vbnetkhio

example of g25 modern results for Stears, first unscaled coordinates i found

Code:

oracle(c(0.0108,0.0118,0.013,0.0093,0.0087,0.0061,0.003,0.0017,-0.0012,-0.005,-0.0018,-0.0013,0.0014,0.008,-0.0021,-0.0015,0.0047,0.0016,0.001,-0.0005,-0.0009,0.0026,0.004,0.003,0.0058),mode="all")
      [,1]                 [,2]    
 [1,] "Hungarian"          "0.0103"
 [2,] "Croatian"           "0.0113"
 [3,] "Czech"              "0.013" 
 [4,] "Slovenian"          "0.0135"
 [5,] "Bosnian"            "0.0152"
 [6,] "Austrian"           "0.0153"
 [7,] "Montenegrin"        "0.0155"
 [8,] "German_East"        "0.0168"
 [9,] "Serbian"            "0.0178"
[10,] "Romanian"           "0.0182"
[11,] "Slovakian"          "0.0183"
[12,] "Moldavian"          "0.0185"
[13,] "Polish"             "0.0197"
[14,] "Bulgarian"          "0.0199"
[15,] "Macedonian"         "0.0201"
[16,] "Turkish_Balkans"    "0.0204"
[17,] "Gagauz"             "0.0206"
[18,] "German"             "0.0208"
[19,] "Ukrainian"          "0.0219"
[20,] "Sorb_Niederlausitz" "0.0231"
      [,1]                                          [,2]    
 [1,] "15.1 %  Armenian_Hemsheni  +  84.9 %  Czech" "0.0086"
 [2,] "8.4 %  Abkhasian  +  91.6 %  Hungarian"      "0.0086"
 [3,] "10.7 %  Cherkes  +  89.3 %  Hungarian"       "0.0087"
 [4,] "88.3 %  Hungarian  +  11.7 %  Kumyk"         "0.0087"
 [5,] "10.2 %  Abazin  +  89.8 %  Hungarian"        "0.0087"
 [6,] "89 %  Hungarian  +  11 %  Kabardin"          "0.0087"
 [7,] "9.5 %  Adygei  +  90.5 %  Hungarian"         "0.0087"
 [8,] "77.8 %  Czech  +  22.2 %  Turkish_Northwest" "0.0088"
 [9,] "89.9 %  Hungarian  +  10.1 %  Karachay"      "0.0088"
[10,] "91.5 %  Hungarian  +  8.5 %  Ossetian"       "0.0088"
[11,] "90.4 %  Hungarian  +  9.6 %  Ingushian"      "0.0088"
[12,] "9.8 %  Balkar  +  90.2 %  Hungarian"         "0.0088"
[13,] "10 %  Circassian  +  90 %  Hungarian"        "0.0088"
[14,] "7.7 %  Georgian_Imer  +  92.3 %  Hungarian"  "0.0088"
[15,] "8.7 %  Georgian_Laz  +  91.3 %  Hungarian"   "0.0088"
[16,] "84.2 %  Czech  +  15.8 %  Turkish_Trabzon"   "0.0089"
[17,] "80 %  Czech  +  20 %  Turkish_South"         "0.0089"
[18,] "91.5 %  Hungarian  +  8.5 %  North_Ossetian" "0.0089"
[19,] "9.3 %  Chechen  +  90.7 %  Hungarian"        "0.0089"
[20,] "66.1 %  Czech  +  33.9 %  Turkish_Balkans"   "0.0089"
      [,1]                                                     [,2]    
 [1,] "50% %  Croatian  +  50% %  Hungarian"                   "0.0108"
 [2,] "50% %  Czech  +  50% %  Montenegrin"                    "0.0115"
 [3,] "50% %  Estonian  +  50% %  Swiss_Italian"               "0.0115"
 [4,] "50% %  Croatian  +  50% %  Czech"                       "0.0115"
 [5,] "50% %  Italian_Northeast  +  50% %  Mordovian"          "0.0117"
 [6,] "50% %  Czech  +  50% %  Slovenian"                      "0.0117"
 [7,] "50% %  Lithuanian_PA  +  50% %  Swiss_Italian"          "0.0117"
 [8,] "50% %  Italian_Molise  +  50% %  Lithuanian_VZ"         "0.012" 
 [9,] "50% %  Polish  +  50% %  Turkish_Balkans"               "0.012" 
[10,] "50% %  Czech  +  50% %  Hungarian"                      "0.0122"
[11,] "50% %  French_Provence  +  50% %  Lithuanian_PA"        "0.0123"
[12,] "50% %  German_East  +  50% %  Montenegrin"              "0.0123"
[13,] "50% %  Austrian  +  50% %  Bosnian"                     "0.0124"
[14,] "50% %  Estonian  +  50% %  Greek"                       "0.0124"
[15,] "50% %  Estonian  +  50% %  Italian_Veneto"              "0.0124"
[16,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Kursk"   "0.0125"
[17,] "50% %  Moldavian  +  50% %  Polish"                     "0.0125"
[18,] "50% %  Greek  +  50% %  Karelian"                       "0.0125"
[19,] "50% %  Italian_Umbria  +  50% %  Lithuanian_VZ"         "0.0125"
[20,] "50% %  Italian_Aosta_Valley  +  50% %  Russian_Voronez" "0.0126"

[1] "nMONTE 1"
[1] "distance%=0.5119"

          

Montenegrin,33.2
Estonian,28.7
Shetlandic,15.1
Georgian_Laz,8.3
Moldavian,5.3
Sherpa,3.4
Sorb_Niederlausitz,1.6
Ju_hoan_North,0.9
Dinka,0.7
Mlabri,0.7
Yakut,0.6
Huichol,0.5
Georgian_Imer,0.3
Czech,0.2
Lithuanian_SZ,0.2
Macedonian,0.2
Abkhasian,0.1

[1] "nMONTE 3"
[1] "distance%=0.7938"

          

Hungarian,35
Czech,16.2
Croatian,8
Montenegrin,8
Slovenian,3.2
Moldavian,1.8
Slovakian,1.8
Gagauz,1.4
Macedonian,1.4
Ingrian,1.2
Norwegian,1.2
Vepsian,1.2
Estonian,1
Finnish_East,1
Bulgarian,0.8
Cossack_Kuban,0.8
Chechen,0.6
German,0.6
Karelian,0.6
Ukrainian,0.6
Ezid,0.4
Irish,0.4
Italian_Molise,0.4
Italian_Northeast,0.4
Latvian,0.4
Lithuanian_PA,0.4
Lithuanian_SZ,0.4
Russian_Kostroma,0.4
Russian_Smolensk,0.4
Shetlandic,0.4
Sudanese,0.4
Turkish_Balkans,0.4
Abkhasian,0.2
Adygei,0.2
Amerindian_North,0.2
Avar,0.2
Balkar,0.2
Bantu_S.E.,0.2
Belgian,0.2
Bosnian,0.2
Brahmin_Tamil_Nadu,0.2
Brahui,0.2
Burmese,0.2
Circassian,0.2
Dai,0.2
Ethiopian_Ari_blacksmith,0.2
Finnish,0.2
Georgian_Laz,0.2
Greek,0.2
Greek_Central_Anatolia,0.2
Greek_Kos,0.2
Greek_Trabzon,0.2
Italian_Basilicata,0.2
Italian_Calabria,0.2
Jamatia,0.2
Kabardin,0.2
Karachay,0.2
Kumyk,0.2
Kusunda,0.2
Miao,0.2
Naxi,0.2
Pima,0.2
Polish,0.2
Quechua,0.2
Sherpa,0.2
Somali_Kenya,0.2
Tabasaran,0.2
Tatar_Lipka,0.2
Tu,0.2
Turkish_Adana,0.2
Turkish_Azer,0.2
Turkish_Kayseri,0.2
Turkish_Northwest,0.2
Turkish_Southwest,0.2
Uygur,0.2
Yusufzai,0.2

> k36_ancient_oracle(c(0.13,0,0,2.18,0,4.34,0,0,0,0, 5.43,0,3.61,11.68,8.10,13.47,0,2.83,0,0,0,20.01,4. 05,22.77,0,0,0.28,0,0,0,0,0,0.39,0,0,0.72),k=25)
Error in k36_ancient_oracle(c(0.13, 0, 0, 2.18, 0, 4.34, 0, 0, 0, 0, 5.43, :
could not find function "k36_ancient_oracle

**vbnetkhio** · 11-21-2019, 04:25 PM

Originally Posted by firemonkey

> k36_ancient_oracle(c(0.13,0,0,2.18,0,4.34,0,0,0,0, 5.43,0,3.61,11.68,8.10,13.47,0,2.83,0,0,0,20.01,4. 05,22.77,0,0,0.28,0,0,0,0,0,0.39,0,0,0.72),k=25)
Error in k36_ancient_oracle(c(0.13, 0, 0, 2.18, 0, 4.34, 0, 0, 0, 0, 5.43, :
could not find function "k36_ancient_oracle

try like this:

Code:

oracle(c(0.13,0,0,2.18,0,4.34,0,0,0,0,5.43,0,3.61,11.68,8.10,13.47,0,2.83,0,0,0,20.01,4.05,22.77,0,0,0.28,0,0,0,0,0,0.39,0,0,0.72),mode="all",k=25)

**firemonkey** · 11-21-2019, 04:31 PM

[,1] [,2]
[1,] "BA_Unetice_Germany_" "8.1897"
[2,] "EMA_Anglosaxon_" "8.349"
[3,] "6DRIF_18_Gladiator_York_100_400_AD_" "8.5079"
[4,] "IA_Britain_York_6DRIF18_" "8.5229"
[5,] "IA_Britain_York_" "8.5345"
[6,] "EMA_Hinxton5_Anglosaxon_" "8.6958"
[7,] "Hinxton_5_Cambridgshire_UK_1300_years_F_H2a2a1" "8.7266"
[8,] "RISE577_Velke_Prilepy_Czech_Republic_2000_years_T2 b" "9.1469"
[9,] "BA_Unetice_Czechia_RISE577_" "9.1742"
[10,] "Bell_Beaker_Germany_" "9.5688"
[11,] "I2421_England_CA_EBA_I2421_" "9.6563"
[12,] "SZ11_Longobard_2" "9.7687"
[13,] "SZ15_Longobard_2" "9.9465"
[14,] "I5367_Beaker_Britain_" "10.1779"
[15,] "NO3423_Anglo_Saxon_650_910_AD_" "10.2175"
[16,] "EMA_Anglosaxon_NO3423_" "10.22"
[17,] "CWC_Sweden_" "10.2324"
[18,] "BA_Unetice_Poland_RISE150_" "10.3628"
[19,] "RISE150_Przeclawice_Poland_3469_years_U5a1b1" "10.3944"
[20,] "IA_Celtic_Britain_" "10.571"
[21,] "SZ30_Celtic_" "10.592"
[22,] "Grave_6_alemani" "10.6023"
[23,] "Niederstotzingen_Alemmani_6_" "10.6023"
[24,] "Baiuvarii_Germanic_ALH_10_" "10.6508"
[25,] "SZ15_Longobard_" "10.6927"

No % given.

[,1] [,2]
[1,] "69.2 % Hinxton_4_Cambridgshire_UK_2000_years_M_R_DF25_H1a g1 + 30.8 % Rise391_Tanabergen_II_" "2.8717"
[2,] "69.3 % IA_CelticBriton_HI4_ + 30.7 % Rise391_Tanabergen_II_" "2.8768"
[3,] "52.3 % CL93_Longobard_ + 47.7 % I2568_Beaker_Britain_" "3.4475"
[4,] "56.5 % 6DRIF_23_Gladiator_York_100_400_AD_ + 43.5 % SVK_A1_pre_Christian_Icelandic" "3.8375"
[5,] "56.5 % IA_Britain_York_6DRIF23_ + 43.5 % SVK_A1_pre_Christian_Icelandic" "3.8429"
[6,] "67.9 % EMA_Anglosaxon_ + 32.1 % I5379_Beaker_Britain_" "3.9606"
[7,] "30 % BA_Sintashta_RISE391_ + 70 % IA_CelticBriton_HI4_" "3.9619"
[8,] "30.1 % BA_Sintashta_RISE391_ + 69.9 % Hinxton_4_Cambridgshire_UK_2000_years_M_R_DF25_H1a g1" "3.9705"
[9,] "56.4 % IA_Celtic_Britain_ + 43.6 % CWC_Germany_" "3.9834"
[10,] "53.9 % Grave_9_alemani + 46.1 % I5383_England_LBA_I5383_" "3.995"
[11,] "53.9 % Niederstotzingen_Alemmani_9_ + 46.1 % I5383_England_LBA_I5383_" "3.995"
[12,] "70 % IA_CelticBriton_HI4_ + 30 % RISE391_Tanabergen_II_Kazakhstan_3612_years_N1a1a1" "4.009"
[13,] "69.9 % Hinxton_4_Cambridgshire_UK_2000_years_M_R_DF25_H1a g1 + 30.1 % RISE391_Tanabergen_II_Kazakhstan_3612_years_N1a1a1" "4.0176"
[14,] "48 % CL145_Longobard_ + 52 % I2568_Beaker_Britain_" "4.1275"
[15,] "66.5 % EMA_Anglosaxon_ + 33.5 % I5383_England_LBA_I5383_" "4.1525"
[16,] "75.8 % CL93_Longobard_ + 24.2 % I6534_Silesia_Bell_Beaker_R1b_R1b_" "4.2425"
[17,] "66.7 % EMA_Anglosaxon_ + 33.3 % IA_Britain_York_6DRIF23_" "4.3049"
[18,] "33.2 % 6DRIF_23_Gladiator_York_100_400_AD_ + 66.8 % EMA_Anglosaxon_" "4.3153"
[19,] "58.5 % CL93_Longobard_ + 41.5 % IA_Britain_York_6DRIF23_" "4.3768"
[20,] "41.5 % 6DRIF_23_Gladiator_York_100_400_AD_ + 58.5 % CL93_Longobard_" "4.3818"
[21,] "72.5 % CL145_Longobard_ + 27.5 % I6534_Silesia_Bell_Beaker_R1b_R1b_" "4.434"
[22,] "54.8 % CL145_Longobard_2 + 45.2 % IA_Britain_York_6DRIF23_" "4.4817"
[23,] "45.2 % 6DRIF_23_Gladiator_York_100_400_AD_ + 54.8 % CL145_Longobard_2" "4.4948"
[24,] "46 % 6DRIF_21_Gladiator_York_100_400_AD_ + 54 % EMA_Anglosaxon_NO3423_" "4.5301"
[25,] "54 % EMA_Anglosaxon_NO3423_ + 46 % IA_Britain_York_6DRIF21_" "4.5316"

[1] "nMONTE 3"
[1] "distance%=2.7144"

EMA_Anglosaxon_,13.6
6DRIF_18_Gladiator_York_100_400_AD_,4.8
NO3423_Anglo_Saxon_650_910_AD_,4.6
I2421_England_CA_EBA_I2421_,4.2
IA_Britain_York_6DRIF18_,4.2
IA_Celtic_Britain_,4
EMA_Anglosaxon_NO3423_,3
I4253_Malopolska_Bell_Beaker_R1b_,2.8
I2568_Beaker_Britain_,2.6
IA_Britain_York_6DRIF21_,2.6
IA_Britain_York_,2.4
RISE577_Velke_Prilepy_Czech_Republic_2000_years_T2 b,2.4
Baiuvarii_Germanic_aed_249_,2.2
Bell_Beaker_Germany_,2.2
CL93_Longobard_2,2.2
BA_Unetice_Czechia_RISE577_,2
CL93_Longobard_,1.8
grt035_sigtuna,1.8
SZ30_Celtic_,1.6
6DRIF_21_Gladiator_York_100_400_AD_,1.2
Hinxton_4_Cambridgshire_UK_2000_years_M_R_DF25_H1a g1,1.2
IA_CelticBriton_HI4_,1.2
Hinxton_3_Cambridgshire_UK_1300_years_F_K1a4a1a2b, 1
SZ15_Longobard_2,1
SZ9_Longobard_,1

**~~Daos777~~** · 11-21-2019, 04:33 PM

Originally Posted by vbnetkhio

modern:

Code:

      [,1]                 [,2]    
 [1,] "Cossack_Kuban"      "0.0183"
 [2,] "Slovakian"          "0.0195"
 [3,] "Russian_Tver"       "0.0236"
 [4,] "Ukrainian"          "0.0238"
 [5,] "Russian_Kursk"      "0.0244"
 [6,] "Bosnian"            "0.0246"
 [7,] "Sorb_Niederlausitz" "0.0252"
 [8,] "Mordovian"          "0.0254"
 [9,] "Polish"             "0.0255"
[10,] "Russian_Orel"       "0.0255"
[11,] "Russian_Voronez"    "0.0265"
[12,] "Croatian"           "0.0272"
[13,] "Russian_Kostroma"   "0.0274"
[14,] "Lithuanian_VA"      "0.028" 
[15,] "Lithuanian_PA"      "0.0281"
[16,] "Cossack_Ukrainian"  "0.0287"
[17,] "Montenegrin"        "0.0293"
[18,] "Hungarian"          "0.0293"
[19,] "Czech"              "0.0301"
[20,] "Estonian"           "0.0304"
      [,1]                                                       [,2]    
 [1,] "34.6 %  Bosnian  +  65.4 %  Cossack_Kuban"                "0.0152"
 [2,] "79.5 %  Cossack_Kuban  +  20.5 %  Greek"                  "0.0155"
 [3,] "74.6 %  Cossack_Kuban  +  25.4 %  Macedonian"             "0.0156"
 [4,] "24.9 %  Bulgarian  +  75.1 %  Cossack_Kuban"              "0.0157"
 [5,] "84.1 %  Cossack_Kuban  +  15.9 %  Greek_Kos"              "0.0157"
 [6,] "75 %  Cossack_Kuban  +  25 %  Romanian"                   "0.0158"
 [7,] "86.4 %  Cossack_Kuban  +  13.6 %  Turkish_Trabzon"        "0.0159"
 [8,] "72.9 %  Cossack_Kuban  +  27.1 %  Montenegrin"            "0.0159"
 [9,] "18.8 %  Albanian  +  81.2 %  Cossack_Kuban"               "0.0159"
[10,] "78.1 %  Cossack_Kuban  +  21.9 %  Gagauz"                 "0.0159"
[11,] "85.7 %  Cossack_Kuban  +  14.3 %  Greek_Central_Anatolia" "0.016" 
[12,] "87.2 %  Cossack_Kuban  +  12.8 %  Iraqi_Jew"              "0.016" 
[13,] "84.3 %  Cossack_Kuban  +  15.7 %  Greek_Crete"            "0.016" 
[14,] "74.8 %  Cossack_Kuban  +  25.2 %  Serbian"                "0.016" 
[15,] "76.1 %  Cossack_Kuban  +  23.9 %  Moldavian"              "0.016" 
[16,] "86.6 %  Cossack_Kuban  +  13.4 %  Moroccan_Jew"           "0.0161"
[17,] "86.9 %  Cossack_Kuban  +  13.1 %  Libyan_Jew"             "0.0161"
[18,] "86.7 %  Cossack_Kuban  +  13.3 %  Lebanese_Druze"         "0.0161"
[19,] "86.6 %  Cossack_Kuban  +  13.4 %  Cypriot"                "0.0162"
[20,] "86.3 %  Cossack_Kuban  +  13.7 %  Romaniote_Jew"          "0.0162"
      [,1]                                                 [,2]    
 [1,] "50% %  Cossack_Kuban  +  50% %  Slovakian"          "0.0172"
 [2,] "50% %  Bosnian  +  50% %  Cossack_Kuban"            "0.0197"
 [3,] "50% %  Cossack_Kuban  +  50% %  Ukrainian"          "0.0209"
 [4,] "50% %  Bosnian  +  50% %  Russian_Tver"             "0.021" 
 [5,] "50% %  Cossack_Kuban  +  50% %  Russian_Tver"       "0.0211"
 [6,] "50% %  Bosnian  +  50% %  Russian_Kursk"            "0.0215"
 [7,] "50% %  Russian_Tver  +  50% %  Slovakian"           "0.0216"
 [8,] "50% %  Cossack_Kuban  +  50% %  Russian_Kursk"      "0.0217"
 [9,] "50% %  Bosnian  +  50% %  Mordovian"                "0.0219"
[10,] "50% %  Cossack_Kuban  +  50% %  Sorb_Niederlausitz" "0.0219"
[11,] "50% %  Lithuanian_VA  +  50% %  Montenegrin"        "0.0221"
[12,] "50% %  Slovakian  +  50% %  Ukrainian"              "0.0224"
[13,] "50% %  Lithuanian_RA  +  50% %  Montenegrin"        "0.0224"
[14,] "50% %  Cossack_Kuban  +  50% %  Russian_Orel"       "0.0225"
[15,] "50% %  Bosnian  +  50% %  Ukrainian"                "0.0225"
[16,] "50% %  Russian_Kursk  +  50% %  Slovakian"          "0.0225"
[17,] "50% %  Cossack_Kuban  +  50% %  Polish"             "0.0227"
[18,] "50% %  Lithuanian_SZ  +  50% %  Moldavian"          "0.0227"
[19,] "50% %  Bosnian  +  50% %  Russian_Orel"             "0.0229"
[20,] "50% %  Lithuanian_RA  +  50% %  Romanian"           "0.0229"
[1] "nMONTE 1"
[1] "distance%=1.3131"

          

Cossack_Kuban,63.2
Lithuanian_RA,16.4
Greek,6.3
Turkish_Trabzon,4.5
Berber_Tunisia_Chen,2.2
Biaka,1.9
Japanese,1.8
Palestinian_Beit_Sahour,1.5
Surui,1.1
Yukpa,1.1

[1] "nMONTE 3"
[1] "distance%=1.4947"

          

Cossack_Kuban,63.6
Slovakian,15.8
Bosnian,6.6
Russian_Tver,3
Montenegrin,1.2
Lithuanian_VA,1
Greek,0.8
Bulgarian,0.6
Russian_Kursk,0.6
Bolivian_Cochabamba,0.4
Gagauz,0.4
Quechua,0.4
Romanian,0.4
Turkish_Balkans,0.4
Abkhasian,0.2
Albanian,0.2
Atayal,0.2
Cachi,0.2
Chechen,0.2
Circassian,0.2
Cree,0.2
Greek_Crete,0.2
Italian_Campania,0.2
Kumyk,0.2
Kurdish,0.2
Lithuanian_PA,0.2
Lithuanian_RA,0.2
Macedonian,0.2
Moldavian,0.2
Palestinian_Beit_Sahour,0.2
Piapoco,0.2
Roma_Balkans,0.2
Sorb_Niederlausitz,0.2
Tujia,0.2
Turkish_South,0.2
Turkish_Southwest,0.2
Ukrainian,0.2
Yemenite_Ma'rib,0.2

Thanks, much appreciated. Why does g25 makes me so Cossak though?