Appendix В
R Codes
B.l Generate и and v as shown in Section 3.4
## Copula simulation (From Nelsen (1986) p.3282)
copula.sim < — function(nn,copula.type,alphaa) {
if (copula.type == 1){ #Frank.copula.type=l
xxl < — as.double(runif(nn,0,l))
vv < — as.double(runif (nn,0,l))
numm < — as.double(vv*(alphaa -1))
denomm < — as.double((alphaa^xxl)*(l-vv)+ vv)
xx2 < — as.double(logb(l + numm∕denomm,alphaa)) }
par (mfrow=c ( 1,1 ) )
plot(xxl,xx2,xlim=c(0,l),ylim=c(0,l), main “Simulated Copula Data”)
103
More intriguing information
1. Spatial agglomeration and business groups: new evidence from Italian industrial districts2. AN EXPLORATION OF THE NEED FOR AND COST OF SELECTED TRADE FACILITATION MEASURES IN ASIA AND THE PACIFIC IN THE CONTEXT OF THE WTO NEGOTIATIONS
3. Credit Market Competition and Capital Regulation
4. Rent-Seeking in Noxious Weed Regulations: Evidence from US States
5. The Impact of Minimum Wages on Wage Inequality and Employment in the Formal and Informal Sector in Costa Rica
6. Education and Development: The Issues and the Evidence
7. The name is absent
8. The name is absent
9. QUEST II. A Multi-Country Business Cycle and Growth Model
10. A Study of Prospective Ophthalmology Residents’ Career Perceptions