Ah ha!   Muchas gracias Olivier.  Creo que es hora de ir por mas cafe ;-)

Un saludo,
Jorge


2011/4/13 Olivier Nuñez <>

> Igual, lo siguiente te vale:
>
> > foo<-function(x) { y=format(x, digits=2,scientific = TRUE);
> sub("e","x10",y)}
> > foo(x)
>  [1] "1.7x10-04" "7.6x10-04" "1.3x10-04" "2.9x10-04" "5.6x10-04"
> "7.8x10-04" "7.8x10-04" "1.4x10-04" "3.2x10-04" "8.5x10-05"
>
> Un saludo. Olivier
> -- ____________________________________
>
> Olivier G. Nuñez
> Email: onunez@iberstat.es
> Tel : +34 663 03 69 09
> Web: http://www.iberstat.es
>
> ____________________________________
>
>
>
>
> El 13/04/2011, a las 22:23, Jorge Ivan Velez escribió:
>
>
>  Hola a todos,
>>
>> Tengo un vector con valores en _P_
>>
>> x <- c(0.0001709122, 0.0007623474, 0.0001319547, 0.0002868035,
>> 0.0005602669,
>> 0.0007825347, 0.0007822033, 0.0001444821, 0.000324731, 8.4686e-05)
>> x
>>
>> Y me gustaria cambiar un poco el formato.  Conoce alguien alguna function
>> "foo" tal que foo(x) produzca
>>
>> "1.7x10(-4)"  "7.62x10(-4)"  "1.3x10(-4)" ..... "8.46x10(-5)"
>>
>> ?
>>
>> Muchas gracias,
>>      Jorge Ivan Velez
>>
>
>

	[[alternative HTML version deleted]]

