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. The migration of unskilled youth: Is there any wage gain?2. ARE VOLATILITY EXPECTATIONS CHARACTERIZED BY REGIME SHIFTS? EVIDENCE FROM IMPLIED VOLATILITY INDICES
3. Conflict and Uncertainty: A Dynamic Approach
4. Activation of s28-dependent transcription in Escherichia coli by the cyclic AMP receptor protein requires an unusual promoter organization
5. A Multimodal Framework for Computer Mediated Learning: The Reshaping of Curriculum Knowledge and Learning
6. ISSUES AND PROBLEMS OF IMMEDIATE CONCERN
7. The Demand for Specialty-Crop Insurance: Adverse Selection and Moral Hazard
8. Monopolistic Pricing in the Banking Industry: a Dynamic Model
9. Foreign direct investment in the Indian telecommunications sector
10. Housing Market in Malaga: An Application of the Hedonic Methodology