Semana 2. Este espacio(notebook) se denomina chunk

Las observaciones siempre se usan en las filas y columnas variables y factores Para cargar archivos:

variable<- read.csv(“archivo.csv”, sep=., header= “True”, dec=““, rownames=”“) La funcion getwd()indica cual es la dirección de trabajo actual

Practica, cargar base de datos

library(readr)
library(readr)
PRACTICA01_DESCRIPTIVA <- read_delim("base de datos/PRACTICA01-DESCRIPTIVA.csv",
    delim = ";", escape_double = FALSE, trim_ws = TRUE)
New names:Rows: 24 Columns: 7── Column specification ───────────────────────────────────────────────────
Delimiter: ";"
chr (2): CEDULA_SINGUIONES, GENERO
dbl (5): ...1, PESO, TIEMPO_ESTUDIO, TIEMPO_SUENO, TIEMPO_TRANSPORTE
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
library(readr)
PRACTICA01_DESCRIPTIVA <- read_delim("base de datos/PRACTICA01-DESCRIPTIVA.csv",
    delim = ";", escape_double = FALSE, trim_ws = TRUE)
New names:Rows: 24 Columns: 7── Column specification ───────────────────────────────────────────────────
Delimiter: ";"
chr (2): CEDULA_SINGUIONES, GENERO
dbl (5): ...1, PESO, TIEMPO_ESTUDIO, TIEMPO_SUENO, TIEMPO_TRANSPORTE
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
PRACTICA01_DESCRIPTIVA<-na.omit(PRACTICA01_DESCRIPTIVA)

Estadistica de datos Media: mean() Moda: mode(Cargar libreria modeest) mediana: median Media, moda y mediana tienden a ser muy parecidos en una distribucion normal

mean(PRACTICA01_DESCRIPTIVA$PESO)
median(PRACTICA01_DESCRIPTIVA$PESO)
min(PRACTICA01_DESCRIPTIVA$PESO)
max(PRACTICA01_DESCRIPTIVA$PESO)
summary(peso)
sd(peso)
var(peso)
range(peso)

Clase de miercoles 8 de marzo

Fundamentos de un problema estadistico: 1.Definir la pregunta acerca de la poblacion 2.Procedimiento de muestreo o diseño de experimento 3.Recoleccion y analisis de datos 4.Inferir acerca de la poblacion mediante probabilidad

Tipos de estadistica: Descriptiva : Se usa para conocer caracteristicas y analizando la serie de datos. Inferencia estadistica: Se obtienen conclusiones a partir de los datos.

Conceptos de importancia: *** Poblacion: Conjunto de todos los posibles elementos que intervienen. Conjunto de elementos que cumplen ciertas propiedades comunes.Puede ser finita o infinita.

*** Variables estadisticas: Toma valores de un conjunto determinado por un dato. Para que una variable se considere un dato estadistico debe de tener dos caracteristicas: Que sean comparables entre si y que tengan una buena relacion. Tipos de variables: Cualitativas ordinales: Clasifica objetos (muy usado en salud) Cualitativas: Califican y clasifican datos Cuantitativas: Comprende cantidades numericas, medir mangnitudes continuas. Toma cualquier valor en una escala de medidas (entero o fraccionario). Cuantitativa discreta: Asumen ciertos valores (enteros, integer) Cuantitativa continua: Asume cualquier valor (decimales, numeric)

***Muestra: Conjunto de medidas tomadas a partir de una poblacion dada. Es un subconjunto de la poblacion n.  Se usa cuando: La poblacion es infinita o muy grande La poblacion es finita pero lo suficientemente grande/costoso y tomaria mucho tiempo. La unidad de estudio se trasforma o se destruye al ser examinada. Los resultados que arrojarian muestran bien seleccionada, de tamaños razonables, serian muy precisos.

***Distribucion de frecuencias: Indica cuantas veces se observa cada categoria. Categoriza y clasifica a partir de limites. Criterios de construccion Regla de sturges

library(fdth)

data("CO2")
str(CO2)
uptake<-CO2$uptake

tf_uptake<-fdt(uptake)#Predeterminado por sturges
tf_uptake1<-fdt(uptake,breaks=c('Sturges'))
tf_uptake2<-fdt(uptake,breaks=c('Scott'))
mean(uptake)
hist(uptake)
sort(uptake)
plot(tf_uptake, type= "cfh",main="Co2", col="Green")

Distribucion normal

x=seq(5,5,length= 100)
y=dnorm(x)
plot(x,y,type="l",lwd=2, col="red")

