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. How we might be able to understand the brain2. The name is absent
3. How to do things without words: Infants, utterance-activity and distributed cognition.
4. Strategic Planning on the Local Level As a Factor of Rural Development in the Republic of Serbia
5. WP 48 - Population ageing in the Netherlands: Demographic and financial arguments for a balanced approach
6. Review of “From Political Economy to Economics: Method, the Social and Historical Evolution of Economic Theory”
7. Errors in recorded security prices and the turn-of-the year effect
8. 5th and 8th grade pupils’ and teachers’ perceptions of the relationships between teaching methods, classroom ethos, and positive affective attitudes towards learning mathematics in Japan
9. Conflict and Uncertainty: A Dynamic Approach
10. Imperfect competition and congestion in the City