# NOT RUN {
# Obtaining correlations through the origin;
# compare with Table 3 in Bauwens and Diaz-Uriarte (1997).
data(Lacertid.IC)
cor.lacert <- matrix(nrow=7,ncol=7)
for (i in 1:7) for (j in 1:7)
cor.lacert[i,j] <- cor.origin(Lacertid.IC[[i]],Lacertid.IC[[j]])
cor.lacert
# }
# NOT RUN {
# This data frame can be obtained from the fic data files as:
LacertidIC <- cbind(read.table("ifsmi.fic")[,c(3,4)],
read.table("ihshw.fic")[,c(3,4)],
read.table("iclag.fic")[,c(3,4)],
read.table("icfxx.fic")[,3])
stand <- read.table("ifsmi.fic")[,5]
LacertidIC <- LacertidIC/stand
LacertidIC$contr <- read.table("ifsmi.fic")[,1]
names(LacertidIC) <- c("svl","svl.matur", "hatsvl", "hatweight",
"clutch.size", "age.mat","cl.freq","contr")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab