datos<- ToothGrowth
datos

Descripcion variables

help(ToothGrowth)

Factores: 1. Concentracion niveles 0.5,1,2 [mg/dia] 2. Metodo de suministro de dosis: niveles jugo de naranja o ascorbic acid

Variable de observación: longitud del diente

Objetivos= Determinar si las variaciones en el crecimiento de los dientes en unos cone…son debidas a las variaciones en la dosis de dos tipos de tratamiento ¿ Hay relacion entre la longitud y los factores tratamiento?

Determinar la relacion entre entre el crecimiento de los dientes y la concentración de la dosis en los diferentes tratamientos

¡Cual o de que tipo de relacion existe entre longitud y los factores=? Estadistica Descriptiva Filtrar la informacion por grupos metodos o concentracion Pasos: Instalar paquete dplyr: install.packages(“dplyr”)

library(dplyr)

filtrar crear una base de datos donde esten solo los conejitos que le dieron jugo y otra que le dieron vitamina C

JN<- filter(datos,supp=='OJ')
JN

grupo VC

vc<- filter(datos,supp=='VC')
vc

boxplot(JN\(len, vc\)len)

boxplot(JN$len, vc$len)

paquete moments

library(moments)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCmBgYHtyLCBlY2hvPVR9DQpkYXRvczwtIFRvb3RoR3Jvd3RoDQpkYXRvcw0KDQpgYGANCiMjIERlc2NyaXBjaW9uIHZhcmlhYmxlcw0KYGBge3IsZWNobz1UfQ0KaGVscChUb290aEdyb3d0aCkNCmBgYA0KRmFjdG9yZXM6IA0KMS4gQ29uY2VudHJhY2lvbiBuaXZlbGVzIDAuNSwxLDIgW21nL2RpYV0NCjIuIE1ldG9kbyBkZSBzdW1pbmlzdHJvIGRlIGRvc2lzOiBuaXZlbGVzIGp1Z28gZGUgbmFyYW5qYSBvIGFzY29yYmljIGFjaWQNCg0KVmFyaWFibGUgZGUgb2JzZXJ2YWNp8246IGxvbmdpdHVkIGRlbCBkaWVudGUgDQoNCk9iamV0aXZvcz0NCkRldGVybWluYXIgc2kgbGFzIHZhcmlhY2lvbmVzIGVuICBlbCBjcmVjaW1pZW50byBkZSBsb3MgZGllbnRlcyBlbiB1bm9zIGNvbmUuLi5zb24gZGViaWRhcyBhIGxhcyAgdmFyaWFjaW9uZXMgZW4gbGEgZG9zaXMgZGUgZG9zIHRpcG9zIGRlIHRyYXRhbWllbnRvDQq/IEhheSByZWxhY2lvbiBlbnRyZSBsYSBsb25naXR1ZCB5IGxvcyBmYWN0b3JlcyB0cmF0YW1pZW50bz8NCg0KDQpEZXRlcm1pbmFyIGxhIHJlbGFjaW9uIGVudHJlIGVudHJlIGVsIGNyZWNpbWllbnRvIGRlIGxvcyBkaWVudGVzIHkgbGEgY29uY2VudHJhY2nzbiBkZSBsYSBkb3NpcyBlbiBsb3MgZGlmZXJlbnRlcyB0cmF0YW1pZW50b3MgDQoNCqFDdWFsIG8gZGUgcXVlIHRpcG8gZGUgcmVsYWNpb24gZXhpc3RlIGVudHJlIGxvbmdpdHVkIHkgbG9zIGZhY3RvcmVzPT8NCkVzdGFkaXN0aWNhIERlc2NyaXB0aXZhDQpGaWx0cmFyIGxhIGluZm9ybWFjaW9uIHBvciBncnVwb3MgbWV0b2RvcyBvIGNvbmNlbnRyYWNpb24NClBhc29zOg0KSW5zdGFsYXIgcGFxdWV0ZSBkcGx5cjogaW5zdGFsbC5wYWNrYWdlcygiZHBseXIiKQ0KDQpgYGB7cixlY2hvPVR9DQpsaWJyYXJ5KGRwbHlyKQ0KDQpgYGANCmZpbHRyYXIgY3JlYXIgdW5hIGJhc2UgZGUgZGF0b3MgZG9uZGUgZXN0ZW4gc29sbyBsb3MgY29uZWppdG9zIHF1ZSBsZSBkaWVyb24ganVnbyB5IG90cmEgcXVlIGxlIGRpZXJvbiB2aXRhbWluYSBDDQpgYGB7cixlY2hvPVR9DQpKTjwtIGZpbHRlcihkYXRvcyxzdXBwPT0nT0onKQ0KSk4NCg0KYGBgDQpncnVwbyBWQw0KYGBge3IsZWNobz1UfQ0KdmM8LSBmaWx0ZXIoZGF0b3Msc3VwcD09J1ZDJykNCnZjDQpgYGANCg0KYm94cGxvdChKTiRsZW4sIHZjJGxlbikNCmBgYHtyfQ0KYm94cGxvdChKTiRsZW4sIHZjJGxlbikNCmBgYA0KDQpwYXF1ZXRlIG1vbWVudHMNCmBgYHtyfQ0KbGlicmFyeShtb21lbnRzKQ0KbWVhbihkYXRvcyRsZW4pDQpgYGANCg==