data(nc.sids)
ft.SID74 <- sqrt(1000)*(sqrt(nc.sids$SID74/nc.sids$BIR74) +
sqrt((nc.sids$SID74+1)/nc.sids$BIR74))
print(sp.correlogram(sidsorig.nb, ft.SID74*sqrt(nc.sids$BIR74), order=8,
method="corr", zero.policy=TRUE))
print(sp.correlogram(sidsorig.nb, ft.SID74*sqrt(nc.sids$BIR74), order=8,
method="I", zero.policy=TRUE))
plot(sp.correlogram(sidsorig.nb, ft.SID74*sqrt(nc.sids$BIR74), order=8,
method="corr", zero.policy=TRUE))
drop.no.neighs <- !(1:length(sidsorig.nb) %in% which(card(sidsorig.nb) == 0))
sub.sidsorig.nb <- subset(sidsorig.nb, drop.no.neighs)
plot(sp.correlogram(sub.sidsorig.nb, subset(ft.SID74*sqrt(nc.sids$BIR74),
drop.no.neighs), order=8, method="corr"))Run the code above in your browser using DataLab