try this code
clc; close all; clear all;
I=imread('wpeppers.jpg');
figure('Name','inputimage'),imshow(I)
figure,
% compression
[cr,bpp] = wcompress1('c',I,'woodstatue.wtc', ...
'spiht','cc','klt','maxloop',11,'plotpar','plot');
%un compression
Xc = wcompress1('u','woodstatue.wtc'); delete('wpeppers.wtc')
figure,imshow(Xc);