Re: [R-es] Más allá de group_by()

[Álvaro Hernández]

Hola, Rubén:

Una opción que veo yo es completar los clientes por meses, calcular para 
cada cliente lo que dió el mes anterior (con la función lag()) y luego 
sumar si antes había dado 0 o sumar si ahora pasa a dar 0.


Con el código creo que se entiende mejor:

df %>%
  complete(mes, cliente, fill = list(fact = 0)) %>%
  group_by(cliente) %>%
  mutate(ant = lag(fact)) %>%
  group_by(mes) %>%
  summarise(sumFact = sum(fact),
    win = sum(fact[ant == 0]),
    loss = sum(ant[fact == 0])) %>%
  print()

Un saludo
Álvaro

El 25/01/18 a las 13:14, Rubén Coca escribió:

Hola,
Os planteo una situación a ver si se os ocurre un enfoque que me permita
solucionarla.
Partiendo de un data frame con las siguientes variables: mes, cliente,
facturacion. Tal que así:

df <- data.frame(mes = c(1,1,1,1,2,2,2,2,3,3,3), cliente = c('a', 'b', 'c',
'd', 'b', 'c', 'd', 'e', 'b', 'd', 'e'), fact = c(100, 110, 120, 100, 90,
80, 110, 100, 90, 70, 120))

mes   cliente   fact
   1 a100
   1 b110
   1 c120
   1 d100
   2 b 90
   2 c 80
   2 d110
   2 e100
   3 b 90
   3 d 70
   3 e120

Con un simple group_by() y summarise() obtengo:
df <- df %>% group_by(mes) %>% summarise(sumFact = sum(fact))

mes   sumFact
   1   430
   2   380
   3   280

Y ahora viene lo complicado (para mí), quiero añadir dos nuevas columnas:
win y loss.
win debe sumar la facturacion de aquellos clientes que no existían en el
mes n-1. Loss debe sumar la facturación en el mes n-1 de los clientes que
ya no están en el mes n (y así sucesivamente). De forma que obtengamos el
data frame final:

mes   sumFact   win   loss
   1   430NA NA
   2   380   100100
   3   280 0 80

En el mes 2, win es la suma de la facturación del cliente e, que no estaba
en el mes 1 y loss es la suma de la facturación del cliente a, que estaba
en el mes 1 pero ya no en el 2.
En el mes 3, win es 0 porque no hay ningún cliente que no existiense en n-1
y loss es la suma de la facturación del cliente c, que estaba en el mes 2
pero no en el 3.

Espero haber explicado el caso con suficiente claridad y que podáis
ayudarme.
Muchas gracias!

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es


___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Ji cuadrado de tendencia lineal

[Patricio Suárez Gil]

Hola,

estoy buscando la manera de ejecutar en R el test de Ji-cudrado de tendencia 
lineal (Linear trend Chi-square), pero no lo encuentro en toda la bibliografía 
que consulté, ni la viñeta del chis.test incluye ninguna opción que contemple 
este test. 

Si alguien tiene experiencia con el tema, agradecería cualquier ayuda.

Un saludo,


Patricio Suárez Gil
Unidad de Investigación Área V-Gijón
Planta 5ª Impar
Hospital Universitario de Cabueñes
C/Prado, 395
33394 Gijón (Asturias)
Tfno: 985 185 000 (Ext. 85715)
@uinvest_psg
unidadinvestigacion.ar...@sespa.es
ESPAÑA












