Tengo un dataframe
con pacientes de muchas edades. Lo quiero dividir en dos grupos: menores o iguales a 50 y mayores a 50.
Luego necesito los resultados expresarlos en forma de matrix, porque luego necesito usar una herramienta estadística.
Lo he logrado, pero siento que al final hice trampa porque los resultados los ingresé manualmente.
Cómo podría hacer lo mismo sin este truco que empleé?
Este es mi Código:
library(vcd)
library(dplyr)
data("Arthritis")
datos <- subset(Arthritis, Treatment=="Treated" & (Improved=="None" | Improved=="Marked"))
# Eliminamos las categorías fantasmas (ya que solo seleccionamos Marked o None, y hay 0 casos para Some
datos$Improved<-droplevels(datos$Improved)
df <- datos
df$group <- cut(df$Age, breaks = seq(20, 80, by=30), right = TRUE)
df
Marked <- df %>% group_by(group) %>% count(Improved == "Marked")
Marked
# Ingresamos los resultados de Marked
# en Grupo de Tratamiento para hacer una
# matrix
Grupo_de_Tratamiento <- matrix(c(4, 17, 6, 7), nrow = 2,
dimnames =
list(c("20-50", "51-80"),
c("Mejoró", "NO mejoró")))
Grupo_de_Tratamiento
table(df$group, df$Improved)
justo antes de que definasMarker