AED 6, R - rextester

Language: Layout:

d<-c("B,A,A,B,A,B,B,A,B,A,A,B,A,A,B,B")
d<-as.factor(d)
d
y<-c(115.1,90.4,97.0,102.5,108.1,118.0,110.5,103.7,115.9,96.1,95.0,120.1,98.0,99.5,11.1,105.0)
y
length(y)
x<-c(1.15,1.17,1.61,1.57,1.56,1.65,1.45,1.38,1.45,1.43,1.45,1.60,1.49,1.39,1.38,1.47)
x
length(x)
r<-c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4)
s<-c("macho","fêmea","fêmea","macho","fêmea","macho","macho","fêmea","fêmea","macho","macho","fêmea","macho","macho","fêmea","fêmea")
length(s)

# a) Calcule a média geral de peso(y) e compeimento(x).

mean(y)
mean(x)

# b) Calcule a mediana de peso(y) e comprimento(x).

median(y)
median(x)

# c) Calcule a moda de peso(y) e comprimento(x).

3*median(y)-2*mean(y)
3*median(x)-2*mean(x)

# d) Calcule a média de peso e comprimento por raça

#média do peso(y1) e comprimento(x1) da raça 1
y1<-c(115.1,90.4,97.0,102.5)
x1<-c(1.15,1.17,1.61,1.57)
mean(y1)
mean(x1)

#média do peso(y2) e comprimento(x2) da raça 2
y2<-c(108.1,118.0,110.5,103.7)
x2<-c(1.56,1.65,1.45,1.38)
mean(y2)
mean(x2)

#média do peso(y3) e comprimento(x3) da raça 3
y3<-c(115.9,96.1,95.0,120.1)
x3<-c(1.45,1.43,1.45,1.60)
mean(y3)
mean(x3)

#média de peso(y4) e comprimento(x4) da raça 4
y4<-c(98.0,99.5,111.1,105.0)
x4<-c(1.49,1.39,1.38,1.47)
mean(y4)
mean(x4)

# e) calcule a média de peso e comprimento por sexo.

#média de peso(ym) e comprimento(xm) dos machos 
ym<-c(115.1,102.5,118.0,110.5,96.1,95.0,98.0,99.5)
xm<-c(1.15,1.57,1.65,1.45,1.43,1.45,1.49,1.39)
mean(ym)
mean(xm)

#média de peso(yf) e comprimento(xf) das fêmeas
yf<-c(90.4,97.0,108.1,103.7,115.9,120.1,111.1,105.0)
xf<-c(1.17,1.61,1.56,1.38,1.45,1.60,1.38,1.47)
mean(yf)
mean(xf)

[ + ] Show input
Absolute running time: 0.67 sec, cpu time: 0.87 sec, memory peak: 30 Mb, absolute service time: 0,7 sec