Wren duets

FALSE Loading required package: maps

FALSE 
FALSE  # ATTENTION: maps v3.0 has an updated 'world' map.        #
FALSE  # Many country borders and names have changed since 1990. #
FALSE  # Type '?world' or 'news(package="maps")'. See README_v3. #

FALSE Loading required package: seewave

FALSE Loading required package: tuneR

FALSE tuneR >= 1.0 has changed its Wave class definition.
FALSE Use updateWave(object) to convert Wave objects saved with previous versions of tuneR.

FALSE 
FALSE NOTE: install ggplot2 to run coor.graph()

reps<-1000

duet.res<-coor.test(X = a, iterations = reps, parallel = 2, less.than.chance = T)

library(ggplot2)

library(knitr)
kable(duet.res)

sing.event	obs.ovlps	mean.random.ovlps	p.value
BB1 new 061715 D1 metafile.txt	0	0.017	0.983
BB1 new 061715 D2 metafile.txt	1	1.536	0.588
BB1 new 061715 D6 metafile.txt	1	2.920	0.258
BB1 new 061815 D2 metafile.txt	1	2.656	0.213
BB1 new 061815 D3 metafile.txt	1	7.687	0.000
BB1 new 061915 D3 metafile.txt	1	4.599	0.124
BB1 new 062015 D3 metafile.txt	1	4.158	0.024
BB1 new 062215 D1 metafile.txt	1	3.823	0.058
BB1 new 062215 D3 metafile.txt	0	4.312	0.040
BB1 new 062215 D4 metafile.txt	1	4.343	0.057
BB1 new 062215 D5 metafile.txt	0	2.662	0.109
BB1 new 062415 D1 metafile.txt	1	5.784	0.006
BB1 new 062415 D3 metafile.txt	0	2.948	0.092
BB1 new 062415 D4 metafile.txt	6	5.806	0.620
BB1 new 062415 D5 metafile.txt	0	3.971	0.012
BB1 new 062515 D1 metafile.txt	3	4.038	0.280
BB1 new 062515 D2 metafile.txt	0	0.070	0.944
BB1 new 062515 D3 metafile.txt	0	5.470	0.010
BB1 new 062515 D4 metafile.txt	1	3.873	0.217
BB1 new 062515 D5 metafile.txt	0	5.523	0.005
BB1 new 062815 D1 metafile.txt	0	5.041	0.001
BB1 new 062815 D5 metafile.txt	4	3.784	0.664
BB1 new 070115 D1 metafile.txt	3	4.236	0.218
BB1 new 070115 D3 metafile.txt	0	4.056	0.020
BB1 new 070115 D4 metafile.txt	1	3.898	0.069
BB1 new 070115 D5 metafile.txt	1	7.501	0.000
BB2 061015 D1 metafile.txt	1	4.941	0.011
BB2 061015 D3 metafile.txt	6	4.854	1.000
BB2 061015 D4 metafile.txt	4	6.524	0.066
BB2 061015 D5 metafile.txt	7	6.623	0.991
BB2 061115 D1 metafile.txt	3	2.486	0.800
BB2 061115 D3 metafile.txt	5	5.644	0.337
BB2 061215 D1 metafile.txt	0	2.807	0.092
BB2 061215 D2 metafile.txt	1	3.391	0.082
BB2 061315 D1 metafile.txt	4	6.420	0.026
BB2 061315 D2 metafile.txt	1	4.802	0.013
BB2 061315 D3 metafile.txt	3	4.067	0.348
BB2 061315 D4 metafile.txt	1	5.440	0.001
BB2 061315 D5 metafile.txt	0	3.704	0.103
BB2 061415 D1 metafile.txt	0	4.986	0.041
BB2 061415 D3 metafile.txt	2	4.772	0.031
BB2 061415 D5 metafile.txt	0	4.726	0.064
BB2 061515 D1 metafile.txt	0	4.144	0.066
BB2 061515 D2 metafile.txt	0	4.791	0.032
BB2 061515 D3 metafile.txt	1	5.544	0.050
BB2 061515 D4 metafile.txt	1	5.667	0.013
BB2 061515 D5 metafile.txt	0	3.135	0.116
BB2 061715 D1 metafile.txt	4	5.195	0.265
BB2 061715 D5 metafile.txt	0	5.920	0.024
BB2 062215 D1 metafile.txt	0	1.048	0.145
BB2 062215 D4 metafile.txt	0	6.091	0.021
BB2 062215 D5 metafile.txt	0	3.977	0.061
BB2 062715 D1 metafile.txt	1	4.372	0.005
BB2 062715 D3 metafile.txt	1	3.772	0.085
Casa1 060215 D1 metafile.txt	2	6.118	0.023
Casa1 060215 D2 metafile.txt	0	5.069	0.002
Casa1 060215 D3 metafile.txt	4	3.192	0.838
Casa1 060215 D4 metafile.txt	5	5.542	0.442
Casa1 060215 D5 metafile.txt	1	5.565	0.001
Casa1 060315 D1 metafile.txt	3	7.040	0.034
Casa1 060315 D3 metafile.txt	1	4.897	0.013
Casa1 060315 D5 metafile.txt	1	5.592	0.015
Casa1 060415 D1 metafile.txt	5	3.131	0.984
Casa1 060415 D3 metafile.txt	1	4.216	0.013
Casa1 060515 D3 metafile.txt	0	3.464	0.017
Casa1 060515 D4 metafile.txt	0	3.534	0.044
Casa1 060515 D5 metafile.txt	5	4.229	0.826
Casa1 060615 D1 metafile.txt	0	3.255	0.087
Casa1 060615 D4 metafile.txt	0	2.891	0.057
Casa1 060715 D1 metafile.txt	0	3.152	0.066
Casa1 060715 D2 metafile.txt	0	3.063	0.070
Casa1 060715 D3 metafile.txt	0	4.087	0.056
Casa1 060715 D4 metafile.txt	0	3.403	0.058
Casa1 060715 D5 metafile.txt	0	3.864	0.076
Casa1 060715 D6 metafile.txt	1	3.779	0.041
Casa1 060815 D1 metafile.txt	2	9.179	0.003
Casa1 060815 D2 metafile.txt	1	4.624	0.049
Casa1 060815 D3 metafile.txt	0	6.497	0.014
Casa1 060815 D4 metafile.txt	1	4.765	0.034
Casa1 060915 D1 metafile.txt	4	4.374	0.488
Casa1 062315 D1 metafile.txt	2	10.202	0.001
Casa1 062315 D2 metafile.txt	2	6.737	0.027
Casa1 062315 D3 metafile.txt	0	7.622	0.000
Casa1 062315 D4 metafile.txt	0	7.614	0.016
Casa1 062315 D5 metafile.txt	1	12.325	0.000
G1float 060515 D1 metafile.txt	6	5.304	0.837
G1float 060515 D2 metafile.txt	0	3.695	0.000
G1float 060515 D3 metafile.txt	1	6.512	0.001
G1float 060515 D5 af metafile.txt	3	3.982	0.294
G1float 060515 D6 af metafile.txt	1	6.382	0.006
G1float 061415 D1 metafile.txt	0	3.208	0.034
G1LS1 new 060615 D1 metafile.txt	1	5.374	0.009
G1LS1 new 060615 D3 metafile.txt	1	5.053	0.011
G1LS1 new 060615 D5 metafile.txt	1	4.430	0.023
G1LS1 new 060715 D1 metafile.txt	3	1.225	0.934
G1LS1 new 060715 D2 metafile.txt	2	4.037	0.145
G1LS1 new 060715 D3 metafile.txt	0	3.856	0.067
G1LS1 new 060715 D4 metafile.txt	3	4.946	0.264
G1LS1 new 060715 D5 metafile.txt	0	3.376	0.097
G1LS1 new 060815 D1 metafile.txt	1	5.184	0.002
G1LS1 new 060815 D4 metafile.txt	1	3.881	0.031
G1LS1 new 061015 D2 metafile.txt	0	6.534	0.002
G1LS1 new 061015 D3 metafile.txt	2	3.371	0.242
G1LS1 new 061015 D5 metafile.txt	0	6.409	0.000
G1LS1 new 061115 D1 metafile.txt	0	2.942	0.059
G1LS1 new 061115 D4 metafile.txt	1	7.158	0.019
G1LS1 new 061215 D1 metafile.txt	1	6.536	0.011
G1LS1 new 061215 D2 metafile.txt	0	4.287	0.038
G1LS1 new 061215 D3 metafile.txt	1	5.760	0.017
G1LS1 new 061215 D4 metafile.txt	0	5.137	0.015
G1LS1 new 061215 D5 metafile.txt	0	6.951	0.010
G2 new 052815 D1 metafile.txt	16	10.258	1.000
G2 new 052815 D3 metafile.txt	5	5.889	0.262
G2 new 052915 D1 metafile.txt	1	7.423	0.001
G2 new 052915 D2 metafile.txt	0	4.935	0.003
G2 new 052915 D3 metafile.txt	8	8.219	0.547
G2 new 052915 D4 metafile.txt	0	5.202	0.031
G2 new 052915 D5 metafile.txt	0	5.863	0.008
G2 new 053015 D1 metafile.txt	1	4.914	0.037
G2 new 053015 D2 metafile.txt	1	2.967	0.159
G2 new 053015 D3 metafile.txt	0	6.356	0.000
G2 new 053015 D5 metafile.txt	0	8.376	0.000
G2 new 053115 D2 metafile.txt	0	8.210	0.000
G2 new 053115 D3 metafile.txt	0	6.250	0.003
G2 new 053115 D4 metafile.txt	0	6.202	0.013
G2 new 053115 D5 metafile.txt	0	6.503	0.000
G2 new 060115 D1 metafile.txt	0	5.355	0.015
G2 new 060115 D3 metafile.txt	2	7.328	0.000
G2 new 060115 D4 metafile.txt	1	7.811	0.000
G2 new 060115 D5 metafile.txt	0	5.581	0.016
G2 new 060215 D2 metafile.txt	2	7.271	0.001
G2 new 060215 D3 metafile.txt	1	5.397	0.001
G2 new 060215 D4 metafile.txt	1	7.302	0.003
G2 new 060315 D1 metafile.txt	2	9.801	0.000
G2 new 060315 D4 metafile.txt	0	4.734	0.025
G2 new 060315 D5 metafile.txt	3	3.724	0.299
G2 new 060415 D1 metafile.txt	0	4.056	0.012
G2 new 060415 D3 metafile.txt	1	5.564	0.014
G2 new 060415 D4 metafile.txt	0	4.788	0.000
G2 new 060515 D1 metafile.txt	0	3.021	0.013
G2 new 061115 D2 metafile.txt	5	8.669	0.059
G2 new 061115 D3 metafile.txt	2	8.333	0.006
G2 new 061115 D4 metafile.txt	0	3.277	0.018
G2 new 061115 D5 metafile.txt	0	5.423	0.007
G2 new 061815 D1 metafile.txt	0	3.147	0.027
G2 new 061815 D2 metafile.txt	0	4.570	0.003
G2 new 061815 D3 metafile.txt	1	5.434	0.003
G2 new 061815 D4 metafile.txt	0	3.087	0.112
G2 new 061815 D5 metafile.txt	0	3.627	0.042
G2 new 062415 D1 metafile.txt	0	5.397	0.000
G2 new 062415 D2 metafile.txt	1	6.299	0.000
G2 new 062415 D3 metafile.txt	3	8.321	0.008
G2 new 062415 D5 metafile.txt	0	7.472	0.000
L1 new 060415 D1 metafile.txt	6	5.094	1.000
L1 new 060515 D1 metafile.txt	0	4.185	0.099
L1 new 060515 D2 metafile.txt	1	2.606	0.298
L1 new 060515 D3 metafile.txt	0	2.102	0.074
L1 new 060515 D4 metafile.txt	2	6.366	0.051
L1 new 060515 D5 metafile.txt	0	2.598	0.156
L1 new 060615 D1 metafile.txt	0	3.350	0.011
L1 new 060615 D3 metafile.txt	4	5.730	0.204
L1 new 060615 D4 metafile.txt	0	4.910	0.023
L1 new 060615 D5 metafile.txt	0	4.758	0.024
L1 new 060715 D1 metafile.txt	4	7.822	0.005
L1 new 060715 D2 metafile.txt	3	7.027	0.024
L1 new 060715 D4 metafile.txt	3	5.148	0.057
L1 new 060715 D5 metafile.txt	2	5.205	0.132
L1 new 060815 D1 metafile.txt	1	4.455	0.085
L1 new 060815 D2 metafile.txt	0	6.777	0.005
L1 new 060815 D3 metafile.txt	0	4.766	0.030
L1 new 060815 D4 metafile.txt	4	6.466	0.135
L1 new 060815 D5 metafile.txt	0	4.873	0.003
L1 new 060915 D1 metafile.txt	0	6.112	0.001
L1 new 061015 D1 metafile.txt	0	4.783	0.028
L1 new 061015 D2 metafile.txt	0	6.728	0.000
L1 new 061015 D3 metafile.txt	7	7.749	0.409
L1 new 061015 D4 metafile.txt	0	7.563	0.000
L1 new 061015 D5 metafile.txt	0	8.636	0.000
L1 new 061115 D1 metafile.txt	0	2.831	0.098
L1 new 061115 D2 metafile.txt	0	5.390	0.004
L1 new 061115 D3 metafile.txt	1	7.164	0.009
L1 new 061115 D4 metafile.txt	3	7.253	0.002
L1 new 061115 D5 metafile.txt	0	6.649	0.008
L1 new 061215 D1 metafile.txt	1	6.009	0.003
L1 new 061215 D2 metafile.txt	0	5.997	0.000
L1 new 061215 D3 metafile.txt	0	3.553	0.002
L1 new 061215 D4 metafile.txt	0	5.688	0.018
L1 new 061215 D5 metafile.txt	0	6.838	0.004
L1 new 061815 D1 metafile.txt	3	10.271	0.000
L1 new 061815 D2 metafile.txt	0	0.688	0.676
L1 new 061815 D3 metafile.txt	1	4.888	0.034
L1 new 061815 D4 metafile.txt	0	5.436	0.037
L1 new 061815 D5 metafile.txt	1	6.926	0.005
L1 new 062415 D2 metafile.txt	1	3.298	0.145
L1 new 062415 D3 metafile.txt	2	4.163	0.090
L1 new 062415 D4 metafile.txt	1	5.612	0.002
L1 new 062415 D5 metafile.txt	6	7.270	0.259
L1 new 070115 D1 metafile.txt	1	7.309	0.008
L1 new 070115 D2 metafile.txt	0	2.133	0.127
L1 new 070115 D3 metafile.txt	0	2.913	0.066
L1 new 070115 D4 metafile.txt	3	9.642	0.000
L1 new 070115 D5 metafile.txt	2	5.787	0.008
PAE2 new 060915 D2 metafile.txt	0	2.890	0.061
PAE2 new 060915 D3 metafile.txt	0	4.727	0.015
PAE2 new 060915 D4 metafile.txt	0	4.431	0.013
PAE2 new 060915 D5 metafile.txt	1	5.222	0.012
PAE2 new 061015 D1 metafile.txt	3	5.578	0.085
PAE2 new 061015 D2 metafile.txt	0	3.291	0.082
PAE2 new 061015 D3 metafile.txt	1	3.475	0.065
PAE2 new 061015 D5 metafile.txt	0	3.648	0.101
PAE2 new 061215 D1 metafile.txt	2	4.459	0.155
PAE2 new 061315 D1 metafile.txt	1	7.207	0.029
PAE2 new 061315 D2 metafile.txt	1	5.149	0.013
PAE2 new 061315 D3 metafile.txt	3	3.652	0.395
PAE2 new 061415 D1 metafile.txt	0	3.339	0.085
PAE2 new 061415 D2 metafile.txt	3	6.356	0.016
PAE2 new 061415 D4 metafile.txt	1	3.188	0.224
PAE2 new 061415 D5 metafile.txt	7	6.777	1.000
PAE2 new 061515 D1 metafile.txt	0	2.941	0.028
PAE2 new 061515 D2 metafile.txt	0	4.863	0.019
PAE2 new 061515 D3 metafile.txt	0	4.759	0.046
PAE2 new 061515 D4 metafile.txt	0	4.758	0.038
PAE2 new 061515 D5 metafile.txt	5	6.121	0.353
PAE2 new 061715 D1 metafile.txt	0	4.527	0.004
PAE2 new 061715 D3 metafile.txt	0	4.440	0.021
PAE2 new 061715 D4 metafile.txt	0	5.357	0.043
PAE2 new 062215 D1 metafile.txt	0	3.294	0.091
PAE2 new 062215 D3 metafile.txt	5	4.708	0.568
PAE2 new 070115 D1 metafile.txt	0	4.676	0.003
PAE2 new 070115 D2 metafile.txt	0	5.116	0.009
PAE2 new 070115 D4 metafile.txt	0	3.015	0.080
PAE3 new 061415 DT1 metafile.txt	5	4.962	0.936
PAE3 new 061415 DT2 metafile.txt	11	11.345	0.732
PAE3 new 061515 DT1 metafile.txt	1	4.742	0.002
PAE3 new 061715 DT1 metafile.txt	0	6.818	0.014
PAE3 new 061715 DT2 metafile.txt	10	10.413	0.336
PAE3 new 061715 DT3 metafile.txt	0	2.896	0.017
PAE3 new 061815 DT1 metafile.txt	0	3.161	0.035
PAE3 new 061815 DT2 metafile.txt	4	1.760	0.969
PAE3 new 061915 DT1 metafile.txt	8	7.908	0.973
PAE3 new 061915 DT2 metafile.txt	0	5.395	0.017
PAE3 new 061915 DT4 metafile.txt	0	4.639	0.025
PAE3 new 062215 DT1 metafile.txt	1	4.668	0.032
PAE3 new 062215 DT2 metafile.txt	3	2.340	0.778
PAE3 new 062215 DT3 metafile.txt	0	4.908	0.033
PAE3 new 062215 DT4 metafile.txt	4	5.746	0.170
PAE3 new 062215 DT5 metafile.txt	6	6.238	0.395
PAE3 new 062415 DT1 metafile.txt	8	8.573	0.271
PAE3 new 062415 DT2 metafile.txt	5	6.164	0.208
PAE3 new 062515 DT2 metafile.txt	6	6.444	0.424
PAE3 new 062515 DT3 metafile.txt	1	7.175	0.000
PAE3 new 062515 DT4 metafile.txt	7	6.579	0.664
PAE3 new 062515 DT5 metafile.txt	0	9.115	0.000
PAE3 new 062615 DT1 metafile.txt	0	5.101	0.032
PAE3 new 062615 DT2 metafile.txt	1	3.206	0.182
PAE3 new 062615 DT3 metafile.txt	0	3.150	0.095
PAE3 new 062615 DT4 metafile.txt	0	2.902	0.049
PAE3 new 062615 DT5 metafile.txt	6	7.179	0.374
PAE3 new 062715 DT1 metafile.txt	0	2.616	0.075
PAE3 new 062715 DT2 metafile.txt	0	2.867	0.102
PAE3 new 062715 DT3 metafile.txt	2	3.354	0.316
PAE3 new 062715 DT4 metafile.txt	0	3.151	0.026
PAE3 new 062715 DT5 metafile.txt	0	4.408	0.028
PAE3 new 062915 DT2 metafile.txt	6	5.321	0.999
PAEesc new 060415 D1 metafile.txt	0	4.680	0.020
PAEesc new 060415 D2 metafile.txt	0	7.798	0.000
PAEesc new 060415 D3 metafile.txt	0	5.584	0.000
PAEesc new 060415 D5 metafile.txt	0	5.482	0.021
PAEesc new 060515 D1 metafile.txt	0	3.865	0.014
PAEesc new 060515 D2 metafile.txt	0	11.343	0.000
PAEesc new 060515 D3 metafile.txt	2	5.089	0.145
Paeesc new2 062515 DT1 metafile.txt	5	5.925	0.209
Paeesc new2 062515 DT2 metafile.txt	4	5.747	0.058
Paeesc new2 062515 DT3 metafile.txt	2	6.884	0.000
Paeesc new2 062515 DT4 metafile.txt	4	4.543	0.500
Paeesc new2 062515 DT5 metafile.txt	3	4.976	0.063
Paeesc new2 062615 DT1 metafile.txt	6	5.696	0.834
Paeesc new2 062615 DT2 metafile.txt	2	6.659	0.000
Paeesc new2 062615 DT3 metafile.txt	5	7.635	0.034
Paeesc new2 062615 DT4 metafile.txt	5	4.868	0.764
Paeesc new2 062615 DT5 metafile.txt	11	8.107	0.999
Paeesc new2 062715 DT1 metafile.txt	9	7.414	0.931
Paeesc new2 062715 DT2 metafile.txt	1	6.347	0.000
Paeesc new2 062715 DT3 metafile.txt	13	10.294	0.976
Paeesc new2 062715 DT4 metafile.txt	11	8.186	0.991
Paeesc new2 062715 DT5 metafile.txt	1	7.601	0.000
Paeesc new2 062815 DT1 metafile.txt	1	8.649	0.000
Paeesc new2 062815 DT3 metafile.txt	7	9.629	0.010
Paeesc new2 062815 DT4 metafile.txt	2	3.998	0.121
Paeesc new2 062815 DT5 metafile.txt	6	6.869	0.316
Paeesc new2 062915 DT3 metafile.txt	0	6.921	0.000
Paeesc new2 062915 DT5 metafile.txt	0	6.432	0.003
Paeesc new2 070115 DT1 metafile.txt	8	7.990	0.896
Paeesc new2 070115 DT2 metafile.txt	8	6.550	0.810
Paeesc new2 070115 DT3 metafile.txt	7	6.919	0.962
Paeesc new2 070215 DT1 metafile.txt	1	4.775	0.003
Paeesc new2 070215 DT2 metafile.txt	0	4.187	0.005
Paeesc new2 070215 DT3 metafile.txt	7	6.343	0.971
Paeesc new2 070215 DT4 metafile.txt	2	4.897	0.038
Paeesc new2 070215 DT5 metafile.txt	3	8.989	0.000

