datanalytics - Estadística y análisis de datos

¿Nos sacudimos las servidumbres del papel?

18 Julio, 2017 5 comentarios

Esto es una página del DRAE en papel de toda la vida: Esta es una de esas definiciones en mi… más →

Gelmaneando

13 Julio, 2017 1 comentario

Hoy, gelmaneo así:

bar <- function(n, reps = 1e4){
  foo <- function(n){
    x <- rnorm(n)
    tmp <- t.test(x)
    c(tmp$p.value, abs(mean(x)))
  }
  
  res <- replicate(reps, foo(n))
  tmp <- t(res)
  tmp <- tmp[tmp[,1] < 0.05,]
  tmp[,2]
}

res <- lapply(c(3, 10, 20, 50, 100), bar)
sapply(res, mean)
#[1] 0.8662636 0.6583157 0.4934551 0.3240322 0.2337086

bar <- function(n, reps = 1e4){

foo <- function(n){

x <- rnorm(n)

tmp <- t.test(x)

c(tmp$p.value, abs(mean(x)))

}

res <- replicate(reps, foo(n))

tmp <- t(res)

tmp <- tmp[tmp[,1] < 0.05,]

tmp[,2]

}

res <- lapply(c(3, 10, 20, 50, 100), bar)

sapply(res, mean)

#[1] 0.8662636 0.6583157 0.4934551 0.3240322 0.2337086

Resumo: Fabrico un montón de errores de tipo I. Recuérdese: error de tipo I implica artículo… más →

¿Alguien sabe por qué es tan pequeño este número?

12 Julio, 2017 Comenta

Hay una cifra que me intriga. Ya hablé sobre ella hace años. Buscando el otro día (infructosísimamente) información sobre la… más →

Estereotipos y estadística (II)

10 Julio, 2017 Comenta

Hace tiempo escribí: El porcentaje de mosquitos que pueden transmitir enfermedades es pequeño, muy pequeño. Sin embargo, decimos mosquitos transmiten… más →