-
Notifications
You must be signed in to change notification settings - Fork 0
/
FvU3D_sizelayer_wind.py
272 lines (186 loc) · 11.5 KB
/
FvU3D_sizelayer_wind.py
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
#!/usr/bin/python
'''
FvU3D_sizelayer_wind.py ten pramameters all of which have to be supplied when
calling the programme. These are
sm (selection against the Y in males),
dm (dominance of the Y in males),
sf (selection against the Y in males),
df (dominance of the Y in males),
sh (selection against heterozygote females, heterozygote disadvantage),
sd (dosage compensation),
sc (sex chromosome co-adaption),
disp (fraction of a deme that disperse to each direction
i.e. the actual dispersal is disp*4),
dispmod (directional gene flow, percentage that is added to leftward and
removed from rightward dispersal), and
run (a number that will be displayed in the output file names)
EXAMPLE: time python FvU3D_sizelayer_wind.py .01 1 .01 1 0 0 0 .03 0 1
'''
import numpy as np
import sys
import pickle
import gzip
import statsmodels.api as stm
#import time
#The 11 genotypes are: 'Ubb', 'Fa', 'Uab', 'Fb', 'Uaa', 'UUbb', 'FF', 'FUb', 'UUab', 'FUa', and 'UUaa' (0-10)
#The 8 gametes (5 male + 3 female) are: 'mF', 'ma', 'mb', 'mUa', 'mUb', 'fF', 'fUa', and 'fUb' (0-7)
#number of Fs containd in genotypes
Fgenotypes = np.array([0,1,0,1,0, 0,2,1,0,1,0])
#number of potential Fs (depending on sex)
Fpot = np.array([1,1,1,1,1, 2,2,2,2,2,2])
Fabs = np.array([1,0,1,0,1, 2,0,1,2,1,2])
#number of Ys containd in genotypes
Ygenotypes = np.array([0,1,1,0,2, 0,0,0,1,1,2])
#number of potential Ys (depending on wheter and how many Fs are present)
Ypot = np.array([2,1,2,1,2, 2,0,1,2,1,2])
Yabs = np.array([2,0,1,1,0, 2,0,1,1,0,0])
def Fratio(x):
return np.sum(x*Fgenotypes, axis=2)/np.sum(x*Fpot, axis=2)
def YFratio(x):
return np.sum(x*Ygenotypes, axis=2)/np.sum(x*Ypot, axis=2)
def Fhits(x):
return np.sum(x*Fgenotypes, axis=2)
def Fmisses(x):
return np.sum(x*Fabs, axis=2)
def Yhits(x):
return np.sum(x*Ygenotypes, axis=2)
def Ymisses(x):
return np.sum(x*Yabs, axis=2)
genconv=np.array([6,9,7,1,4,2,3,2,0,9,10,8,7,8,5]).reshape(5,3)
gamconv=np.array([0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 2, 0, 0, 0,\
0, 0, 0, 2, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0,\
0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 2,\
0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 4, 0, 0, 0, 0, 0, 4, 0, 2, 2, 0, 0]).reshape(8,11)
def params():
if len(sys.argv) <> 11:
print 'Wrong number of parameters supplied. Exit.'
exit()
global sm, dm, sf, df, sh, sd, sc, disp, grad, run, dispmod
sm = float(sys.argv[1])
dm = float(sys.argv[2])
sf = float(sys.argv[3])
df = float(sys.argv[4])
sh = float(sys.argv[5])
sd = float(sys.argv[6])
sc = float(sys.argv[7])
disp = float(sys.argv[8])
grad = 0
run = int(sys.argv[10])
dispmod = float(sys.argv[9])/100
print dispmod
#vector of selection acting on genotypes (SELECTion vectOR)
global selector
selector=np.array([[1-sm, 1, (1-sm*dm)*(1-.5*sd)*(1-.5*sc), (1-sm)*(1-.5*sd)*(1-sc),\
(1-.5*sd)*(1-sc), 1, 1, (1-sh)*(1-.5*sd)*(1-.5*sc), (1-sf*df)*(1-.5*sd)*(1-.5*sc),\
(1-sf*df)*(1-sh)*(1-.5*sc), (1-sf)*(1-sd)*(1-sc), 1]])
#Intialises a 3D genotype array ['g']
#(plus a counter['c'], an abundance matrix ['abu'] and other stuff
#that may become important later).
#Returns a dictionary containing all that stuff
def initialise(wi=10, leng=120):
gradients = np.array([40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80]).reshape(8, 120)
a=np.zeros([wi, leng, 12])
a[:, :, 11] = np.tile(gradients[grad, :], wi).reshape(wi, leng)
# abu=np.repeat(40 , wi*leng).reshape(wi, leng)
a[:, 0:60, [1,6]]=1 #fused
a[:, 61:, [0,5]]=1 #unfused
a[:, :, 0:11]=a[:, :, 0:11]*a[:, :, [11]]
c=0
trans=np.array([0,0])
print "Matrix initialised with %dx%d populations." % (wi, leng)
return {'g': a, 'c': c, 'fm': a[:,[0],:], 'um': a[:,[leng-1],:], 'trans':trans}
#Get Gamete Ratios, takes one 1D np array (genotype vector) as argument and
#returns a 1D 8-item gamete vector
def ggr(x):
return np.hstack((np.sum(x[0:11]*gamconv, axis=1),x[11]))
#GAmete SAample
#samples gametes according to gamete ratios, does sex and
#returns the new generations genotypes
def gasa(x):
#Male gAMETES
mametes=np.repeat(np.arange(5),np.random.multinomial(x[8], x[0:5]/sum(x[0:5]), 1).flatten())
np.random.shuffle(mametes)
#Female gAMETES
fametes=np.repeat(np.arange(3),np.random.multinomial(x[8], x[5:8]/sum(x[5:8]), 1).flatten())
np.random.shuffle(fametes)
##FASTAER SEX NOW - MULTIPLE SELECTION FROM ARRAY BY "ADVANCED" INDEXING
a = np.bincount(genconv[mametes, fametes])
#topping upt the array in case not all 11 genotypes were produced
a = np.hstack((a, np.zeros(11-a.shape[0])))
return a
#the heart of this programme, the Time Goes By function
def tgb(genot, gens=10):
#dimensions of the genotype matrix
dimensions=np.array(genot['g'].shape)
#intgen is the tbg-internal version of the genotype array
#it is two elements wirder in the first two dimensions to allow
#distribution to be modelled by addition of an offset version of the array
intgen=np.zeros(dimensions+np.array([2,2,0]))
intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), :]=genot['g']
for i in range(gens):
#dispersal
intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), 0:11]=\
intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), 0:11]*(1-4*disp)+\
intgen[0:(dimensions[0]), 1:(dimensions[1]+1), 0:11]*disp+\
intgen[2:(dimensions[0]+2), 1:(dimensions[1]+1), 0:11]*disp+\
intgen[1:(dimensions[0]+1), 0:(dimensions[1]), 0:11]*disp*(1-dispmod)+\
intgen[1:(dimensions[0]+1), 2:(dimensions[1]+2), 0:11]*disp*(1+dispmod)
#print intgen[:,18:22,:]
#selection acts
#(selection vector is being multiplied with the genotype array)
gametes=intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), :]*selector
#gamete ratios, from the genotypes arry every vector along axis 2 (= genotype axis)
#is being multiplied with the genotype conversion matrix
#subsequently, the rowsums are being calculated resulting in a vector of gamete ratios
#"apply_along_axis(function, 2, 3Darray)" is similar to "apply(3D array, c(1,2), function)" in R
gametes=np.apply_along_axis(ggr, 2, gametes)
# print gametes[:,19:23,:]
#back to genotypes. this where drift is acting, cf. gasa function
intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), 0:11]=np.apply_along_axis(gasa, 2, gametes)
genot['c']+=1
#print genot['c']
genot['g']=intgen[1:(dimensions[0]+1), 1:(dimensions[1]+1), :]
return genot
def __main__():
#get global variable "selector"
params()
print 'Selection vector', selector
genotypes=initialise()
# print genotypes['g'] #for debug only
paramtab = open('sm%1.3f_dm%1.3f_sf%1.3f_df%1.3f_sh%1.3f_sd%1.3f_sc%1.3f_disp%1.3f_grad%1.3f_run%03d_gens%05d.tab'%\
(sm, dm, sf, df, sh, sd, sc, disp, grad, run, genotypes['c']), 'w')
paramtab.write('Yint\tYslope\tYcent\tFint\tFslope\tFcent\n')
for i in range(1000):
genotypes=tgb(genotypes, 10)
Fh=Fhits(genotypes['g'][:, :, 0:11]).flatten()
Fm=Fmisses(genotypes['g'][:, :, 0:11]).flatten()
Yh=Yhits(genotypes['g'][:, :, 0:11]).flatten()
Ym=Ymisses(genotypes['g'][:, :, 0:11]).flatten()
yvals=stm.tools.add_constant(np.tile(np.arange(genotypes['g'].shape[1]),genotypes['g'].shape[0]))
genotypes['modelparams']=[]
glmy=stm.GLM(np.column_stack((Yh, Ym)), yvals, family=stm.families.Binomial())
glmyp=glmy.fit().params
genotypes['modelparams'] += [glmyp[0], glmyp[1], -glmyp[0]/glmyp[1]]
glmf=stm.GLM(np.column_stack((Fh, Fm)), yvals, family=stm.families.Binomial())
glmfp=glmf.fit().params
genotypes['modelparams'] += [glmfp[0], glmfp[1], -glmfp[0]/glmfp[1]]
pickle.dump(genotypes, gzip.open('sm%1.3f_dm%1.3f_sf%1.3f_df%1.3f_sh%1.3f_sd%1.3f_sc%1.3f_disp%1.3f_grad%1.3f_run%03d_gens%05d.pyd.gz'%\
(sm, dm, sf, df, sh, sd, sc, disp, grad, run, genotypes['c']), 'w'))
out = gzip.open('sm%1.3f_dm%1.3f_sf%1.3f_df%1.3f_sh%1.3f_sd%1.3f_sc%1.3f_disp%1.3f_grad%1.3f_run%03d_gens%05d.csv.gz'%\
(sm, dm, sf, df, sh, sd, sc, disp, grad, run, genotypes['c']), 'w')
out.write(str(genotypes['g'].shape)[1:-1]+'\ny\tFhit\tFmis\tYhit\tYmis\n')
np.savetxt(out, np.column_stack((yvals[:,1], Fh, Fm, Yh, Ym)), "%d", delimiter='\t')
out.close()
if genotypes['trans'][0]==0:
if genotypes['modelparams'][2] < 0 or genotypes['modelparams'][2] > genotypes['g'].shape[1]:
genotypes['trans'][0]=1
if genotypes['trans'][1]==0:
if genotypes['modelparams'][5] < 0 or genotypes['modelparams'][5] > genotypes['g'].shape[1]:
genotypes['trans'][1]=1
print "Generation %d, cline centres: %3.2f and %3.2f" % (genotypes['c'], genotypes['modelparams'][2], genotypes['modelparams'][5])
paramtab.write('\t'.join(str(genotypes['modelparams'])[1:-1].split(', '))+'\n')
if 0 not in genotypes['trans']:
print 'Both variants fixed. Break.'
break
paramtab.close()
__main__()