Installing Packages

In R Console,

install.packages("PackageName")

Hit Enter, Packages will Install

To Use 

library(PackageName)

Hit Enter library will load, can be used as per required.

Comments

Post a Comment

Popular posts from this blog

Decision Tree Classification

Image
# Importing the dataset dataset = read.csv('Social_Network_Ads.csv') dataset = dataset[3:5] # Encoding the target feature as factor dataset$Purchased = factor(dataset$Purchased, levels = c(0, 1)) # Splitting the dataset into the Training set and Test set # install.packages('caTools') library(caTools) set.seed(123) split = sample.split(dataset$Purchased, SplitRatio = 0.75) training_set = subset(dataset, split == TRUE) test_set = subset(dataset, split == FALSE) # Feature Scaling training_set[-3] = scale(training_set[-3]) test_set[-3] = scale(test_set[-3]) # Fitting Decision Tree Classification to the Training set # install.packages('rpart') library(rpart) classifier = rpart(formula = Purchased ~ .,                    data = training_set) # Predicting the Test set results y_pred = predict(classifier, newdata = test_set[-3], type = 'clas...
Read more

View Data from frames

Say data stored in the name of v1 Want to see first 6  code: head(v1) want to see first 10 code: head(v1,n=10)   or head(v1, 10) Want to see last 6  code: tail(v1) want to see last 10 code: tail(v1,n=10) or tail(v1,10) Want Column Name colnames(v1) Want Row Name rownames(v1)
Read more

The Multi-Armed Bandit Problem -Upper Confidence Bound (Ad Campaign)

Image
# Upper Confidence Bound # Importing the dataset dataset = read.csv('Ads_CTR_Optimisation.csv') # Implementing UCB N = 10000 d = 10 ads_selected = integer(0) #d is vector has only zero's numbers_of_selections = integer(d) sums_of_rewards = integer(d) total_reward = 0 for (n in 1:N) {   ad = 0   max_upper_bound = 0   for (i in 1:d) {     if (numbers_of_selections[i] > 0) {       average_reward = sums_of_rewards[i] / numbers_of_selections[i]       #upper confidence limit       delta_i = sqrt(3/2 * log(n) / numbers_of_selections[i])       upper_bound = average_reward + delta_i     } else {         upper_bound = 1e400     }     if (upper_bound > max_upper_bound) {       max_upper_bound = upper_bound       ad = i     }   }   ads_selected = append(ads_selected, ad)   ...
Read more