dist.cid <- matrix(data=c(0,3949,3000,3927,3949,0,1273,3188,3000,1227,0,1827,3927,3188,1827,0),4,4)
colnames(dist.cid, do.NULL = FALSE)
colnames(dist.cid) <- c("Atenas","Madri","Paris","Estocolmo")
rownames(dist.cid,do.NULL=FALSE)
rownames(dist.cid) <- c("Atenas","Madri","Paris","Estocolmo")
#outra maneira
dist.cid <- matrix(data= c(0,3949, 3000, 3927, 3949, 0, 1273, 3188, 3000, 1273, 0, 1827, 3927, 3188, 1827,0) ,nrow= 4, ncol=4 )
colunas <-c("Atenas","Madri","Paris","Estocolmo")
linhas<- c("Atenas","Madri","Paris","Estocolmo")
colnames(dist.cid)<- colunas
rownames(dist.cid)<-linhas