Distribucion continua mas importante, forma de campana. Campana de Gauss es asintota. Para calcular la probablidad de un evento se resta dos intervalos especificos, punto donde inicia y donde termina la desviacion estandar, sabiendo la media. Esto para distribucion normal

(pnorm(1,mean=0,sd=1)-pnorm(-1,mean=0,sd=1))*100
(pnorm(1,mean=23,sd=2.3)-pnorm(-1,mean=23,sd=2.3))*100

Formulacion de hipotesis: Siempre hay hipotesis nula e hipotesis alternativa.

Ejemplo: Jaguar, cantidad de avistamiento en dos sitios, san juan la selva y braulio carrillo.

H0:Son iguales h1:No son iguales

Ejercicio: h0: peso masculino es mayor al femenino h1: peso femenino es mayor o igual al masculino

dos poblaciones: tstudent mu se usa para solo una poblacion

shapiro.test(femenino)

    Shapiro-Wilk normality test

data:  femenino
W = 0.93727, p-value = 0.523

Se acepta h0:El peso masculino es mayor.

Normalidad de los datos se determina con shapiro.test(x)

Ejercicio ¿Peso de la poblacion son iguales a 65 kg que es el historico del curso? h0:mu=65 h1:mu no desigual 65

shapiro.test(peso)
t.test(mu=65,alternative="two.sided",peso)

Como el resultado de p-value es de 0.7268, se acepta h0,por lo tanto el peso de la poblacion de estadistica es igual a 65 (t= 0.35388, df=22)

