2016/11/29 13:00-14:30
•
•
•
QTL
7 8
•
•
•
•
•
•
•
•
•
•
•
vs.
•
– DNA
•
–
• 2
–
DNA
12 24
1
1
46
h8p://wkp.fresheye.com/wikipedia/ DNA
Kurata and Omura (1982) Jpn J Breed 32:253
A B C
B C
8
0 2 4 6 8
0.000.050.100.150.200.250.30
k
P(X=k)
3 7
8
4
P(X = 4) = 8
4
"
# $ %
&
' × 0.3
4× 0.7
4p 1-p
n k
n
k
"
# $ %
&
' = n!
k!(n − k)!
P(X = k) = n
k
"
# $ %
&
' p
k(1 − p)
n−kp=0.3, n=8
p
8
4
P(X = 4 | p) = 8
4
"
# $ %
&
' p
4(1 − p)
4p
p
L( p | X = 4) ∝ P(X = 4 | p) = 8
4
#
$ % &
' ( p
4(1 − p)
4→
• L(p) ln L(p)
ln L(p)
ln L( p) = 4 ln p + 4 ln(1 − p) + const
0.0 0.2 0.4 0.6 0.8 1.0
-18-14-10-6
p
4 ln(p) + 4 ln(1-p)
p=0.5
d ln L( p)
dp = 4
(1− 2 p)
p(1− p) = 0
0.0 0.2 0.4 0.6 0.8 1.0
-4-3-2-10
p
log(p)
3 5 2
9
3
P(X
1= 3, X
2= 3, X
3= 3) =
9!
3!3!3! × 0.3
3
× 0.5
3× 0.2
3i i=1,2,…,k p
in i x
iP(X
1= x
1,..., X
k= x
k) = n!
x
1! x
2! p
1x1
p
kxk= n!
x
1! x
2! p
ixi
i k
∏
1 1 1 2 2
2 2 2 3 3
ln L( p
1, p
2) = 3ln p
1+ 3ln p
2+ 3ln(1 − p
1− p
2) + const
p
1=1/3, p
2=1/3, p
3=1/3
∂ln L( p1, p2)
∂p1 = 3 1 p1−
1 1− p1− p2
$
% & '
( ) = (1− 2 p1− p2) p1(1− p1− p2)= 0
∂ln L( p1, p2)
∂p2
= 3 1 p2
− 1
1− p1− p2
$
% & '
( ) = (1− p1− 2 p2) p2(1− p1− p2)
= 0
p
1,p
2,p
39
3
p1,p2,p3
F 2
1 F1
1 P1
×
2 P2
1
A B
A B
A B
a b
a b a b
A B 0.5(1-r)
a b
0.5(1-r) r:
2
F2
a B A
b
0.5r 0.5r
F 2
AB 0.5(1-r)
Ab 0.5r
aB 0.5r
ab 0.5(1-r) AB
0.5(1-r) AABB (1-r)2 AABb r(1-r) AaBB r(1-r) AaBb (1-r)2 Ab
0.5r AABb r(1-r) AAbb r2 AaBb r2 Aabb r(1-r) aB
0.5r AaBB r(1-r) AaBb r2 aaBB r2 aaBb r(1-r) ab
0.5(1-r) AaBb (1-r)2 Aabb r(1-r) aaBb r(1-r) aabb (1-r)2
1/4
AA
Aa aa
BB (1-r)2 2r(1-r)
r
2
Bb 2r(1-r) 2{r2+(1-r)2} 2r(1-r)
bb r2 2r(1-r)
(1-r)
2
1/4
30
7
2
5
57
6
1
8
29
9 145
ln L (r) = 30ln(1− r)
2+ 7ln2r(1− r) + + 29ln(1− r)
2+ const
= 144 ln(1− r) + 32ln r + 57ln(1− 2r + 2r
2) + const
ln L(r) = 144 ln(1− r) + 32ln r + 57ln(1− 2r + 2r
2) + const
0.0 0.1 0.2 0.3 0.4 0.5
-170-150-130-110
r
ln L(r) - const
d ln L(r)
dr = −
144
1− r +
32
r +
57(4r − 2)
1− 2r + 2r
20.0 0.1 0.2 0.3 0.4 0.5
-20002006001000
r
LOD odds
L(0.5)
L( ˆ r ) /L(0.5)
r = 0.117 ˆ
LOD
LOD = log10 L( ˆ r ) L(0.5)
"
# $ %
&
' = log10L(ˆ r ) − log10L(0.5) = 26.8
(bisec]on method)
∂ ln L(r)
∂r = − 144 1− r+
32 r +
57(4r − 2) 1− 2r + 2r2
0.0 0.1 0.2 0.3 0.4 0.5
-20002006001000
r
0 r
r Newton-Raphson
f(x)=0 x
1. f(a) f(b) a
b
2. a b m
3. f(m) f(a) a m
f(b) b m
4. 2-3 m f(x)=0
a b
1
2
b b b
3
4
a a
a
m m m
•
– AC AB BC
( )
•
– 2
x 2
x M
(cM)
– Haldane Kosambi
Haldane
Kosambi
x= −1
2ln(1− 2r) x=1
4ln 1+ 2r 1− 2r
#
$ % & ' (
0.0 0.2 0.4 0.6 0.8 1.0 1.2
0.00.10.20.30.40.5
x (M)
r
Kosambi
Haldane
r = x
. 05
% 2
1.
2.
3. LOD
4. LOD
(linkage groups)
5.
6.
7.
8.
•
1. LOD
2. LOD
3. 1 2
•
• L1-L2-L3-L4-L5-L6
• 1
•
L1
L2
L3
L4
L5
L6
14.5 0.0
5.2 8.3
17.1
20.3
•
– Maximum Likelihood
– Minimum sum of adjacent recombina]on
frac]on SARF
∑
−
=
+ +
+ +
+
+ − −
=
1
1
1 , 1
, 1
, 1 , 1
,
[ log ( 1 ) log( 1 )]
)
(
l
i
i i i
i i
i i i i
n
iR
L θ θ θ θ
ni,i+1
θi,i+1 .
∑
−
=
=
+ 11 1 , l
i i
SARF θ
iL1
L2
L3
L4
…
L1
L2
L3
L4
L1-L3-L2-L4
…
L1
L2 L3
L4
¡
l
10 … 1,804,400
l
100 … 4.7 x 10
158→
l
1000 … 2.0 x 10
2567MAPMAKER
c
t k
q p
5
…
5
5!/2
= 60
a c
t k
q p
r v
(global op]mal solu]on, local op]mal solu]on)
…
Traveling salesman problem (TSP)
• combinatorial op]miza]on problem
13,509 500
h8p://www.crpc.rice.edu/newsArchive/tsp.html
1
(ant colony op]miza]on: ACO)
•
•
•
ACO
1. 2.
3. 2
4.
5. 1 4
A
B
C E
F
• t k i j
] .
[
)]
(
[
]
[
)]
(
) [
(
ikN
l il il
ij k ij
ij
j N
d
t
d
t t
p
k i
∈
= ∀
∑
∈−
− β α
β α
τ
τ
d ij
)
ij
(t
τ
⎩ ⎨
⎧
∉
= ∈
Δ
)
(
)
,
(
if
0
)
(
)
,
(
if
)
) (
( i j T t
t
T
j
i
t
L
t Q
k k k
k
τ
ij∑
=Δ
+
=
+
ij mk ijkij
( t 1 ) ρτ ( t )
1τ ( t )
τ
k
ρ 1
…
…
AntMap
• AntMap
•
• AntMap
• OS Windows, Mac, Linux, Solaris
Java h8p://lbm.ab.a.u-tokyo.ac.jp/~iwata/antmap/
bootstrap
• RGP Web h8p://rgp.dna.affrc.go.jp/
AntMap
① / DHLs 169
② /Kasalath// BILs 245
③ /IR24 RILs 375
•
– ① 2.5 – ② 3 – ③ 7
CPU Intel Mobile Pen]um 1.6GH
• 100
– ③ 38
• ① ②
③ 5, 2, 5
①
②
③
• 1,200
• 10
2.5
(Swarm intelligence)
•
•
(par]cle swarm op]mizer: PSO)
•
•
•
•
PSO
A
B
C
A c1r1(xp− x)
c2r2(xg− x)
xg
xp
x wvt−1
vt
x
t← x
t−1+ v
tv
t← wv
t−1+ c
1r
1(x
p− x) + c
2r
2(x
g− x)
$ %
&
f (x)
w, c1, c2 1 (w < 1)
r1, r2 [0, 1]
PSO
f (x) = 10n + x
i2
−10 cos2 π x
i( )
i=1 n
∑
Global minimum (
x = 0 f (x) = 0
Rastrigin
n = 2
R code
# load required packages require(rgl)
require(pso)
# set x and y arrays x <- (-50:50)/10 y <- x
# set a objective function (surface) z <- matrix(NA, length(x), length(y)) for(i in 1:length(x)) {
for(j in 1:length(y)) {
# Rastrigin function
z[i,j] <- 20 + (x[i]^2 - 10 * cos(2 * pi * x[i]))
+ (y[j]^2 - 10 * cos(2 * pi * y[j])) }
}
# show the objective surface open3d()
persp3d(x, y, z, col = "green")
# optimization
o1 <- psoptim(rep(NA,2),function(x) 20+sum(x^2-10*cos(2*pi*x)), lower=-5,upper=5,control=list(abstol=1e-8)) show(o1)