How to Create, Modify, and access elements of Create, Modify, access elements of Vectors in Rstudio
# Let us create vectors in R
# Vectors are one-dimension arrays that can hold numeric data, character data, or logical data.
# vector defination in R
# numeric vector
age <- c(3, 25, 30, 55, 60)
#character vector
abc <- c("Ram", "Rahim", "Joseph", "SIdhu", "Mahaveer")
abc
[1] "Ram" "Rahim" "Joseph" "SIdhu" "Mahaveer"
# Logical vector
logical_vector <- c(TRUE, TRUE, TRUE, FALSE, FALSE )
# How to assign names to the vector
names(age) <- c("Ram", "Rahim", "Joseph", "SIdhu", "Mahaveer")
age
Ram Rahim Joseph SIdhu Mahaveer
3 25 30 55 60
names(age) <- abc
age
Ram Rahim Joseph SIdhu Mahaveer
3 25 30 55 60
age <- c(3, 25, 30, 55, 60)
age2 <- c(6, 7, 8, 9, 10)
Total_age <- age + age2
Total_age
[1] 9 32 38 64 70
total_ag <- sum(age)
total_ag
[1] 173
total_ag2 <- sum(age2)
total_ag2
[1] 40
total_ag > total_ag2
[1] TRUE
total_ag <- mean(age)
total_ag
[1] 34.6
total_ag2 <- mean(age2)
total_ag2
[1] 8
total_ag == total_ag2
[1] FALSE
total_ag != total_ag2
[1] TRUE
# Let us go to las vegas for gambling
# Poker winnings from Monday to Friday
poker_vector <- c(140, -50, 20, -120, 240)
# Roulette winnings from Monday to Friday
roulette_vector <- c(24, 50, 100, 350, 10)
# let us add names to the winning days
names(poker_vector) <-c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday")
poker_vector
Monday Tuesday Wednesday Thursday Friday
140 -50 20 -120 240
names(roulette_vector) <- c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday")
## Alternatively
days_vector <- c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday")
names(poker_vector) <- days_vector
names(roulette_vector)<- days_vector
## What was your net profit / loss every day
total_daily <- poker_vector + roulette_vector
total_daily
Monday Tuesday Wednesday Thursday Friday
164 0 120 230 250
# Total winnings with poker
total_poker <- sum(poker_vector)
# Total winnings with roulette
total_roulette <-sum(roulette_vector)
total_week <- (total_poker + total_roulette)
total_week
[1] 764
# Check if you realized higher total gains in poker than in roulette
total_poker > total_roulette
[1] FALSE
# Define a new variable based on a selection
poker_wednesday <- poker_vector[3]
# Define a new variable based on a selection
poker_midweek <- poker_vector[c(2, 3, 4)]
poker_midweek <- poker_vector [2:4]
poker_midweek
Tuesday Wednesday Thursday
-50 20 -120
poker_monday <- poker_vector ["Monday"]
poker_monday
Monday
140
average_midweek_gain <- mean(poker_vector[c("Monday", "Tuesday", "Wednesday")])
average_midweek_gain <- mean(poker_vector [2:4])
# What days of the week did you make money on poker?
selection_vector <- poker_vector > 0
# Select from poker_vector these days
poker_winning_days <- poker_vector[selection_vector]
poker_winning_days
Monday Wednesday Friday
140 20 240
# What days of the week did you make money on roulette?
selection_vector <- roulette_vector > 0
# Select from roulette_vector these days
roulette_winning_days <- roulette_vector[selection_vector]