#Generating the Sample Data
N=1000;
dim_x=10;
sigma_x=1;
set.seed(100);
s1_2=290;
s2_2=300;
c1=-0.3;
c2=0.925;
u1=sqrt(s1_2)*matrix(rnorm(N),ncol=1);
u2=sqrt(s2_2)*matrix(rnorm(N),ncol=1);
u3=c1*u1+c2*u2;
s3_2=c1^2*s1_2+c2^2*s2_2;
Xraw=cbind(u1,u1,u1,u1,u2,u2,u2,u2,u3,u3);
#Xraw=cbind(rep(u1,4),rep(u2,4),u3,u3);
X=Xraw+sigma_x*matrix(rnorm(N*dim_x),ncol=dim_x)
#Run_JTree, Give the full treelet decomposition
k=1;
maxlev=dim(X)[2]-k;
output=Run_JTree(X,maxlev);
# Display the output image
#library(matlab)
#imagesc(output$basis)
#Display the output in tree structure
#draw_tree(output)Run the code above in your browser using DataLab