DataSets - IIM

https://drive.google.com/open?id=1oD1mFi4zmqz5xGuCJ7_OdUKZgW5fekct


https://drive.google.com/file/d/1M4sGfss3DLYosCxWZoai2i9X1AMZoolb/view?usp=sharing




s=subset(movies_data,(movies_data$Rating>=3 & movies_data$Rating<4)& (grepl("^5",movies_data$Duration) &  grepl("*5$",movies_data$Duration)))




View(s)

___________________________________

greatest=function(A,B,C){

if(A>B){
  {
    if(A>C)
print("A is greater number")
  }}else if(B>C){
print("B is greater")
}else{
  print("C is greater")
}}


greatest(3,15,417)
__________________________________________

colors=c("green","orange","brown")                  
months=c("mar","apr","may","jun","jul")
regions=c("east","west","north")
values=matrix(c(2,4,5,3,5,2,5,3,7,8,9,4,7),nrow=3,ncol=5,byrow=TRUE)
barplot(values,names.arg=m,xlab="month",ylab="revenue",col=colors,main="revenue chart",border="red")

legend("topleft",regions,cex=1.3,fill=colors)