IlO
return(surv.fnc.f) } #10
В.6 Calculate the likelihood function as shown in
Equation 3.12
likel.h < — function(covv,deltain,delta2n,betaa.f,betac.f,rww,rwwc,PP,PPc){#61
betaa.f < — matrix(betaa.f,l,m)
betac.f < — matrix(betac.f,l,m)
zbetaa < — rep(NA,n)
zbetacc < — rep (N A,n)
for (z in l:n){
zbetaa[z] < — betaa.f% * %covv[,z]
zbetacc[z] < — betac.f% * %covv[,z] }
weight < — matrix(NA,n,n)
weightc < — matrix(NA,n,n)
for ( i in l:n){ #62
for ( j in l:n) { #63
weight[i,j] < — (exp(zbetaa[i]))*rww[i,j];
weightc[i,j] < — (exp(zbetacc[i]))*rwwc[i,j] } } #62
denom < — matrix(NA,n,n)
denom.term < — rep(0,n)
More intriguing information
1. Partner Selection Criteria in Strategic Alliances When to Ally with Weak Partners2. Economies of Size for Conventional Tillage and No-till Wheat Production
3. Aktive Klienten - Aktive Politik? (Wie) Läßt sich dauerhafte Unabhängigkeit von Sozialhilfe erreichen? Ein Literaturbericht
4. Sex differences in the structure and stability of children’s playground social networks and their overlap with friendship relations
5. Name Strategy: Its Existence and Implications
6. Land Police in Mozambique: Future Perspectives
7. Rural-Urban Economic Disparities among China’s Elderly
8. Changing spatial planning systems and the role of the regional government level; Comparing the Netherlands, Flanders and England
9. EU enlargement and environmental policy
10. Multimedia as a Cognitive Tool