Re: [R-es] Expresión en un objeto

2023-08-15 Thread Griera-yandex
("ifelse (! is.na (((", ORD, > > "-V1)/V1)*100), ifelse (((", ORD, "-V1)/V1)*100 > 0, '1', '0'), NA)"))) > > V4 > [1] "0" "0" "0" "0" "0" "0" "1" "0" "1" "

Re: [R-es] Expresión en un objeto

2023-08-14 Thread Griera-yandex
0 > 0, '1', '0'), NA)"))) > V4 [1] "0" "0" "0" "0" "0" "0" "1" "0" "1" "0" Mucas gracias y saludos. On Mon, 14 Aug 2023 10:14:06 +0200 Proyecto R-UCA wrote: > Buenas, > >

Re: [R-es] Expresión en un objeto

2023-08-14 Thread Griera-yandex
; ORD <- "(ifelse (is.na (V2a) & ! is.na (V2b), V2b, V2a))" > > V3 <- "((ORD - V1)/V1)*100" > > V33 <- sub('ORD', ORD, V3) > > V33 > [1] "(((ifelse (is.na (V2a) & ! is.na (V2b), V2b, V2a)) - V1)/V1)*100" > > eval(parse(text =

Re: [R-es] Expresión en un objeto

2023-08-12 Thread Griera-yandex
¿es coherente lo que dice? > > El vie, 11 ago 2023 a las 21:02, Griera-yandex () > escribió: > > > Muchas gracias, Manuel: > > > > Que bueno! No se me había ocurrido lo de GPT! > > > > Lo pruebo. > > > > Saludos. > > >

Re: [R-es] Expresión en un objeto

2023-08-11 Thread Griera-yandex
Muchas gracias, Manuel: Que bueno! No se me había ocurrido lo de GPT! Lo pruebo. Saludos. On Fri, 11 Aug 2023 18:15:18 +0200 Manuel Mendoza wrote: > Esta es la respuesta que te da ChatGPT-4: > > Entiendo tu pregunta y, aunque no hay una función nativa en R que te > permita hacer exactamente

Re: [R-es] Expresión en un objeto

2023-08-11 Thread Griera-yandex
Gracias, Isidro, por la ayuda: On Fri, 11 Aug 2023 09:16:34 + Isidro Hidalgo Arellano wrote: > A ver... con que xfunc() esté preparada para tomar un parámetro de tipo > "carácter" y evaluarlo, claro que se puede hacer... > Si el problema lo tienes en evaluar la expresión, la función

Re: [R-es] Resumen de R-help-es, Vol 167, Envío 10

2023-01-27 Thread Griera-yandex
as.data.table() > +names(df_tmp) <- paste0(cols_tmp, "c") > +res_df <- cbind(res_df, df_tmp) > +} > +return(res_df) > + } > > > > #--- Sobre df creado > > *resultado <- colcompare(df)* > > resultado > V1

Re: [R-es] Resumen de R-help-es, Vol 167, Envío 10

2023-01-26 Thread Griera-yandex
Hola: Funciona a la perfección. Y los nombres de las nuevas variables tipo "V1c" "V2c"... ya me está bien. Gracias por habertelo currado tanto! Me has ahorrado copiar, pegar y modificar un monton de linias. Y no tenia conciencia de que podia ser tan complicado. Gracias por la ayuda. Saludos.

Re: [R-es] Resumen de R-help-es, Vol 167, Envío 10

2023-01-26 Thread Griera-yandex
Muchas gracias por responder! Después lo hago. Saludos. On Thu, 26 Jan 2023 09:33:31 -0500 patricio fuenmayor wrote: > Hola esta es una solución > > library(data.table) > library(stringr) > > > dt <- data.table( V1a = sample(c("1","0"), 10, TRUE) > , V1b =

Re: [R-es] Pasar nombre variable regresión

2021-11-18 Thread Griera-yandex
Esto de crear variables globales debe ser un último recurso pues puede > generar problemas. Te recomiendo intentes pasar el data.frame como > argumento a la función que va a hacer las regresiones. > > Un saludo. > > El jue, 18-11-2021 a las 13:34 +0100, Griera-yandex escribi

Re: [R-es] Pasar nombre variable regresión

2021-11-18 Thread Griera-yandex
Gracias por la respuesta! El código tuyo funciona sin problema, pero cuando lo "adapto" me da error: > ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) + trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) + group <- gl(2, 10, 20, labels = c("Ctl","Trt")) + weight <- c(ctl,

Re: [R-es] Pasar nombre variable regresión

2021-11-18 Thread Griera-yandex
Sí! Gracias por responder! Funciona sin problema: > X = "group" + X [1] "group" + lm.D9 <- lm(weight ~ get (X), data = df) + summary (lm.D9) Call: lm(formula = weight ~ get(X), data = df) Residuals: Min 1Q Median 3Q Max -1,0710 -0,4937 0,0685 0,2462 1,3690

Re: [R-es] Pasar nombre variable regresión

2021-11-18 Thread Griera-yandex
Hola: Gracias por la respuesta. Disculpa, el ejemplo está mal planteado. En realidad seria: ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) group <- gl(2, 10, 20, labels = c("Ctl","Trt")) weight <- c(ctl, trt) df <-

