Anova y regresión potencial en R.

## Para construir un modelo de regresión basado en la distribucion t se usa lm para construirlo basado en sumas de cuadrados se usa aov.

—————————————————————————————————————————

#Primer anova
a=c(58,64,55,66,67)
b=c(58,69,71,64,68)
c=c(48,57,59,47,49)

y=c(a,b,c)
repi=rep(1:3,each=5)
repi=factor(repi, labels = c(“ma”, “me”,”mi”))
anova=aov(y~repi)
summary(anova)

##segundo anova
i=c(58,58,48)
j=c(64,69,57)
k=c(55,71,59)
l=c(66,64,47)
m=c(67,68,49)

q=c(i,j,k,l,m)
repit=rep(1:5,each=3)
repit=factor(repit,labels=c(“su”,”ma”,”dre”,”ci”,”ta”))
anova2=aov(q~repit)
summary(anova2)

##anova de dos vías
y
metodo=factor(1,3,each=5 )
instructor=factor(rep(1:5,3))
xtabs(y~instructor+metodo)

anova3=aov(y~instructor+metodo)
summary(anova3)

##Punto 8 Jachynt
a=c(15,14,10,13,16,13)
b=c(15,14,11,12,13,13)
c=c(18,14,15,17,16,13)

y=c(a,b,c)
facti=factor(rep(1:3,each=6))
anova4=aov(y~facti)
summary(anova4)
###
x=c(
2,
6,
8,
8,
12,
16,
20,
20,
22,
26)
y=c(
58,
105,
88,
118,
117,
137,
157,
169,
149,
202)

z=log(x)
w=log(y)
reg=lm(w~z);summary(reg)
exp()

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s