Nothing
#convertir les mu (multi dim, plusieurs groupes) en une matrice
liste3d2mat=function(liste)
{
g=length(liste)
d=length(liste[[1]])
m=rep(0,d)
for(i in 1:d)
m[i]=length(liste[[1]][[i]])
mu=matrix(0,g,sum(m))
rownom=rep(0,g)
colnom=rep("",sum(m))
for(j in 1:g)
{
compteur=1
rownom[j]=paste0("cl",j)
for(i in 1:d)
{
colnom[compteur]=paste0("dim",i)
for(k in 1:m[i])
{
mu[j,compteur]=liste[[j]][[i]][k]
compteur=compteur+1
}
}
}
colnames(mu)=colnom
rownames(mu)=rownom
return(mu)
}
liste2d2matD=function(liste)
{
d=length(liste)
m=rep(0,d)
for(i in 1:d)
m[i]=length(liste[[i]])
mu=matrix(0,1,sum(m))
colnom=rep("",sum(m))
compteur=1
for(i in 1:d)
{
colnom[compteur]=paste0("dim",i)
for(k in 1:m[i])
{
mu[1,compteur]=liste[[i]][k]
compteur=compteur+1
}
}
colnames(mu)=colnom
return(mu)
}
#convertir les mu (1 dim, plusieurs groupes) en une matrice
liste2d2matG=function(liste)
{
g=length(liste)
m=length(liste[[1]])
mu=matrix(0,g,m)
rownom=rep(0,g)
colnames(mu)=c("dim1",rep("",m-1))
for(i in 1:g)
{
rownom[i]=paste0("cl",i)
for(k in 1:m)
{
mu[i,k]=liste[[i]][k]
}
}
rownames(mu)=rownom
return(mu)
}
#convertir les mu (1 dim, plusieurs groupes) en une matrice
listedistPartiel=function(liste)#,index)
{
n=length(liste)
d=length(liste[[1]])
mu=matrix(ncol=d,nrow=n)
#rownames(mu)=index
colnames(mu)=paste0("dim",c(1:d))
for(i in 1:n)
mu[i,]=liste[[i]]
return(mu)
}
partition<-function(row)
{
return(which(row==max(row))-1)
}
#####convertir liste en array
liste3d2array=function(liste)
{
iter=length(liste)
d=nrow(liste[[1]])
g=ncol(liste[[1]])
tab=array(dim=c(iter,g,d))
for(i in 1:iter)
{
tab[i,,]=t(liste[[i]])
}
return(tab)
}
tliste3d2mat=function(liste)
{
d=length(liste)
g=length(liste[[1]])
m=rep(0,d)
for(i in 1:d)
m[i]=length(liste[[i]][[1]])
mu=matrix(0,g,sum(m))
rownom=rep(0,g)
colnom=rep("",sum(m))
for(j in 1:g)
{
compteur=1
rownom[j]=paste0("cl",j)
for(i in 1:d)
{
colnom[compteur]=paste0("dim",i)
for(k in 1:m[i])
{
mu[j,compteur]=liste[[i]][[j]][k]
compteur=compteur+1
}
}
}
colnames(mu)=colnom
rownames(mu)=rownom
return(mu)
}
liste2d2matgd=function(liste)
{
d=length(liste)
g=length(liste[[1]])
mat=matrix(ncol=d,nrow=g)
colnames(mat)=paste0("dim",1:d)
rownames(mat)=paste0("cl",1:g)
for(i in 1:d)
mat[,i]=liste[[i]]
return(mat)
}
liste3d2listematgd=function(liste)
{
d=length(liste[[1]])
g=length(liste[[1]][[1]])
coln=paste0("dim",1:d)
rown=paste0("cl",1:g)
outliste=lapply(liste,FUN=function(x)
{
mat=matrix(ncol=d,nrow=g)
colnames(mat)=coln
rownames(mat)=rown
for(i in 1:d)
mat[,i]=x[[i]]
return(mat)
})
return(outliste)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.