[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Ji cuadrado de tendencia lineal

[Javier Marcuzzi]

Estimado Patricio Suárez Gil

¿Puede ser esto
https://stat.ethz.ch/R-manual/R-devel/library/stats/html/prop.trend.test.html
?

Javier Rubén Marcuzzi

El 26 de enero de 2018, 10:22, Patricio Suárez Gil 
escribió:

> Hola,
>
> estoy buscando la manera de ejecutar en R el test de Ji-cudrado de
> tendencia lineal (Linear trend Chi-square), pero no lo encuentro en toda la
> bibliografía que consulté, ni la viñeta del chis.test incluye ninguna
> opción que contemple este test.
>
> Si alguien tiene experiencia con el tema, agradecería cualquier ayuda.
>
> Un saludo,
>
>
> Patricio Suárez Gil
> Unidad de Investigación Área V-Gijón
> Planta 5ª Impar
> Hospital Universitario de Cabueñes
> C/Prado, 395
> 33394 Gijón (Asturias)
> Tfno: 985 185 000 (Ext. 85715)
> @uinvest_psg
> unidadinvestigacion.ar...@sespa.es
> ESPAÑA
>
>
>
>
>
>
>
>
>
>
>
>
> [[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]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Ji cuadrado de tendencia lineal

[Patricio Suárez Gil]

Muchas gracias, Javier. Eso es lo que estaba buscando.

Un saludo,


Patricio









> El 26 ene 2018, a las 14:35, Javier Marcuzzi 
>  escribió:
> 
> Estimado Patricio Suárez Gil
> 
> ¿Puede ser esto 
> https://stat.ethz.ch/R-manual/R-devel/library/stats/html/prop.trend.test.html 
> 
>  ?
> 
> Javier Rubén Marcuzzi
> 
> El 26 de enero de 2018, 10:22, Patricio Suárez Gil  > escribió:
> Hola,
> 
> estoy buscando la manera de ejecutar en R el test de Ji-cudrado de tendencia 
> lineal (Linear trend Chi-square), pero no lo encuentro en toda la 
> bibliografía que consulté, ni la viñeta del chis.test incluye ninguna opción 
> que contemple este test.
> 
> Si alguien tiene experiencia con el tema, agradecería cualquier ayuda.
> 
> Un saludo,
> 
> 
> Patricio Suárez Gil
> Unidad de Investigación Área V-Gijón
> Planta 5ª Impar
> Hospital Universitario de Cabueñes
> C/Prado, 395
> 33394 Gijón (Asturias)
> Tfno: 985 185 000 (Ext. 85715)
> @uinvest_psg
> unidadinvestigacion.ar...@sespa.es 
> ESPAÑA
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> [[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]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Código de salida de una función R

[Carlos Ortega]

Hola,

Recupero tu pregunta porque está habiendo diferentes iniciativas en marcha
para mejorar este aspecto de "R" que es claramente muy mejorable.
En breve todos esperamos que los códigos de error de "R" sean más
entendibles.

https://methodsblog.wordpress.com/2018/01/26/r-errors/

El propio Hadley Wickham, está haciendo lo propio con su "tidyverse":

http://style.tidyverse.org/error-messages.html

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 10 de enero de 2018, 17:36, Javier Nieto  escribió:

> Hola, tengo una duda de R espero me puedan ayudar.
>
>
>
> En linux, en bash si una instrucción no termina correctamente puedo
> obtener un código de error, por ejemplo:
>
>
> [rapusr@tstr200043 ~]$ ls -z
> ls: invalid option -- 'z'
> Try 'ls --help' for more information.
> [rapusr@tstr200043 ~]$ echo $?
> 2
>
> ¿En R existe algo parecido?, por ejemplo busco algo como
> R> rnorm(1000O)
> Error: unexpected symbol in "rnorm(1000O"
>
>
> status()
> 2
>
> status = "función o alguna forma de obtener el código de error"
>
> En una función que yo realice, esto no es problema porque con return puedo
> devolver el código de error que desee, sin embargo en funciones del paquete
> base o de otras librerías ¿se puede hacer algo parecido?
>
> entiendo que se pueden hacer validaciones del tipo
> if(as.numeric(rnorm(1000O))) o usar try o tryCatch, simplemente me dio
> curiosidad saber si existe  algo así para simplificar el código.
>
> Muchas gracias
>
> Saludos
>
>
> [[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