# NOT RUN {
# Simulate data and co-clustering
set.seed(12345)
X = simulateData2(n = 50, p = 50, t = 15)
# }
# NOT RUN {
# Co-clustering with funLBM
out = funLBM(list(X$data1,X$data2),K=4,L=3)
# Visualization of results
plot(out,type='blocks')
plot(out,type='proportions')
plot(out,type='means')
# Evaluating clustering results
ari(out$col_clust,X$col_clust)
ari(out$row_clust,X$row_clust)
# }
Run the code above in your browser using DataLab