View us_nr_of_crimes_1960_2014.csv
Year Total Violent Property Murder Rape Robbery Aggravated-Assault Burglary Larceny-Theft Vehicle-Theft
1960 1887.2 160.9 1726.3 5.1 9.6 60.1 86.1 508.6 1034.7 183
1961 1906.1 158.1 1747.9 4.8 9.4 58.3 85.7 518.9 1045.4 183.6
1962 2019.8 162.3 1857.5 4.6 9.4 59.7 88.6 535.2 1124.8 197.4
1963 2180.3 168.2 2012.1 4.6 9.4 61.8 92.4 576.4 1219.1 216.6
1964 2388.1 190.6 2197.5 4.9 11.2 68.2 106.2 634.7 1315.5 247.4
1965 2449 200.2 2248.8 5.1 12.1 71.7 111.3 662.7 1329.3 256.8
1966 2670.8 220 2450.9 5.6 13.2 80.8 120.3 721 1442.9 286.9
1967 2989.7 253.2 2736.5 6.2 14 102.8 130.2 826.6 1575.8 334.1
1968 3370.2 298.4 3071.8 6.9 15.9 131.8 143.8 932.3 1746.6 393
View gist:00be2188151341fb5ff3
row.names Year1970 Year1979
Sweden 46.9 57.4
Netherlands 44.0 55.8
Norway 43.5 52.2
Britain 40.7 39.0
France 39.0 43.4
Germany 37.5 42.9
Belgium 35.2 43.2
Canada 35.2 35.8
Finland 34.9 38.2
View exp_movies_problem.psyexp
<PsychoPy2experiment version="1.75.01" encoding="utf-8">
<Settings>
<Param name="Show mouse" val="False" valType="bool" updates="None"/>
<Param name="Save csv file" val="False" valType="bool" updates="None"/>
<Param name="Monitor" val="ProNitron19" valType="str" updates="None"/>
<Param name="Enable Escape" val="True" valType="bool" updates="None"/>
<Param name="color" val="black" valType="str" updates="None"/>
<Param name="Window size (pixels)" val="[1440, 900]" valType="code" updates="None"/>
<Param name="Full-screen window" val="True" valType="bool" updates="None"/>
<Param name="colorSpace" val="rgb" valType="str" updates="None"/>
View seTable.R
##seTable function draws a Tufte-style small table that shows a name of condition
##and next to it plots small line representing standard error of the mean
##with the dot representing the mean itself.
##This function is based on qTable from package NMOF
##http://cran.r-project.org/web/packages/NMOF/index.html
seTable <- function (X, xmin = NULL, xmax = NULL, labels = NULL, at = NULL,
unitlength = "5cm", linethickness = NULL, cnames = colnames(X),
circlesize = 0.01, xoffset = 0, yoffset = 0, dec = 2L, filename = NULL)
{