# The data can be obtained via the count.model and freq.model calibrations.
# These procedures are not repeated here.
data(Poptri.freq.baseline)
data(Poptri.freq.future)
Poptri.baseline.moon <- moon.waxer(Poptri.freq.baseline,
sort.index="Latitude.index")
Poptri.future.moon <- moon.waxer(Poptri.freq.future,
sort.index="Latitude.index",
freq.focus="Freq.e2",
ypos=1)
ggmoon1 <- shift.moon.ggplot(Poptri.baseline.moon,
Poptri.future.moon)
ggmoon1
Run the code above in your browser using DataLab