<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>