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]]
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 en 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
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]]
Hola,
Por si ayuda también...
foo<-function(x) {
y<-formatC(x,format="e", digits=2)
z<-as.character(y)
v<-gsub("e","x10(",z)
w<-paste(v,")",sep="")
return(w)
}
Saludos,
Carlos Ortega
www.qualityexcellence.es
2011/4/13 Jorge Ivan Velez <jorgeivanvelez@gmail.com>
> 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]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
[[alternative HTML version deleted]]