D.NIST<-read.csv2(file="./Datos_NIST.dat",
  na.strings="NA",nrows=-1,skip=0,check.names=TRUE,
  strip.white=FALSE,blank.lines.skip=TRUE)

plot(D.NIST$Datos,type="l")

lag.plot(D.NIST$Datos)

hist(D.NIST$Datos)

qqnorm(D.NIST$Datos)

acf(D.NIST$Datos)

spec.pgram(D.NIST$Datos)

spectrum(D.NIST$Datos,method="ar")

plot.spec(D.NIST$Datos)
