Hola Javier.

No sé si estoy entendiendo bien. ¿Sucede que el objeto x es algo no
esperado?

Yo he corrido tu código y no me sucede lo que creo entender. Este ha sido
mi resultado:

A <- matrix(c(1, 1, 1, 1, 1,
              4, 5, 6, 7, 8,
              0, 0, 0, 1,-1,
              0, 0, 0, 0, 1,
              1, 0, 0, 0, 0
), nrow=5,byrow=T )
b <- c(40+1, 208, 0, 2, 14)
x <- solve(A,b)



> A <- matrix(c(1, 1, 1, 1, 1,
+               4, 5, 6, 7, 8,
+               0, 0, 0, 1,-1,
+               0, 0, 0, 0, 1,
+               1, 0, 0, 0, 0
+ ), nrow=5,byrow=T )
> b <- c(40+1, 208, 0, 2, 14)
> x <- solve(A,b)
> x
[1] 14 16  7  2  2
> class(x)
[1] "numeric"


¿Será tu sistema operativo, tu versión de R, ambas, quizá?

Salud.


2012/11/9 Javier Villacampa González <javier.villacampa.gonzalez@gmail.com>

> Hace poco me ha pasado una cosa curiosa y soy incapaz de arreglara.
> Utilizando la función solve
> A <- matrix(c(1, 1, 1, 1, 1,
>               4, 5, 6, 7, 8,
>               0, 0, 0, 1,-1,
>               0, 0, 0, 0, 1,
>               1, 0, 0, 0, 0
> ), nrow=5,byrow=T )
> b <- c(40+1, 208, 0, 2, 14) # Jugar con los dos utlimos parametros hasta
> encontrar la solución
> x <- solve(A,b)
>
> > x[1] 14 16  7  2  2
>
>
> Pero
>
> > x[1] == 14[1] FALSE> x[1][1] 14
>
> Pueden replicar este resultado. ¿Por qué ocurre esto? ¿Es porque es un
> objeto s3?
>
> He intentado solucionarlo con
> x <- as.integer(x)
> Pero tampoco.
> La verdad que esto me tiene un poco mosqueado.
>
> Gracias por adealantado.
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
«But Gwindor answered: 'The doom lies in yourself, not in your name.'»

JRR Tolkien

	[[alternative HTML version deleted]]