LS0tDQp0aXRsZTogIlNlbWFuYSAyIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NClNlbWFuYSAyLg0KRXN0ZSBlc3BhY2lvKG5vdGVib29rKSBzZSBkZW5vbWluYSBjaHVuaw0KDQpMYXMgb2JzZXJ2YWNpb25lcyBzaWVtcHJlIHNlIHVzYW4gZW4gbGFzIGZpbGFzIHkgY29sdW1uYXMgdmFyaWFibGVzIHkgZmFjdG9yZXMNClBhcmEgY2FyZ2FyIGFyY2hpdm9zOg0KDQp2YXJpYWJsZTwtIHJlYWQuY3N2KCJhcmNoaXZvLmNzdiIsIHNlcD0uLCBoZWFkZXI9ICJUcnVlIiwgZGVjPSIiLCByb3duYW1lcz0iIikNCkxhIGZ1bmNpb24gZ2V0d2QoKWluZGljYSBjdWFsIGVzIGxhIGRpcmVjY2nDs24gZGUgdHJhYmFqbyBhY3R1YWwNCg0KUHJhY3RpY2EsIGNhcmdhciBiYXNlIGRlIGRhdG9zDQpgYGB7cn0NCmxpYnJhcnkocmVhZHIpDQpQUkFDVElDQTAxX0RFU0NSSVBUSVZBIDwtIHJlYWRfZGVsaW0oImJhc2UgZGUgZGF0b3MvUFJBQ1RJQ0EwMS1ERVNDUklQVElWQS5jc3YiLA0KICAgIGRlbGltID0gIjsiLCBlc2NhcGVfZG91YmxlID0gRkFMU0UsIHRyaW1fd3MgPSBUUlVFKQ0KUFJBQ1RJQ0EwMV9ERVNDUklQVElWQTwtbmEub21pdChQUkFDVElDQTAxX0RFU0NSSVBUSVZBKQ0KVmlldyhQUkFDVElDQTAxX0RFU0NSSVBUSVZBKQ0KbnVtZXJvX2RlX2VzdHVkaWFudGU8LVBSQUNUSUNBMDFfREVTQ1JJUFRJVkEkLi4uMQ0KaGVhZChQUkFDVElDQTAxX0RFU0NSSVBUSVZBKQ0Kc3RyKFBSQUNUSUNBMDFfREVTQ1JJUFRJVkEpDQpwZXNvPC1QUkFDVElDQTAxX0RFU0NSSVBUSVZBJFBFU08NCmBgYA0KDQpFc3RhZGlzdGljYSBkZSBkYXRvcw0KTWVkaWE6IG1lYW4oKQ0KTW9kYTogbW9kZShDYXJnYXIgbGlicmVyaWEgbW9kZWVzdCkNCm1lZGlhbmE6IG1lZGlhbg0KTWVkaWEsIG1vZGEgeSBtZWRpYW5hIHRpZW5kZW4gYSBzZXIgbXV5IHBhcmVjaWRvcyBlbiB1bmEgZGlzdHJpYnVjaW9uIG5vcm1hbA0KDQpgYGB7cn0NCm1lYW4oUFJBQ1RJQ0EwMV9ERVNDUklQVElWQSRQRVNPKQ0KbWVkaWFuKFBSQUNUSUNBMDFfREVTQ1JJUFRJVkEkUEVTTykNCm1pbihQUkFDVElDQTAxX0RFU0NSSVBUSVZBJFBFU08pDQptYXgoUFJBQ1RJQ0EwMV9ERVNDUklQVElWQSRQRVNPKQ0Kc3VtbWFyeShwZXNvKQ0Kc2QocGVzbykNCnZhcihwZXNvKQ0KcmFuZ2UocGVzbykNCg0KYGBgDQoNCkNsYXNlIGRlIG1pZXJjb2xlcyA4IGRlIG1hcnpvDQoNCkZ1bmRhbWVudG9zIGRlIHVuIHByb2JsZW1hIGVzdGFkaXN0aWNvOg0KMS5EZWZpbmlyIGxhIHByZWd1bnRhIGFjZXJjYSBkZSBsYSBwb2JsYWNpb24NCjIuUHJvY2VkaW1pZW50byBkZSBtdWVzdHJlbyBvIGRpc2XDsW8gZGUgZXhwZXJpbWVudG8NCjMuUmVjb2xlY2Npb24geSBhbmFsaXNpcyBkZSBkYXRvcw0KNC5JbmZlcmlyIGFjZXJjYSBkZSBsYSBwb2JsYWNpb24gbWVkaWFudGUgcHJvYmFiaWxpZGFkIA0KDQpUaXBvcyBkZSBlc3RhZGlzdGljYTogDQpEZXNjcmlwdGl2YSA6IFNlIHVzYSBwYXJhIGNvbm9jZXIgY2FyYWN0ZXJpc3RpY2FzIHkgYW5hbGl6YW5kbyBsYSBzZXJpZSBkZSBkYXRvcy4NCkluZmVyZW5jaWEgZXN0YWRpc3RpY2E6IFNlIG9idGllbmVuIGNvbmNsdXNpb25lcyBhIHBhcnRpciBkZSBsb3MgZGF0b3MuDQoNCkNvbmNlcHRvcyBkZSBpbXBvcnRhbmNpYToNCioqKiBQb2JsYWNpb246IENvbmp1bnRvIGRlIHRvZG9zIGxvcyBwb3NpYmxlcyBlbGVtZW50b3MgcXVlIGludGVydmllbmVuLiBDb25qdW50byBkZSBlbGVtZW50b3MgcXVlIGN1bXBsZW4gY2llcnRhcyBwcm9waWVkYWRlcyBjb211bmVzLlB1ZWRlIHNlciBmaW5pdGEgbyBpbmZpbml0YS4NCg0KKioqIFZhcmlhYmxlcyBlc3RhZGlzdGljYXM6IFRvbWEgdmFsb3JlcyBkZSB1biBjb25qdW50byBkZXRlcm1pbmFkbyBwb3IgdW4gZGF0by4gUGFyYSBxdWUgdW5hIHZhcmlhYmxlIHNlIGNvbnNpZGVyZSB1biBkYXRvIGVzdGFkaXN0aWNvIGRlYmUgZGUgdGVuZXIgZG9zIGNhcmFjdGVyaXN0aWNhczogUXVlIHNlYW4gY29tcGFyYWJsZXMgZW50cmUgc2kgeSBxdWUgdGVuZ2FuIHVuYSBidWVuYSByZWxhY2lvbi4NClRpcG9zIGRlIHZhcmlhYmxlczogDQpDdWFsaXRhdGl2YXMgb3JkaW5hbGVzOiBDbGFzaWZpY2Egb2JqZXRvcyAobXV5IHVzYWRvIGVuIHNhbHVkKQ0KQ3VhbGl0YXRpdmFzOiBDYWxpZmljYW4geSBjbGFzaWZpY2FuIGRhdG9zDQpDdWFudGl0YXRpdmFzOiBDb21wcmVuZGUgY2FudGlkYWRlcyBudW1lcmljYXMsIG1lZGlyIG1hbmduaXR1ZGVzIGNvbnRpbnVhcy4gVG9tYSBjdWFscXVpZXIgdmFsb3IgZW4gdW5hIGVzY2FsYSBkZSBtZWRpZGFzIChlbnRlcm8gbyBmcmFjY2lvbmFyaW8pLg0KQ3VhbnRpdGF0aXZhIGRpc2NyZXRhOiBBc3VtZW4gY2llcnRvcyB2YWxvcmVzIChlbnRlcm9zLCBpbnRlZ2VyKQ0KQ3VhbnRpdGF0aXZhIGNvbnRpbnVhOiBBc3VtZSBjdWFscXVpZXIgdmFsb3IgKGRlY2ltYWxlcywgbnVtZXJpYykNCg0KKioqTXVlc3RyYTogQ29uanVudG8gZGUgbWVkaWRhcyB0b21hZGFzIGEgcGFydGlyIGRlIHVuYSBwb2JsYWNpb24gZGFkYS4gRXMgdW4gc3ViY29uanVudG8gZGUgbGEgcG9ibGFjaW9uIG4uIA0KU2UgdXNhIGN1YW5kbzoNCkxhIHBvYmxhY2lvbiBlcyBpbmZpbml0YSBvIG11eSBncmFuZGUNCkxhIHBvYmxhY2lvbiBlcyBmaW5pdGEgcGVybyBsbyBzdWZpY2llbnRlbWVudGUgZ3JhbmRlL2Nvc3Rvc28geSB0b21hcmlhIG11Y2hvIHRpZW1wby4NCkxhIHVuaWRhZCBkZSBlc3R1ZGlvIHNlIHRyYXNmb3JtYSBvIHNlIGRlc3RydXllIGFsIHNlciBleGFtaW5hZGEuDQpMb3MgcmVzdWx0YWRvcyBxdWUgYXJyb2phcmlhbiBtdWVzdHJhbiBiaWVuIHNlbGVjY2lvbmFkYSwgZGUgdGFtYcOxb3MgcmF6b25hYmxlcywgc2VyaWFuIG11eSBwcmVjaXNvcy4gDQoNCioqKkRpc3RyaWJ1Y2lvbiBkZSBmcmVjdWVuY2lhczoNCkluZGljYSBjdWFudGFzIHZlY2VzIHNlIG9ic2VydmEgY2FkYSBjYXRlZ29yaWEuIENhdGVnb3JpemEgeSBjbGFzaWZpY2EgYSBwYXJ0aXIgZGUgbGltaXRlcy4NCkNyaXRlcmlvcyBkZSBjb25zdHJ1Y2Npb24NClJlZ2xhIGRlIHN0dXJnZXMNCg0KYGBge3J9DQpsaWJyYXJ5KGZkdGgpDQoNCmRhdGEoIkNPMiIpDQpzdHIoQ08yKQ0KdXB0YWtlPC1DTzIkdXB0YWtlDQoNCnRmX3VwdGFrZTwtZmR0KHVwdGFrZSkjUHJlZGV0ZXJtaW5hZG8gcG9yIHN0dXJnZXMNCnRmX3VwdGFrZTE8LWZkdCh1cHRha2UsYnJlYWtzPWMoJ1N0dXJnZXMnKSkNCnRmX3VwdGFrZTI8LWZkdCh1cHRha2UsYnJlYWtzPWMoJ1Njb3R0JykpDQptZWFuKHVwdGFrZSkNCmhpc3QodXB0YWtlKQ0Kc29ydCh1cHRha2UpDQpwbG90KHRmX3VwdGFrZSwgdHlwZT0gImNmaCIsbWFpbj0iQ28yIiwgY29sPSJHcmVlbiIpDQpgYGANCkRpc3RyaWJ1Y2lvbiBub3JtYWwgDQoNCmBgYHtyfQ0KeD1zZXEoNSw1LGxlbmd0aD0gMTAwKQ0KeT1kbm9ybSh4KQ0KcGxvdCh4LHksdHlwZT0ibCIsbHdkPTIsIGNvbD0icmVkIikNCg0KYGBgDQoNCkRpc3RyaWJ1Y2lvbiBjb250aW51YSBtYXMgaW1wb3J0YW50ZSwgZm9ybWEgZGUgY2FtcGFuYS4gQ2FtcGFuYSBkZSBHYXVzcyBlcyBhc2ludG90YS4NClBhcmEgY2FsY3VsYXIgbGEgcHJvYmFibGlkYWQgZGUgdW4gZXZlbnRvIHNlIHJlc3RhIGRvcyBpbnRlcnZhbG9zIGVzcGVjaWZpY29zLCBwdW50byBkb25kZSBpbmljaWEgeSBkb25kZSB0ZXJtaW5hIGxhIGRlc3ZpYWNpb24gZXN0YW5kYXIsIHNhYmllbmRvIGxhIG1lZGlhLg0KRXN0byBwYXJhIGRpc3RyaWJ1Y2lvbiBub3JtYWwNCmBgYHtyfQ0KKHBub3JtKDEsbWVhbj0wLHNkPTEpLXBub3JtKC0xLG1lYW49MCxzZD0xKSkqMTAwDQoocG5vcm0oMSxtZWFuPTIzLHNkPTIuMyktcG5vcm0oLTEsbWVhbj0yMyxzZD0yLjMpKSoxMDANCg0KYGBgDQoNCkZvcm11bGFjaW9uIGRlIGhpcG90ZXNpczoNClNpZW1wcmUgaGF5IGhpcG90ZXNpcyBudWxhIGUgaGlwb3Rlc2lzIGFsdGVybmF0aXZhLiANCg0KRWplbXBsbzogSmFndWFyLCBjYW50aWRhZCBkZSBhdmlzdGFtaWVudG8gZW4gZG9zIHNpdGlvcywgc2FuIGp1YW4gbGEgc2VsdmEgeSBicmF1bGlvIGNhcnJpbGxvLiANCg0KSDA6U29uIGlndWFsZXMNCmgxOk5vIHNvbiBpZ3VhbGVzDQoNCkVqZXJjaWNpbzoNCmgwOiBwZXNvIG1hc2N1bGlubyBlcyBtYXlvciBhbCBmZW1lbmlubw0KaDE6IHBlc28gZmVtZW5pbm8gZXMgbWF5b3IgbyBpZ3VhbCBhbCBtYXNjdWxpbm8NCg0KZG9zIHBvYmxhY2lvbmVzOiB0c3R1ZGVudA0KbXUgc2UgdXNhIHBhcmEgc29sbyB1bmEgcG9ibGFjaW9uDQpgYGB7cn0NCm1hc2N1bGlubzwtYyg3OSw4MCw3NSw3NCw4OSw5MCw4Nyw1OSw2NSw3OCkNCmZlbWVuaW5vPC1jKDYzLDc2LDUzLDYwLDcwLCA3Myw2NSw4MCw3NSw3NikNCnNoYXBpcm8udGVzdChtYXNjdWxpbm8pDQpzaGFwaXJvLnRlc3QoZmVtZW5pbm8pDQp2YXIudGVzdChtYXNjdWxpbm8sZmVtZW5pbm8pDQp0LnRlc3QoeD1tYXNjdWxpbm8sIHk9IGZlbWVuaW5vLA0KICAgICAgIGFsdGVybmF0aXZlID0gYygiZ3JlYXRlciIpLCBwYWlyZWQgPSBGQUxTRSwgdmFyLmVxdWFsID0gVFJVRSwNCiAgICAgICBjb25mLmxldmVsID0gMC45NSkNCg0KDQpgYGANClNlIGFjZXB0YSBoMDpFbCBwZXNvIG1hc2N1bGlubyBlcyBtYXlvci4NCg0KTm9ybWFsaWRhZCBkZSBsb3MgZGF0b3Mgc2UgZGV0ZXJtaW5hIGNvbiBzaGFwaXJvLnRlc3QoeCkNCg0KRWplcmNpY2lvDQrCv1Blc28gZGUgbGEgcG9ibGFjaW9uIHNvbiBpZ3VhbGVzIGEgNjUga2cgcXVlIGVzIGVsIGhpc3RvcmljbyBkZWwgY3Vyc28/DQpoMDptdT02NQ0KaDE6bXUgbm8gZGVzaWd1YWwgNjUNCmBgYHtyfQ0Kc2hhcGlyby50ZXN0KHBlc28pDQp0LnRlc3QobXU9NjUsYWx0ZXJuYXRpdmU9InR3by5zaWRlZCIscGVzbykNCg0KYGBgDQpDb21vIGVsIHJlc3VsdGFkbyBkZSBwLXZhbHVlIGVzIGRlIDAuNzI2OCwgc2UgYWNlcHRhIGgwLHBvciBsbyB0YW50byBlbCBwZXNvIGRlIGxhIHBvYmxhY2lvbiBkZSBlc3RhZGlzdGljYSBlcyBpZ3VhbCBhIDY1ICh0PSAwLjM1Mzg4LCBkZj0yMikNCg0K