Re: [R-es] Bucle de regresiones

2021-11-15 Thread Griera-yandex
df)[Y], "X:", names(df)[X], "\n") > print (summary (lm (df[,Y] ~ df[,X] + SE + ED, > data <- df))) > } > } > > Un saludo. > > El lun, 15-11-2021 a las 13:20 +0100, Griera-yandex escribió: > > Hola, buenos d

[R-es] Bucle de regresiones

2021-11-15 Thread Griera-yandex
Hola, buenos dias: Estoy intentando hacer una serie de regresiones en las que la "y" y una de las "x", son diferentes en cada regresión. Además, hay unos predictores constantes. Un ejemplo seria de los datos seria: N <- 100 # x1, y1 set.seed(1234) x1 <- sample(1:100, N, replace <- TRUE)

Re: [R-es] Transformar caracter con Año-Num semana del año a fecha

2021-01-09 Thread Griera-yandex
> primera semana del 2020 te va a devolver la fecha "2019-12-30", ya que el > año empezó en miércoles. Y para la semana 53, te devuelve 2020-12-28. > > La librería stringr es necesaria para el str_replace. > > Espero te ayude. > > Saludos, > Juan > > >

[R-es] Transformar caracter con Año-Num semana del año a fecha

2021-01-09 Thread Griera-yandex
Hola a todos: A ver si alguien me puede ayudar a leer los archivos Covid del European Centre for Disease Prevention and Control: https://www.ecdc.europa.eu/en/publications-data/data-national-14-day-notification-rate-covid-19 Ahora la fecha está como año y número de semana en formato ISO. Por

Re: [R-es] Gráfico tiempos de supervivencia

2019-07-18 Thread Griera-yandex
ndo fuentes parecidas a la de los comics > con el paquete "xkcd". > > Saludos, > Carlos Ortega > www.qualityexcellence.es > > > > El jue., 18 jul. 2019 a las 13:05, Griera-yandex () > escribió: > > > Hola Pedro: > > > > Gracias por l

Re: [R-es] Gráfico tiempos de supervivencia

2019-07-18 Thread Griera-yandex
g> > > Puede contactar con el responsable de la lista escribiendo a: > r-help-es-ow...@r-project.org<mailto:r-help-es-ow...@r-project.org> > > Si responde a algún contenido de este mensaje, por favor, edite la > linea del asunto (subject) para que el texto sea

[R-es] Gráfico tiempos de supervivencia

2019-07-18 Thread Griera-yandex
Buenos días a todos: Alguien me puede ayudar a hacer (si se puede) con unos datos similares a: set.seed(20) DATOS <- data.frame ( ID = c (1:10) , TIEMPO = sample(1:40, 10, replace=F) , DEF = sample(0:1, 10, replace=T) );DATOS un gráfico que muestre

Re: [R-es] BioStatFLOSS 4.0

2019-01-29 Thread Griera-yandex
Gracias por el esfuerzo! On Tue, 29 Jan 2019 09:56:59 + wrote: > Hola. > > Os informo de que hemos publicado una nueva versi_n (la 4) de BioStatFLOSS. > > Para el que no lo conozca, se trata de una recopilaci_n de software para > Windows. Es una "colecci_n" de programas de utilidad

Re: [R-es] rseek 2?

