Publications by Pedro González Beermann
Un solo Factor Aleatorio
Y<-c(69.38, 69.72, 69.58, 69.50, 69.48, 69.56, 69.90, 69.60, 69.80, 69.70, 69.50, 69.40, 69.40, 70.02, 69.62, 69.78, 69.70, 69.46, 69.50, 69.68, 69.94, 69.52, 69.90, 69.92, 69.50, 69.42, 69.64, 69.88) Piezas<-rep(1:7,4) Inspector<-rep(1:2,each=14) df<-data.frame(Piezas=as.factor(Piezas),Inspector=as.factor(Inspector),...
456 sym R (3228 sym/14 pcs) 2 img
Ejemplo 4.2
Ejemplo 4.2 Comparación de cuatro marcas de llantas. Una compañía de men sajería está interesada en determinar cuál marca de llantas tiene mayor duración en términos del desgaste. Para ello se planea un experimento en cuadro latino, en el que se comparan las cuatro marcas de llantas sometiéndolas a una prueba de 32 000 kilómetros de rec...
836 sym R (1417 sym/10 pcs) 5 img
Document
A<-c(264,260,258,241,262,255) B<-c(208,220,216,200,213,206) C<-c(220,213,219,225,230,228) D<-c(217,226,215,227,220,222) df<-data.frame(A=A,B=B,C=C,D=D) df ## A B C D ## 1 264 208 220 217 ## 2 260 220 213 226 ## 3 258 216 219 215 ## 4 241 200 225 227 ## 5 262 213 230 220 ## 6 255 206 228 222 N=24 n=6 k=4 SCT=sum(df*df)-su...
29 sym R (1638 sym/24 pcs)
Ejemplo 3.2
Ejemplo 3.2 Comparación de cuatro tipos de cuero. Un fabricante de calzado desea mejorar la calidad de las suelas, las cuales se pueden hacer con uno de los cuatro tipos de cuero A, B, C y D disponibles en el mercado. Para ello, prueba los cueros con una máquina que hace pasar los zapatos por una superficie abrasiva; la suela de éstos se desga...
998 sym R (1754 sym/18 pcs) 6 img
Problema 2-33
Problema 2-33 La prueba actual de un solo disco se tarda 2 minutos. Se propone un nuevo método de prueba que consiste en medir solamente los radios 24 y 57,donde casi es seguro que estará el valor mínimo buscado. Si el método nuevo resulta igual de efectivo que el método actual se podrá reducir en 60% el tiempo de prueba. Se plantea un expe...
645 sym R (1164 sym/7 pcs) 1 img
Calculo de la Potencia de la Prueba t
Prueba t x<-rnorm(10) y<-rnorm(10) t.test(x,y) ## ## Welch Two Sample t-test ## ## data: x and y ## t = -0.078349, df = 13.835, p-value = 0.9387 ## alternative hypothesis: true difference in means is not equal to 0 ## 95 percent confidence interval: ## -0.9416336 0.8753347 ## sample estimates: ## mean of x mean of y ## 0.0147...
64 sym R (1268 sym/17 pcs) 3 img
Ejemplo 3.1
Ejemplo 3.1 Comparación de cuatro métodos de ensamble. Un equipo de mejora investiga el efecto de cuatro métodos de ensamble A, B, C y D, sobre el tiempo de ensamble en minutos. En primera instancia, la estrategia experimental es aplicar cuatro veces los cuatro métodos de ensamble en orden completamente aleatorio (las 16 pruebas en orden alea...
672 sym R (2027 sym/11 pcs) 6 img
Cuadrado Latino y Grecolatino
Cuadrado Latino library(agricolae) str(design.lsd) ## function (trt, serie = 2, seed = 0, kinds = "Super-Duper", first = TRUE, ## randomization = TRUE) trt<-c("A","B","C","D") outdesign<-design.lsd(trt=trt,serie=2,seed=563) print(outdesign$sketch) ## [,1] [,2] [,3] [,4] ## [1,] "A" "D" "C" "B" ## [2,] "D" "C" "B" "A" ## [3...
141 sym R (5205 sym/33 pcs) 5 img 1 tbl
Dos Factores Aleatorios
Y<-c(69.38, 69.72, 69.58, 69.50, 69.48, 69.56, 69.90, 69.60, 69.80, 69.70, 69.50, 69.40, 69.40, 70.02, 69.62, 69.78, 69.70, 69.46, 69.50, 69.68, 69.94, 69.52, 69.90, 69.92, 69.50, 69.42, 69.64, 69.88) Piezas<-rep(1:7,4) Inspector<-rep(1:2,each=14) df<-data.frame(Piezas=as.factor(Piezas),Inspector=as.factor(Inspector),...
11 sym R (1307 sym/6 pcs)
Análisis de Datos con dplyr y tidyr
dfAdm<-read.csv("https://raw.githubusercontent.com/PedroGonzalezBeermann2020/DExperimental2021/main/adm-agosto2021.csv",sep=";") dfAdm ## posicion nombre cedula ## 1 18700926 AARON I HOWELL S 08-00-0814-01704 ## 2 18702214 ABDIEL VILLALVA CERRUD...
23 sym R (312572 sym/15 pcs) 3 img