Run a code on R studio and take screenshot of the output.

I need you to run this code for my dataset on Rstudio desktop application: dataset = [login to view URL]('../desktop/R project/[login to view URL]') # read the csv file dataset$ratings_disabled <- sapply(dataset$ratings_disabled , [login to view URL]) # convert the ratings_disabled column to 0's and 1's dataset$comments_disabled <- sapply(dataset$comments_disabled , [login to view URL])# convert the comments_disabled column to 0's and 1's dataset$video_error_or_removed <- sapply(dataset$video_error_or_removed , [login to view URL])# convert the video_error_or_removed column to 0's and 1's dataset$channel_title <- [login to view URL]([login to view URL](dataset$channel_title)) # channel_title column contain text , so label encode the column print ("Hi") dataset$trending_date <- format([login to view URL](dataset$trending_date ,format = "%Y.%d.%m"),"20%y-%m-%d")#conver the trending_date to date onject dataset$publish_time <- [login to view URL](dataset$publish_time ,format = "%Y-%m-%d")#conver the publish_time to date onject dataset$date_diff <- [login to view URL](difftime( dataset$trending_date ,dataset$publish_time , units = c("days")))# create a new column for new feature by difference of two date column dataset <- subset(dataset, select = -c(video_id, tags,thumbnail_link,description,trending_date,title,publish_time))# drop the unwanted columns dataset <- scale(dataset) library(purrr) library(cluster) [login to view URL] <- prcomp(dataset, center = TRUE,scale. = FALSE) pam_k3 <- pam([login to view URL]$x[,0:1], k = 4) pam_k3$silinfo$widths sil_plot <- silhouette(pam_k3) plot(sil_plot) pam_k3$silinfo$[login to view URL]