return( )

~~DISCUSSION~~

Como faço para fazer com que a função me retorne mais de um cálculo?

Tentei colocar o return de várias maneiras, mas nao consigo…queria que ela me retornasse cent e cent.size

centroide = function (X)    
{
M = X[,sapply(X,is.numeric)]
cent=apply(M,2,mean)
cent
return(cent)
p<-dim(M)[1]
size<-sqrt(sum(apply(M,2,var))*(p-1))
cent.size=list("centroid_size"=size,"scaled"=M/size)
cent.size                                                                          
return(cent.size)
}