Garficas Tamaño de Muestra

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 5

UNIVERSIDAD AUTONOMA

CHAPINGO

DIVISION DE CIENCIAS FORESTALES

LICENCIATURA EN ESTADISTICA

MUESTREO II

TAREA 3
GRAFICAS DEL TAMAÑO DE MUESTRA PARA PARAMETROS
DEL MUESTREO

ALUMNOS:
HERNANDEZ LOPEZ JORGE RODELLY
MONTES MORALES MISAEL
TREJO BENITEZ EDMAR ARMANDO

GRADO/GRUPO: 6° 5

03/05/2023
GRAFICAS DEL TAMAÑO DE MUESTRA DE LOS PRICIPALES
ESTIMADORES DE PARAMETROS DE MUESTREO
2023-05-02
Para cada funcion, se utilizo una varianza de 0.5, con nu error de 0.01, asi como
p=q=0.5
#Grafica del tamaño de muestra para mu
library(ggplot2)
fn=function(x){x*0.5/(x*0.01+0.5)}
dominio<-data.frame(x=c(1,100))
ggplot(dominio,aes(x=x,color=I("red")))+
stat_function(fun = fn)+
ggtitle("Grafica de mu")+
labs(x=expression(mu), y=expression(f(mu)))+
theme(plot.title=element_text(size=14, face="bold",hjust = 0.5 ),
axis.text.x=element_text(face="bold",size=10),
axis.text.y=element_text(face="bold",size=10),
axis.title.x=element_text(face="bold",size=10),
axis.title.y=element_text(face="bold",size=10))

#Grafica del tamaño de muestra para tau


fn=function(x){x^2*0.5/(x^2*0.01+0.5)}
dominio<-data.frame(x=c(1,100))
ggplot(dominio,aes(x=x,color=I("blue")))+
stat_function(fun = fn)+
ggtitle("Grafica de tau")+
labs(x=expression(tau), y=expression(f(tau)))+
theme(plot.title=element_text(size=14, face="bold",hjust = 0.5 ),
axis.text.x=element_text(face="bold",size=10),
axis.text.y=element_text(face="bold",size=10),
axis.title.x=element_text(face="bold",size=10),
axis.title.y=element_text(face="bold",size=10))

#Grafica del tamaño de muestra para p


fn=function(x){(x*0.5*0.5)/((x-1)*(0.01+(0.5*0.5/(x-1))))}
dominio<-data.frame(x=c(1,100))
ggplot(dominio,aes(x=x,color=I("green")))+
stat_function(fun = fn)+
ggtitle("Grafica de p")+
labs(x=expression(p), y=expression(f(p)))+
theme(plot.title=element_text(size=14, face="bold",hjust = 0.5 ),
axis.text.x=element_text(face="bold",size=10),
axis.text.y=element_text(face="bold",size=10),
axis.title.x=element_text(face="bold",size=10),
axis.title.y=element_text(face="bold",size=10))

## Warning: Removed 1 row containing missing values (`geom_function()`).


#Grafica del tamaño de muestra para A
fn=function(x){(x^3*0.5*0.5)/((x-1)*(0.01+(x^2*0.5*0.5/(x-1))))}
dominio<-data.frame(x=c(1,100))
ggplot(dominio,aes(x=x,color=I("black")))+
stat_function(fun = fn)+
ggtitle("Grafica de A")+
labs(x=expression(A), y=expression(f(A)))+
theme(plot.title=element_text(size=14, face="bold",hjust = 0.5 ),
axis.text.x=element_text(face="bold",size=10),
axis.text.y=element_text(face="bold",size=10),
axis.title.x=element_text(face="bold",size=10),
axis.title.y=element_text(face="bold",size=10))

## Warning: Removed 1 row containing missing values (`geom_function()`).

También podría gustarte