mis.ejes<-
 function(lado, lugar, etiquetas, ...)
 {
 
 	for(i in seq(along = lugar))
 		axis(side = lado, at = lugar[i], labels = etiquetas[i], ...)
 }