2018-06-05 Thread Griera-yandex
Hola Javier: Acabo de realizar la consulta: survival recurrent events Y me salen: "About 1,400,000 results (0.52 seconds)" Yo diría que funciona. Lo del logo RSeek² no lo recuerdo. Saludos. On Mon, 4 Jun 2018 11:54:44 -0300 Javier Marcuzzi wrote: > Estimados > > Estoy realizando una

Re: [R-es] Transformación (logarítmica) de varias variables

2017-11-20 Thread Griera-yandex
arece funcionar. Muchas gracias y saludos. Griera. On Mon, 20 Nov 2017 12:46:11 +0100 Griera-yandex <gri...@yandex.com> wrote: > Hola, buenos días: > > Habitualmente transformo varias variables mediante la función lapply de la > forma siguiente: > > --- > l

[R-es] Transformación (logarítmica) de varias variables

2017-11-20 Thread Griera-yandex
Hola, buenos días: Habitualmente transformo varias variables mediante la función lapply de la forma siguiente: --- library (MASS); data(Aids2, package = "MASS");DADES<-Aids2 detach ("package:MASS", unload<-TRUE) LN <- function (X) { X <- log (X) X } XVARL <- c ("diag",

Re: [R-es] Alternativa a RStudio

2017-03-23 Thread Griera-yandex
On Wed, 22 Mar 2017 00:35:18 -0300 eric wrote: > Hola Javier, yo uso rkward en Debian y funciona Yo también es lo que utilizo también en Debian. > fantastico para mis > necesidades, hay una version para windows en su pagina > >

Re: [R-es] R sin instalar

2016-03-23 Thread Griera-yandex
Hola: No se si esto te puede servir: BioStatFLOSS: http://www.sergas.es/Saude-publica/BioStatFLOSS Saludos. On Wed, 23 Mar 2016 10:07:53 -0400 (EDT) merlinva2...@grannet.grm.sld.cu wrote: > Buenos días, > > Tengo que usar varias máquinas, algunas de las cuales no tienen R > instalado ni se

Re: [R-es] Tiempo de vida

2015-12-07 Thread Griera-yandex
Hola: On Mon, 7 Dec 2015 15:12:24 +0100 Jes__s Para Fern__ndez wrote: > Buenas, > > Como pudeo calcular el tiempo de vida? Os cuento, tengo una serie de > cuchillas y quiero ver el consumo de las mismas y he pensado en hacer un > estudio por tiempo de vida. No

Re: [R-es] help

2015-12-02 Thread Griera-yandex
Hola: Nunca he utilizado el RcmdrPlugin.EZR, pero lo único que he entendido: - accrual time during which subjects are recruited to the study: tiempo que ja durado el reclutamiento de los pacientes. - Total (accural + follow-up) duration: Duración total del estudio: reclutamiento + seguimiento.

Re: [R-es] Error sql en función

2015-07-27 Thread Griera-yandex
Hola Carlos: Gracias por responder! Ayer caí en esta página al buscar el problema con google, pero no conseguir entender y implementar lo que sugiere. Sin entender nada, lo que hice fue: library(MASS) library (sqldf) # Per SQL data(Aids2, package=MASS) SQL_PROVA =

Re: [R-es] Conservar el nombre de la variable entre varias funciones

2015-07-14 Thread Griera-yandex
Hola: Gracias por interesar-te per el problema! Explico las líneas generales de lo que quiero hacer. La mayor parte de mi trabajo es analizar datos de estudios ajenos. Hasta ahora lo hacia con SAS y tengo una macro que le paso el nombre del fichero y las variables y la macro realiza, según

Re: [R-es] Pasar un listado de variables como argumento de una función

2015-07-07 Thread Griera-yandex
Hola Carlos: He hecho una pruebas, y tienes razón. La solución de [ es mejor. Imbuido del lenguaje de SAS, me parecía mejor subset. Lo cambio. Gracias de nuevo y saludos! On Tue, 7 Jul 2015 13:52:05 +0200 Carlos Ortega c...@qualityexcellence.es wrote: Hola, Pero con lo que quieres hacer,

Re: [R-es] Loop for: mostrar el nombre de la variables

2015-06-30 Thread Griera-yandex
Hola Olivier: Muy elegante esta solución! Es lo que necesitaba. Gracias y saludos. On Tue, 30 Jun 2015 12:28:06 +0200 (CEST) Olivier Nuñez onu...@unex.es wrote: Un opción más elegante: DES = function(x) { res=NA if(is.numeric(x)) res=mean(x) else if(is.factor(x))