BSE "Jubilant FoodWorks Ltd" Stock Analysis Presentation

jubi533155 <- read.csv("C:/Users/prave/OneDrive/bigdata/R/project/bse/jubi533155.csv")
J<-data.frame(jubi533155)
View(J)

# Select required coloumns
JB<- subset(J,select =c(Date,Open.Price,Low.Price,High.Price,Close.Price))
View(JB)
x<-JB
View(x)
# Selecting the top 50 Rows
x<-head(JB,n=20L)
View(x)

summary(cars)

     speed           dist       
 Min.   : 4.0   Min.   :  2.00  
 1st Qu.:12.0   1st Qu.: 26.00  
 Median :15.0   Median : 36.00  
 Mean   :15.4   Mean   : 42.98  
 3rd Qu.:19.0   3rd Qu.: 56.00  
 Max.   :25.0   Max.   :120.00