PRACTICA2

#PUNTO 1
x = c(1, 3, 5, 7, 9)
y = c(2, 4, 6, 7, 11, 12)
c = x+1
d = y*2
e = length(x);length(y)

## [1] 6

f = (x+y)

## Warning in x + y: longitud de objeto mayor no es múltiplo de la longitud de uno
## menor

g = sum(x>5)
G = sum(x[x>5])
h = sum(x>5 | x<3)
i = y[2]
j = y[-2]
k = y[x]
## se usa NA para representar datos perdidos
m = y[y>=8]

#PUNTO 2
#a
millas = c(65241, 65665, 65998, 66014, 66547, 66857, 67025, 67447, 66958, 67002)
#b
kms = 1.60934*millas
#C
diferencia = diff(kms)
#d
resumen = summary(diferencia)

#PUNTO 3
pago = c(47,32,40,36,49,31,49,30,49,35,48,32)
costo = sum(pago)
promedio = mean(pago)
maximo = max(pago)
minimo = min(pago)
mes = c("enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre")
mes_pago = mes[pago > 40]
mes_40 = pago[pago > 40]
porcentaje = (sum(mes_40)*100)/sum(pago)

#PUNTO 4

datos = c(61, 88, 73, 49, 41, 72, 99, 07, 12, 13, 87, 91, 05, 17, 97)
etiquetas <- paste0(round(100 * datos/sum(datos), 2), "%")
pie(datos, labels = etiquetas)

pie(datos, labels = etiquetas, main="Diagrama de tarta")

dev.off()

## null device 
##           1

summary(datos)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   15.00   61.00   54.13   87.50   99.00

fivenum(datos)

## [1]  5.0 15.0 61.0 87.5 99.0

#PUNTO 5 
valor_normal = rnorm(100)
histograma = hist(valor_normal)

resumen = summary(valor_normal)