Práctica Ejercicio I

semilla<-7880
initRANDVN(semilla,4)
u<-RANDVNN(500)
# Histograma
plot(u)

hist(u, freq = FALSE)
curve(dunif(x, 0, 1), add = TRUE)
#q-q plot
library(car)

qqPlot(u,dist="unif")

#Dispersión retardado
plot(u[-500],u[-1])

# Gráfico secuencial
plot(as.ts(u))

# Gráfico de autocorrelaciones
acf(u) #correlaciones