Assignment 1

first: import dataset

data2<-read.csv(“~/sorghum1.csv”)

checking dataset

head(data2) tail(data2) str(data2)

selection our variable

sorghum1<-data2$sorghum

Checking missing values

any(is.na(sorghum1)) sum(is.na( sorghum1))

Is it time series data or NOT?

is.ts(sorghum1) class(sorghum1)

converting time series

sorghum1ts<-ts(sorghum1, start = 1961, end = 2023, frequency = 1) is.ts(sorghum1ts) class(sorghum1ts)

start(sorghum1ts) end(sorghum1ts)

plotting

plot.ts(sorghum1ts)

Editin plot

plot.ts(sorghum1ts, xlab=“time”, ylab=“sorghum yeild”, main=“sorghum yeild in somalia 1961 - 2023”, col=“blue”)

data("AirPassengers")
summary(AirPassengers)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   104.0   180.0   265.5   280.3   360.5   622.0
hist(AirPassengers)

boxplot(AirPassengers)

plot(density(AirPassengers))