Data Science - Midterm Exam

Brief Description.md

[ Cisco Systems, Inc. ]

QUESTION 1: A short description of the company.

• Cisco Systems, Inc. was originally founded by an American businesswoman and philanthropist, Sandy Lerner and her husband, Leonard Bosack on December 10 1984.
• The company is most well-known for its Internet Protocol based networking and other products related to the communications and information technology industry.
• The initial product of Cisco Systems was called the “Blue Box” which supported multiple communications protocols that allowed all computer systems at Stanford to talk to one another.
• Currently, the company has over 75 thousand employees world-wide and it is one of the biggest companies in the world with the current market cap of 256 billion dollars.
• Cisco is short for San Francisco, the city where the company was founded.

QUESTION 2: Listed on which stock exchange?

=>The company is listed on the NasdaqGS stock exchange with the name of CSCO.

QUESTION 3: When did the company apply for IPO?

=> The company applied for IPO on February 16 1990.

QUESTION 4: What was their stock price when they applied for IPO?

=> When they applied for an IPO, their stock price was $0.06.

QUESTION 5: What is their current stock price?

=> At the time of writing this, their stock price is $60.81.

QUESTION 6: Are there any solutions or outcomes that this research could support?

=> The highest stock price for Cisco Systems is $80.06 which was closed on March 27 2000.

---

Reference: https://en.wikipedia.org/wiki/Cisco_Systems https://finance.yahoo.com/quote/CSCO/profile?p=CSCO https://www.pcmag.com/encyclopedia/term/multiprotocol-router https://www.cisco.com/c/en_dz/about/blog-africa/2017/8-things-you-didnt-know-about-Cisco.html https://investor.cisco.com/resources-and-faqs/faqs/default.aspx

CSCO.r

# installing necessary packages (only if not exists)
packages_to_install <- c("tidyquant", "ggplot2")
installed_packages <- installed.packages()[,"Package"]
new_packages <- packages_to_install[!(packages_to_install %in% installed_packages)]
if (length(new_packages)) {
  print(paste0("Installing: ", toString(new_packages)))
  install.packages(new_packages)
} else {
  print("All packages are already installed.")
}

# using the packages
library(tidyquant)
library(ggplot2)

company <- "CSCO"

# define dataset
start_date <- as.Date("2021-11-22")
end_date <- as.Date("2021-12-22")
dataset <- tq_get(
  company,
  get = "stock.prices",
  from = start_date,
  to = end_date
)

# Quantitative data: date, open, high, low, close, volume, adjusted
# Qualitative data : symbol

# visualize the dataset
ggplot(
  data = dataset, aes(x = date)
) +
  geom_candlestick(
    aes(
      open = open,
      close = close,
      high = high,
      low = low,
    ),
    colour_up = "#2992e3",
    fill_up = "#32a852"
  ) +
    labs(
      title = "CSCO Price Action",
      x = "",
      y = "Price in USD",
    )

#export the dataset
write.csv(dataset, file="dataset.csv")

dataset.png