7
Found this on that other forum that likes to ban people. Put the attached file in same folder that you have the target file you received from David. In R, make sure you are in that directory. Type source('nMonte3.R') and hit enter, then type getMonte('ancientfun.txt', 'target.txt', pen=0) or getMonte('ancientfun.txt', 'target.txt', pen=0.001) depending on which penalty you want to work with. My results:
Pen=0
1. CLOSEST SINGLE ITEM DISTANCE%"
STEPPE EEF EHG LEVANT CENTRAL-ASIA CHG
15.10127 21.82995 23.82235 27.19849 27.63629 27.99698
SIBERIA IRAN
31.77283 32.88986
distance%=4.7737
STEPPE,51.2
EEF,36.6
WHG,12.2
********************************************
Pen=0.001
distance%=4.9312
STEPPE,54.2
EEF,33
WHG,11.2
LEVANT,1.6
Bookmarks