ggplot(duet.res, aes(x=p.value)) +  geom_histogram(bins= 40, colour="red", fill="white") + geom_vline(xintercept = 0.025, linetype="dashed", size = 1, col = "gray2")

duet.res <- data.frame(duet.res, perf=(duet.res$obs.ovlps-duet.res$mean.random.ovlps)/duet.res$mean.random.ovlps)

ggplot(duet.res, aes(x= perf)) +  geom_histogram(bins= 40, colour="red", fill="white") + xlab("Coordination performance")

duet.res <- droplevels(duet.res)

d <-gsub("new ", "", duet.res$sing.event)

d <-gsub("new2 ", "", d)

d <-gsub("  ", " ", d)

date <-sapply(strsplit(as.character(d), " ",fixed=T), "[[", 2)

d <-gsub(" new", "_new", duet.res$sing.event)

pair <- sapply(strsplit(as.character(d), " ",fixed=T), "[[", 1)

date <- as.Date(date, format = "%m%d%y")

duet.res <- data.frame(duet.res, pair, date)


day.res <- lapply(unique(duet.res$pair), function(x)
  {  
    y <- duet.res[duet.res$pair == x,] 
        return(data.frame(y, day = y$date -  min(y$date) + 1)) 
  }
    )

duet.res <- do.call("rbind", day.res)

