Oh.

Entiendo mejor.

Si hago la prueba de igualdad del primer componente que nos muestras y hace
Carlos, tampoco tengo FALSE como resultado:

> x[1]==14
[1] TRUE

Aunque creo que esto no ayuda mucho :-\

Salud.


2012/11/9 Carlos Ortega <cof@qualityexcellence.es>

> Hola Javier,
>
> Sí, me pasa lo mismo.
>
> Esto es debido a que los componentes del vector x[1] no se están
> almacenando de la misma forma.
> Pero son iguales, lo puedes comprobar con la función all.equal()
>
> #############################
> > 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
> [1] FALSE
> >
> > all.equal(x[1], 14)
> [1] TRUE
> > all.equal(14, x[1])
> [1] TRUE
> > identical(x[1], 14)
> [1] FALSE
> > isTRUE(all.equal(x[1], 14))
> [1] TRUE
>
> #############################
>
> Este comportamiento extraño ya es conocido, mira este ejemplo en la ayuda
> de "==":
>
> > x1 <- 0.5 - 0.3
> > x2 <- 0.3 - 0.1
> > x1 == x2                           # FALSE on most machines
> [1] FALSE
> > identical(all.equal(x1, x2), TRUE) # TRUE everywhere
> [1] TRUE
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> El 9 de noviembre de 2012 15:51, Javier Villacampa González <
> javier.villacampa.gonzalez@gmail.com> escribió:
>
> > 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
> >
> >
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>         [[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]]

