adsp-8

library(caret) data(iris)

nrow(iris)

idx <-createDataPartition(iris$Species,p=0.6,list=FALSE)

idx train<-iris[idx,] test <-iris[-idx,]

nrow(train) nrow(test)

library(dplyr) library(ggplot2) data(“diamonds”) diamonds %>% head

library(dplyr) library(ggplot2) data(“diamonds”) diamonds1<-diamonds %>% rename(c=clarity,p=price) head(diamonds1,3)

count(diamonds,cut) table(diamonds\(cut) class(count(diamonds,cut)) class(table(diamonds\)cut))

library(dplyr) library(ggplot2) df1<-diamonds %>% select(carat,price) head(df1,3)

library(dplyr) library(ggplot2) diamonds %>% filter(cut==“Good”) %>% head(3)

library(dplyr) library(ggplot2) diamonds %>% mutate(Ratio=price/carat,Double=Ratio*2) %>% head(3)