#### display the original image in a "OrthIm" object.
data(pirate);
#create OrthIm object from image
obj <- new("OrthIm",img = img,filename = "");
momentType(obj) = "cheby";
setOrder(obj) = c(200,200);
#display original image
displayImg(obj@I);
## Not run:
# #analyze image
# Moments(obj) = 0;
# Reconstruct(obj) = NULL;
#
# #display reconstructed image
# displayImg(obj@reconstruction)
# ## End(Not run)
## Not run:
# #### display a list of images from a "MultiIm" object.
# data(characters)
# #take a small subset
# img = img[1:5];
# #analyze images
# obj= momentObj(I=img, type = "cheby", order = c(dim(img[[1]])[2],dim(img[[1]])[1]) );
# Reconstruct(obj)= NULL;
#
# #display original images
# displayImg(obj@imageList);
#
# #display reconstructed images
# displayImg(obj@reconstruction);
# ## End(Not run)
Run the code above in your browser using DataLab