X=Mm(c(5,52,25,16,7,19, 8,44,36,11,15,28, 12,33,36,9,32,28, 14,23,35,7,55,29, 16,16,35,7,81,29, 15,11,36,6,99,31, 14,9,32,7,108,37),col=6) X=X/15 cat(file='uff','') for (j in 1:6) {v=X[,j] z=Sme.biprofilo(v,10,dir=2) z=round(z,2) cat(file='uff','[',append=T) cat(file='uff',A.coo(z),sep=',',append=T,fill=T) cat(file='uff','],\n',append=T)}