Publications by JRV
Taller Repaso Parcial 1 Análisis de Alimentos
Ejercicio 1 Si se conoce previamente que el porcentaje del elemento N representa el 19,55% de la proteína del alimento X ¿cuál es el factor de conversión que se emplearía en la ecuación correspondiente del método de Kjeldahl para el cálculo del contenido de proteína? (En huevos o cárnicos, que tienen un porcentaje de 16% de N en la pr...
2112 sym
Clase 16.03.2023 Métodos Multivariados
set.seed(123) dfj=data.frame(diam=rnorm(n = 45,mean = 1.2,sd = 0.18), medio=gl(n = 3,k = 15,length = 45,labels = c('Medio1','Medio2','Medio3')) ) View(dfj) boxplot(dfj$diam~dfj$medio) medias=tapply(dfj$diam, dfj$medio, mean) medias ## Medio1 Medio2 Medio3 ## 1.227429 1.155613 1.253152 var=tapply(dfj$diam...
45 sym R (20441 sym/38 pcs) 4 img
Clase 03.09.2023
#install.packages("collapsibleTree") library(collapsibleTree) df1=data.frame( gen=gl(3,5,15,c('g1','g2','g3')), rto=rnorm(n = 15,mean = 3,sd = 0.3)) collapsibleTreeSummary(df1,hierarchy = c('gen','rto'),collapsed = FALSE) #FACTORIAL COMPLETO COMPLETAMENTE AL AZAR INCOMPLETO DESCARADO df1 = data.frame( gen = gl(3, 6, 18, c('g1','g2','g3...
36 sym R (5727 sym/17 pcs) 1 img
Clase 02.03.2023 A Darghan
options(scipen=999) # para omitir notación científica library(ICSNP) ## Loading required package: mvtnorm ## Loading required package: ICS library(mvtnorm) library(readxl) T2_2mi <- read_excel("G:/Mi unidad/MAESTRÍA CIENCIA Y TECNOLOGÍA ALIMENTOS/Métodos Multivariados/Clases/Clase 02.03.2023/mm2023_1_hotelling_030223.xlsx") T2_2mi ## # A ...
82 sym R (13240 sym/72 pcs) 7 img
Clase A. Darghan 23.02.2023
set.seed(123) #Capacidad Retención de agua cra = c( rnorm(n = 60, mean = 2.8, sd = 0.2), rnorm(n = 60, mean = 3.0, sd = 0.2) ) gel= gl(n = 2, k = 60, length = 120, labels = c('gel1','gel2')) # Solubilidad solub = c( rnorm(n = 60, mean = 6, sd = 0.4), rnorm(n = 60, mean = 7, sd = 0.35) ) #install.packages(DT) #library(DT) ...
3974 sym R (7919 sym/48 pcs) 14 img
Clase MM 16.02.2023
par(mfrow=c(1,2)) plot(variables$DE, variables$DL) smoothScatter(variables$DE, variables$DL, bandwidth = 0.03) library(ggplot2) library(ggplot2) ggplot(variables)+ geom_boxplot(aes(x=1, y=DE))+ geom_boxplot(aes(x=2, y=DL)) library(growthmodels) time = 0:10 growth <- blumberg(time, 10, 2, 0.5) plot(time, growth, pch = 16) library(...
163 sym R (4917 sym/44 pcs) 17 img
Asesoría 19.02.23 Juan Sebastián
set.seed(2023) options(digits = 3) #install.packages("ggplot2") library(ggplot2) #runif() #rbinom() x=1 x=c(1,2,3,4) Frutos=c("manzana","durazno","fresa") x=rnorm(n = 120,sd = 0.3,mean = 3);x ## [1] 2.97 2.71 2.44 2.94 2.81 3.33 2.73 3.30 2.88 2.86 3.10 2.88 3.17 3.20 2.82 ## [16] 3.21 3.18 3.14 3.27 3.17 2.88 2.91 3.37 3.07 2.87 2.45 2...
48 sym R (8282 sym/37 pcs) 3 img
Publish Document
Ejercicio 1 #Ejercicio 1 x=10 y=3 u=x+y;u ## [1] 13 v=x*y;v ## [1] 30 w=x/y;w ## [1] 3.333333 z=sin(x);z ## [1] -0.5440211 r=8*sin(y);r ## [1] 1.12896 s=5*sin(2*y);s ## [1] -1.397077 Ejercicio 2 #Ejercicio 2 x=2; y=5 (y*x^3)/(x-y) ## [1] -13.33333 (3*x)/(2*y) ## [1] 0.6 3/2*x*y ## [1] 15 (x^5)/(x^5-1) ## [1] 1.032258 Ejercicio 3 #Ejercicio 3 ...
234 sym R (2458 sym/82 pcs) 2 img
Document
Ejercicio 1 #Ejercicio 1 x=10 y=3 u=x+y;u ## [1] 13 v=x*y;v ## [1] 30 w=x/y;w ## [1] 3.333333 z=sin(x);z ## [1] -0.5440211 r=8*sin(y);r ## [1] 1.12896 s=5*sin(2*y);s ## [1] -1.397077 Ejercicio 2 #Ejercicio 2 x=2; y=5 (y*x^3)/(x-y) ## [1] -13.33333 (3*x)/(2*y) ## [1] 0.6 3/2*x*y ## [1] 15 (x^5)/(x^5-1) ## [1] 1.032258 Ejercicio 3 #Ejercicio 3 ...
219 sym 1 img
Document
#Ejercicio 1 x=10 y=3 u=x+y;u ## [1] 13 v=x*y;v ## [1] 30 w=x/y;w ## [1] 3.333333 z=sin(x);z ## [1] -0.5440211 r=8*sin(y);r ## [1] 1.12896 s=5*sin(2*y);s ## [1] -1.397077 #Ejercicio 2 x=2; y=5 (y*x^3)/(x-y) ## [1] -13.33333 (3*x)/(2*y) ## [1] 0.6 3/2*x*y ## [1] 15 (x^5)/(x^5-1) ## [1] 1.032258 #Ejercicio 3 x=3 y=4 (1-1/x^5)^(-1) ## [1] 1.00...
67 sym