str(duet.res)

FALSE 'data.frame': 300 obs. of  8 variables:
FALSE  $ sing.event       : Factor w/ 300 levels "BB1 new 061715 D1 metafile.txt",..: 1 2 3 4 5 6 7 8 9 10 ...
FALSE  $ obs.ovlps        : num  0 1 1 1 1 1 1 1 0 1 ...
FALSE  $ mean.random.ovlps: num  0.017 1.536 2.92 2.656 7.687 ...
FALSE  $ p.value          : num  0.983 0.588 0.258 0.213 0 0.124 0.024 0.058 0.04 0.057 ...
FALSE  $ perf             : num  -1 -0.349 -0.658 -0.623 -0.87 ...
FALSE  $ pair             : Factor w/ 11 levels "BB1_new","BB2",..: 1 1 1 1 1 1 1 1 1 1 ...
FALSE  $ date             : Date, format: "2015-06-17" "2015-06-17" ...
FALSE  $ day              :Class 'difftime'  atomic [1:300] 1 1 1 2 2 3 4 6 6 6 ...
FALSE   .. ..- attr(*, "units")= chr "days"

duet.res$day <- as.numeric(duet.res$day)



day.bins <-cut(duet.res$day, seq(0, 30, by = 5), labels = seq(1, 30, by = 5))

