####   6 DE JUNIO DE 2023
#  PROF. ATILANO

getwd()

setwd("C:\Users/atiil\OneDrive\Escritorio")

setwd("C:/Users/atiil/OneDrive/Escritorio")



ventas

s.t <- ts(ventas)

s.t

s.t.a <-ts(ventas, start=2001)

s.t.a

plot(s.t.a, main=" VENTAS EVOLUCIÓN EN EL SIGLO XXI")

s.t.m <- ts(ventas, start= c(2015,1), frequency=12)

s.t.m

plot(s.t.m, main="VENTAS MENSUALES")


s.ts.q <- ts(ventas, start = c(2000,1), frequency = 4)

s.ts.q

plot(s.ts.q, main="VENTAS EVOLUCIÓN TRIMESTRAL")

###########  SUERTE  ###############