Publications by Geraldine Barbosa
CLASE 18abr (Grabada Diseño2)
Diseño 2 incumplimiento de supuestos # Factor genotipo = gl(n = 6, k = 6, length = 36, labels = paste0('gen', 1:6)) # Variable respuesta set.seed(123) PS = c( rnorm(12, 1200, 120), rnorm(12, 1500, 100), rnorm(12, 1420, 250) ) aleat = sample(36) datos = data.frame(genotipo, PS) head(datos) ## genotipo PS ...
1083 sym R (20369 sym/39 pcs) 2 img
CLASE 18 DE ABRIL
##Diseño 1 - Factorial simple en arreglo completamente al azar. (No hay bloqueo, no hay factor que cause diferencias, no se restringe aleteorización) #Imaginando el arreglo en el campo del experimento xy = expand.grid(x=seq(0,5), y=seq(0,5)) plot(xy, pch=15, cex=3, asp=1) # Factor genotipo = gl(n = 6, k = 6, length = 36, labe...
1072 sym R (946 sym/9 pcs) 4 img
CLASE DISENO: BLOQUES 2 Y 3 (21 abril)
2. Diseño factorial simple en bloques al azar Tienen un solo dato. set.seed(123) #Respuesta diam_geom = c( rnorm(4, 1.8, 0.1), rnorm(4, 2.0, 0.12), rnorm(4, 1.9, 0.09) ) #Factor gen = gl(3, 4, 12, paste0("g_", 1:3)) #Bloqueo procedencia = gl(4, 1, 12, paste0("l_", 1:4)) data = data.frame(gen, procedencia, diam_geom) head(dat...
1537 sym R (3364 sym/23 pcs) 3 img
Clase 04 abril
set.seed(123) datos = data.frame( gen = gl(3,4,12, c('g1','g2','g3')), rep = gl(4,1,12, c('r1','r2','r3','r4')), rto = c(3.5, 3.6, 4.2, 3.8, 3.9, 3.9, 3.6, 4.1, 4.3, 3.5, 3.8, 4.3) ) datos ## gen rep rto ## 1 g1 r1 3.5 ## 2 g1 r2 3.6 ## 3 g1 r3 4.2 ## 4 g1 r4 3.8 ## 5 g2 r1 3.9 ## 6 g2 r...
15 sym 3 img
Diseño clase 4
library(collapsibleTree) ## Warning: package 'collapsibleTree' was built under R version 4.2.2 set.seed(123) datos = data.frame( rto = runif(12, 2.5, 3.5), dosis = gl(3,4,12, c('d1', 'd2', 'd3')) ) datos ## rto dosis ## 1 2.787578 d1 ## 2 3.288305 d1 ## 3 2.908977 d1 ## 4 3.383017 d1 ## 5 3.440467 d2 ## 6...
13 sym R (1436 sym/8 pcs)
Clase 3
3. Prueba de hipotesis para comparar 3 proporciones independientes Se mide una variable en el suelo como: MO (Materia Organica) esta variable se mide en porcentaje Problema - Se realiza una encuesta a una cooperativa de cafe - Pregunta piloto: ¿Esta usted de acuerdo con las politicas de la cooperativa tal como se hace actualmente? (R: SI, NO)...
807 sym
Diseño de Clase 2
Caso 2: Prueba de hípotesis para dos muestras pareadas correlacionadas set.seed(123) cra = rnorm(n = 80, mean = 2.8, sd = 0.2) hist(cra, xlim = c(2.2, 3.4), ylim = c(0, 20)) abline(v= mean(cra), col='blue', lwd=3) library(readxl) ## Warning: package 'readxl' was built under R version 4.2.2 clase2 <- read_excel("C:/Users/FCECURSOS/Downloads/Li...
1616 sym R (1062 sym/13 pcs) 3 img
Diseño de Clase 1
Pruebas de hipotesis Problema 1: Se desea comparar dos genotipos de papa con base al rendimiento (biomasa de tuberculos). Un ensayo utilizo dos variedades (Criolla y pastusa) involucrando 180 plantas de la primera variedda y 200 de la segunda. Los datos de rendimiento en la cosecha se presentan en los siguientes vectores criolla = rnorm(n = 1...
1204 sym R (5599 sym/33 pcs) 2 img