duet.res <- data.frame(duet.res, day.bins)

duet.ag.perf <- aggregate(duet.res$perf, by = list(duet.res$pair, duet.res$day.bins), FUN = mean)

names(duet.ag.perf)

FALSE [1] "Group.1" "Group.2" "x"

duet.ag.perf <- duet.ag.perf[order(duet.ag.perf$Group.1),]

duet.ag.perf$Group.2 <- as.numeric(as.character(duet.ag.perf$Group.2))

ggplot(duet.res, aes(y = perf, x = day, col = pair)) + geom_point() + xlab("Day") + ylab("Coordination performance")

ggplot(duet.ag.perf, aes(y = x, x = Group.2, col = Group.1)) + geom_line() + xlab("Day") + ylab("Coordination performance")

duet.ag.p <- aggregate(duet.res$p.value, by = list(duet.res$pair, duet.res$day.bins), FUN = mean)

duet.ag.p <- duet.ag.p[order(duet.ag.p$Group.1),]

duet.ag.p$Group.2 <- as.numeric(duet.ag.p$Group.2)


ggplot(duet.ag.p, aes(y = x, x = Group.2, col = Group.1)) + geom_point() + xlab("Day") + ylab("P.value") + geom_hline(yintercept = 0.025, linetype="dashed", size = 1, col = "gray2")

ggplot(duet.ag.p, aes(y = x, x = Group.2, col = Group.1)) + geom_line() + xlab("Day") + ylab("P.value") + geom_hline(yintercept = 0.025, linetype="dashed", size = 1, col = "gray2")