#1. ariketa

#(a)

x <- c(45,43,46,48,51,46,50,47,46,45)

#(b)

length(x)

#(c)

min(x)
max(x)

#(d)

mean(x)
median(x)
quantile(x)
sum(x)/length(x)

#(e)
y <- x*x
z <- mean(x)*mean(x)
bariantza <- (sum(y)/length(x))-z
var(x)

#(f)
sqrt(bariantza)
sd(x)

########2. ariketa########

#(c)
t <- read.table("/docencia/cuentas/8/839710/Desktop/galdetegia.txt", header = TRUE)

#(d)

names(t)

#(e)

BB <- mean(t$Bidaian)
length(t$Bidaian)
median(t$Bidaian)
boxplot(t$Bidaian, horizontal = TRUE)

#(f)

boxplot(t$Altuera, horizontal = TRUE)
summary(t$Altuera)
sort(t$Altuera)
altuera <- t$Altuera
aukeratu <- t$Altuera <= 20
altuera[aukeratu] <- NA
boxplot(altuera, horizontal = TRUE)
hist(altuera)
altBB <- mean(altuera, na.rm = TRUE)
altS <- sd (altuera, na.rm = TRUE)
a <- altBB-2*altS
b <- altBB+2*altS
185*0.95
altKAT <- cut(altuera, breaks=c(140, a, b, 200))
table(altKAT)

#(f iv)
hist(t$Bidaian) #Ez, ez duelako kanpai itsura