Publications by Pedro Lizarazo
Caracterización suelos papa
Librerias usadas library(readxl) library(dplyr) library(tidyverse) library(stringi) library(corrplot) library(GGally) library(textshape) library(FactoMineR) library(factoextra) library(rlang) library(tibble) library(ggstatsplot) Cargar municipios con aptitud para el cultivo de papa AP.TOT <- read_excel("K:/Articulos/Analisis suelos papa...
1164 sym R (174723 sym/118 pcs) 153 img
Avance proyecto caracterizacion AS
Librerias usadas library(readxl) library(dplyr) library(tidyverse) library(stringi) library(corrplot) library(GGally) library(textshape) library(FactoMineR) library(factoextra) library(rlang) Cargar municipios con aptitud para el cultivo de papa AP.TOT <- read_excel("K:/Articulos/Analisis suelos papa 2023/Bases de datos/MUNICIPIOS CON ALT...
920 sym R (253006 sym/116 pcs) 153 img
Anovas crecimiento usando la pendiente MAVAMA
Cargamos las librerias library(pacman) p_load(readxl, dplyr, tidyverse, plyr, magrittr, agricolae, ggplot2, tidyr, rsample, forestmangr, broom, car, MASS) Cargamos los datos Agraz_complete <- read_excel("Agraz.complete revision 22.11.22.xlsx", sheet = "Sheet 1", range = "A1:W460") tail(Agraz_complete) ## # A tibble: 6 × 23 ## Ens ...
1625 sym R (204217 sym/748 pcs) 93 img
RMD Anovas variables fisiologicas
library(pacman) p_load(readxl, dplyr, tidyverse, plyr, magrittr, agricolae, tibble, ggplot2, tidyr, rsample, forestmangr, broom, mice, car, openxlsx, xlsx2dfs) E N S A Y O 2 Cargar base de datos BD2 <- read_excel("BD2.complete.fisiologicos.xlsx") BD2.aov <- BD2 %>% dplyr::select(., -B, -PL, -FC, -R, -CCI, -FC, -CCI.I, -FC.I) %>% ...
1361 sym R (164456 sym/786 pcs) 94 img
Analisis proyecto camas elevadas
Muestreos destructivos Librerias library(readxl) library(dplyr) library(ggplot2) Carga de datos Resumen y gráfico con error estandar ## lechuga # Datos res.lechuga.d <- lechuga.d %>% dplyr::group_by(., Sistema) %>% dplyr::summarise( n=n(), media=mean(Peso), median=median(Peso), sd=sd(Peso)) %>% dplyr::mutate( se=sd/sqrt(n)) %>% ...
412 sym R (8463 sym/26 pcs) 5 img
RMD Anovas variables fisiologicas 2.11.23
library(pacman) p_load(readxl, dplyr, tidyverse, plyr, magrittr, agricolae, tibble, ggplot2, tidyr, rsample, forestmangr, broom, mice, car, openxlsx, xlsx2dfs) E N S A Y O 2 Cargar base de datos BD2 <- read_excel("C:/Users/pedro/OneDrive/Escritorio/Variables fisiologicas Mariam 2023.2/3 articulo Agraz/BD2.complete.fisiologicos.xlsx") BD...
1370 sym R (164684 sym/786 pcs) 94 img
Taller metodos multivariados
Cargamos la data proveniente de la tesis library(readxl) Datos_tesis <- read_excel("Datos tesis.xlsx", sheet = "DATOS") head(Datos_tesis) ## # A tibble: 6 × 18 ## G TTO R `ajus aer` pf.a ps.a ms.a `ajus rai` pf.r ps.r ms.r ## <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 93 CONTR...
575 sym R (26486 sym/53 pcs) 5 img
Analisis MAVAMA
library(pacman) p_load(readxl, dplyr, tidyverse, plyr, magrittr, agricolae, tibble, ggplot2, tidyr, rsample, forestmangr, broom, mice, car, openxlsx, xlsx2dfs) E N S A Y O 2 Cargar base de datos BD2 <- read_excel("BD2.complete.fisiologicos.xlsx") BD2.aov <- BD2 %>% dplyr::select(., -B, -PL, -FC, -R, -CCI, -FC, -CCI.I, -FC.I) %>% ...
1334 sym R (161012 sym/782 pcs) 90 img
AOV MAVAMA
library(pacman) p_load(readxl, dplyr, tidyverse, plyr, magrittr, agricolae, tibble, ggplot2, tidyr, rsample, forestmangr, broom, mice, car, openxlsx, xlsx2dfs) E N S A Y O 2 Cargar base de datos BD2 <- read_excel("BD2.complete.fisiologicos.xlsx") BD2.aov <- BD2 %>% dplyr::select(., -B, -PL, -FC, -R, -CCI, -FC, -CCI.I, -FC.I) %>% ...
1193 sym R (138227 sym/697 pcs) 76 img
Taller 2. Muestreo
Ajustamos la data StudentsPerformance <- read.csv("C:/Users/user/Desktop/StudentsPerformance.csv") library(dplyr) SP <- StudentsPerformance %>% mutate(., gender=as.factor(gender), race.ethnicity=as.factor(race.ethnicity), parental.level.of.education=as.factor(parental.level.of.education), lunch=as.facto...
2938 sym R (34757 sym/63 pcs) 3 img