From 56ae67893ff4dd9eb39bc957c2eb163b833c32a7 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Thu, 11 Mar 2010 15:14:19 +0100
Subject: [PATCH] Sociomaps: Add some csv generation tools

---
 sociomaps/pca2csv          | 15 +++++++++++++++
 sociomaps/player-style.csv | 31 +++++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 sociomaps/pca2csv
 create mode 100644 sociomaps/player-style.csv

diff --git a/sociomaps/pca2csv b/sociomaps/pca2csv
new file mode 100644
index 0000000..3ebc5f1
--- /dev/null
+++ b/sociomaps/pca2csv
@@ -0,0 +1,15 @@
+{
+cat <<EOT
+Column type,,0colt,Number (non-test),Number (non-test),Number (non-test),Number (non-test),Number (non-test),Number (non-test)
+Scores,,0scor,Percentiles,Percentiles,Percentiles,Percentiles,Percentiles,Percentiles,Percentiles
+Range Min,,0rmin,,,,,,
+Range Max,,0rmax,,,,,,
+Missings,,0mis,Constant,Constant,Constant,Constant,Constant,Constant
+Replace,,0rep,50,50,50,50,50,2000
+Weight,,0wei,1,0.4,0.2,0.1,0.1,0.1
+,FILTER,NAME,PCA1+2,PCA1,PCA2,PCA3,PCA4,PCA5
+EOT
+cat ../pca.data  | perl -nle 'chomp; my @z = split(/ /); $p{$z[0]}->[$z[1]-1] = ($z[2]+1.0)*50; END {foreach (keys %p){print join(",","",1,$_, (0.45*$p{$_}->[0] + 0.19*$p{$_}->[1]), (@{$p{$_}}));}}' | cut -d , -f 1-9 | sort -t, -k 3 | tr _ ' '
+}>player-pca.csv
+join -t , -j 3 -o 1.3,1.1,1.2,1.4,1.5,1.6,1.7,1.8,2.4,2.5,2.6,2.7,2.8,2.9 player-style.csv player-pca.csv | sed 's/^0[^,]*//; s/^\([^,]*\),\([^,]*,[^,]*\)/\2,\1/' | tee players.csv
+
diff --git a/sociomaps/player-style.csv b/sociomaps/player-style.csv
new file mode 100644
index 0000000..49e52c3
--- /dev/null
+++ b/sociomaps/player-style.csv
@@ -0,0 +1,31 @@
+Column type,,0colt,Test Scores,Test Scores,Test Scores,Test Scores,Number (non-test)
+Scores,,0scor,Percentiles,Percentiles,Percentiles,Percentiles,Percentiles
+Range Min,,0rmin,,,,,
+Range Max,,0rmax,,,,,
+Missings,,0mis,Constant,Constant,Constant,Constant,Constant
+Replace,,0rep,50,50,50,50,2000
+Weight,,0wei,1,1,1,1,1
+,FILTER,NAME,Territory,Orthodoxity,Aggressivity,Thickness,Year
+,1,Chen Yaoye,60.00,40.00,60.00,55.00,2006
+,1,Cho Chikun,90.00,76.67,66.67,90.00,1992
+,1,Cho U,73.33,60.00,53.33,63.33,2005
+,1,Fujisawa Hideyuki,35.00,90.00,70.00,40.00,1975
+,1,Gu Li,56.67,70.00,90.00,40.00,2005
+,1,Hane Naoki,75.00,25.00,40.00,45.00,2003
+,1,Ishida Yoshio,80.00,50.00,33.33,53.33,1982
+,1,Kato Masao,25.00,45.00,95.00,40.00,1988
+,1,Kobayashi Koichi,90.00,25.00,25.00,55.00,1991
+,1,Luo Xihe,73.33,73.33,76.67,60.00,2001
+,1,Ma Xiaochun,80.00,63.33,56.67,80.00,1995
+,1,Miyazawa Goro,15.00,100.00,95.00,40.00,1992
+,1,O Meien,26.67,96.67,83.33,36.67,2001
+,1,Otake Hideo,43.33,30.00,46.67,36.67,1984
+,1,Rui Naiwei,46.67,56.67,90.00,33.33,2001
+,1,Sakata Eio,76.67,46.67,73.33,80.00,1970
+,1,Takao Shinji,50.00,35.00,55.00,45.00,2004
+,1,Takemiya Masaki,13.33,63.33,70.00,13.33,1988
+,1,Yamashita Keigo,20.00,90.00,95.00,30.00,2004
+,1,Yi Ch'ang-ho,70.00,50.00,26.67,26.67,1998
+,1,Yi Se-tol,53.33,66.67,93.33,66.67,2004
+,1,Yoda Norimoto,63.33,43.33,43.33,33.33,1998
+,1,Yuki Satoshi,30.00,85.00,90.00,45.00,2001
-- 
2.11.4.GIT