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 wrote:
> Un opción más elegante:
>
> DES = function(x)
> {
> res=NA
> if(is.numeric(x)) res=mean(x)
> else if(is.factor(x))
>
Muchas gracias, Carlos!
Instalado el "enésimo paquete" (si no hay más remedio . . .) y perfecto!!
Solucionado!!
(le tengo cierta alergia a los enésimos paquetes: hasta ahora he sido usuario
ocasional de R y más de uno que he utilizado, de repente desaparece de r-cran).
Gracias por la rapidez y
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 wrote:
> Hola,
>
> Pero con lo que quieres hacer, estás definiendo el o
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 si
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_PR
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.
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 se como hacerlo con R
Has una
Hola:
On Mon, 7 Dec 2015 16:34:14 +0100
Jesús Para Fernández wrote:
> Los datos no son de desgaste de cuchilla, sino de consumo de las mismas.
>
> Por ello tengo los datos de la siguiente forma:
>
> Unidades cambiadasFecha
>
>
> En unidades cambiadas, suele ser una y en fecha el dia que
Muchas gracias por este programa!! Muy útil
On Mon, 14 Mar 2016 13:26:58 +
wrote:
> Hola.
>
> Os informo de que hemos publicado una nueva versión 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 utilid
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
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
>
> https://rkward.kde.org/RKWard_on_Windows
>
> nunca lo he usado
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", "death")
arece funcionar.
Muchas gracias y saludos. Griera.
On Mon, 20 Nov 2017 12:46:11 +0100
Griera-yandex wrote:
> Hola, buenos días:
>
> Habitualmente transformo varias variables mediante la función lapply de la
> forma siguiente:
>
> ---
> library (MASS); data(A
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 r
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 para
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 los
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
ucirlo usando 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:
> >
> > Gra
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 ej
> 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
>
>
>
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)
mean(x
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
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 <- data.fr
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
Coefficients
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, trt
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
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 = sample(c("1","0"),
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.
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
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 "eval()
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
s 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.
> >
>
; 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(pa
D, "-V1)/V1)*100 > 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
Proyec
parse(text = paste0 ("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&
35 matches
Mail list logo