if (FALSE) {
data(nov3)
data(july3)
par(mfrow=c(2,2))
image(nov3)
image(july3)
nov3.newR <- relnorm(master=july3, tofix=nov3)
image(nov3.newR$newimage)
nov3.newH <- histmatch(master=july3, tofix=nov3)
image(nov3.newH$newimage)
}
Run the code above in your browser using DataLab