<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Te paso un documento que puede
servirte,<br>
<br>
Saludos.<br>
<br>
<br>
El 25/08/13 17:59, Jorge I Velez escribió:<br>
</div>
<blockquote cite="mid:4573766492986660784@unknownmsgid" type="cite">
<meta http-equiv="content-type" content="text/html;
charset=ISO-8859-1">
<div>Gracias, Jorge. Y cual fue la solucion a la que llegaron?
--JIV</div>
<div><br>
Sent from my phone. Please excuse my brevity and misspelling. </div>
<div><br>
On Aug 25, 2013, at 8:36 AM, Jorge Ayuso Rejas <<a
moz-do-not-send="true" href="mailto:jayusor@gmail.com">jayusor@gmail.com</a>>
wrote:<br>
<br>
</div>
<blockquote type="cite">
<div>
<div dir="ltr">Esto lo hice yo en una práctica en la
universidad,
<div>
Definíamos un problema de optimización entera minimizando
el error de redondeo y restringiendo a la suma de filas y
columnas.</div>
<div><br>
</div>
<div><br>
</div>
<div>
<div><br>
</div>
</div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">El 23 de agosto de 2013 19:05,
Jorge I Velez <span dir="ltr"><<a
moz-do-not-send="true"
href="mailto:jorgeivanvelez@gmail.com" target="_blank">jorgeivanvelez@gmail.com</a>></span>
escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Buenas
tardes a tod@s,<br>
<br>
Me gustaria redondear las entradas de una matriz m
manteniendo la suma de<br>
filas y columnas constantes (son valores fijos
conocidos). En la<br>
aplicacion que estoy trabajando (en la que por supuesto
m tiene una<br>
dimension mayor que en el ejemplo), no son permitidos
numeros decimales y<br>
por ello debe efectuarse el redondeo.<br>
<br>
La forma de m es:<br>
<br>
m <- matrix(c(3.546, 4.5345, 1.9195,<br>
12.332, 15.982, 21.686,<br>
4.122, 9.4835, 16.3945), ncol = 3, byrow =
TRUE)<br>
colnames(m) <- paste0('C', 1:3)<br>
rownames(m) <- paste0('X', 1:3)<br>
m<br>
# C1 C2 C3<br>
# X1 3.546 4.5345 1.9195<br>
# X2 12.332 15.9820 21.6860<br>
# X3 4.122 9.4835 16.3945<br>
<br>
Los totales (por filas y columna, todos fijos) son los
siguientes<br>
<br>
(TotalColumna <- colSums(m))<br>
(TotalFila <- rowSums(m))<br>
<br>
Si procedo haciendo<br>
<br>
m2 <- round(m, 0)<br>
m2<br>
<br>
es claro que los totales fila y columna no se mantienen<br>
<br>
colSums(m2) # columna<br>
rowSums(m2) # fila<br>
<br>
Alguna idea de como efectuar el redondeo? Muchisimas
gracias de antemano.<br>
<br>
Saludos,<br>
Jorge Velez<br>
<br>
[[alternative HTML version deleted]]<br>
<br>
_______________________________________________<br>
R-help-es mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a moz-do-not-send="true"
href="https://stat.ethz.ch/mailman/listinfo/r-help-es"
target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</blockquote>
</div>
<br>
<br clear="all">
<div><br>
</div>
-- <br>
Jorge Ayuso Rejas<br>
</div>
</div>
</blockquote>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">--
Jorge Ayuso Rejas</pre>
</body>
</html>