Adrian Bourcevet ABourcevet

ABourcevet / adv-11.r

Created January 11, 2022 10:25 — forked from muneebhashmi7712/adv-11.r

	plot(data, col="blue", xlab="Year", ylab="Passengers", main="Seasonal Naive Forecast", type='l')
	lines(naive$mean, col="red", lwd=2)

ABourcevet / adv-13.r

Created January 11, 2022 10:25 — forked from muneebhashmi7712/adv-13.r

	ets_forecast = forecast(ets_model, h=length(validation))
	MAPE(ets_forecast$mean, validation) *100

ABourcevet / adv-14.r

Created January 11, 2022 10:24 — forked from muneebhashmi7712/adv-14.r

	tbats_model = tbats(training)
	tbats_forecast = forecast(tbats_model, h=length(validation))
	MAPE(tbats_forecast$mean, validation) * 100

ABourcevet / adv-10.r

Created January 11, 2022 10:24 — forked from muneebhashmi7712/adv-10.r

	naive = snaive(training, h=length(validation))
	MAPE(naive$mean, validation) * 100

ABourcevet / adv-9.r

Created January 11, 2022 10:24 — forked from muneebhashmi7712/adv-9.r

	library(forecast)
	library(MLmetrics)
	data=AirPassengers
	#Create samples
	training=window(data, start = c(1949,1), end = c(1955,12))
	validation=window(data, start = c(1956,1))

ABourcevet / adv-8.r

Created January 11, 2022 10:23 — forked from muneebhashmi7712/adv-8.r

	# Plotting IQ on x-axis and result on y-axis
	plot(IQ, result, xlab = "IQ Level",
	ylab = "Probability of Passing")

	# Create a logistic model
	g = glm(result~IQ, family=binomial, df)

	# Create a curve based on prediction using the regression model
	curve(predict(g, data.frame(IQ=x), type="resp"), add=TRUE)

ABourcevet / adv-7.r

Created January 11, 2022 10:23 — forked from muneebhashmi7712/adv-7.r

	# Generate vector with pass and fail values of 40 students
	result <- c(0, 0, 0, 1, 0, 0, 0, 0, 0, 1,
	1, 0, 0, 0, 1, 1, 0, 0, 1, 0,
	0, 0, 1, 0, 0, 1, 1, 0, 1, 1,
	1, 1, 1, 0, 1, 1, 1, 1, 0, 1)

	# Data Frame
	df <- as.data.frame(cbind(IQ, result))

	# Print data frame

ABourcevet / adv-6.r

Created January 11, 2022 10:23 — forked from muneebhashmi7712/adv-6.r

	# Generate random IQ values with mean = 30 and sd =2
	IQ <- rnorm(40, 30, 2)

	# Sorting IQ level in ascending order
	IQ <- sort(IQ)

ABourcevet / adv-5.r

Created January 11, 2022 10:23 — forked from muneebhashmi7712/adv-5.r

	ggplot(data=iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(color=Species, shape=Species)) +
	xlab("Sepal Length") + ylab("Sepal Width") +
	ggtitle("Sepal Length-Width")

ABourcevet / adv-4.r

Created January 11, 2022 10:23 — forked from muneebhashmi7712/adv-4.r

	ggplot(data=iris, aes(x=Species, y=Sepal.Length)) +
	geom_boxplot(aes(fill=Species)) +
	ylab("Sepal Length") + ggtitle("Iris Boxplot")