DC Intermediate R - Conditionals and Control Flow

#	DC Intermediate R
	DC Intermediate R - Conditionals and Control Flow
	DC Intermediate R - Loops
	DC Intermediate R - Functions
	DC Intermediate R - The apply family
	DC Intermediate R - Utilities

1 Equality

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=2

# Comparison of logicals
TRUE == FALSE

# Comparison of numerics
-6 * 14 != 17 - 101

# Comparison of character strings
"useR" == "user"

# Compare a logical with a numeric
TRUE == 1

2 Greater and less than

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=3

# Comparison of numerics
-6 * 5 + 2 >= -10 + 1

# Comparison of character strings
"raining" <= "raining dogs"

# Comparison of logicals
TRUE > FALSE

3 Compare vectors

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=4

# The linkedin and facebook vectors have already been created for you
linkedin <- c(16, 9, 13, 5, 2, 17, 14)
facebook <- c(17, 7, 5, 16, 8, 13, 14)

# Popular days
linkedin > 15

# Quiet days
linkedin <= 5

# LinkedIn more popular than Facebook
linkedin > facebook

4 Compare matrices

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=5

# The social data has been created for you
linkedin <- c(16, 9, 13, 5, 2, 17, 14)
facebook <- c(17, 7, 5, 16, 8, 13, 14)
views <- matrix(c(linkedin, facebook), nrow = 2, byrow = TRUE)

# When does views equal 13?
views == 13

# When is views less than or equal to 14?
views <= 14

5 & and |

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=7

# The linkedin and last variable are already defined for you
linkedin <- c(16, 9, 13, 5, 2, 17, 14)
last <- tail(linkedin, 1)

# Is last under 5 or above 10?
last < 5 | last > 10

# Is last between 15 (exclusive) and 20 (inclusive)?
last > 15 & last <= 20

6 & and | (2)

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=8

# The social data (linkedin, facebook, views) has been created for you

# linkedin exceeds 10 but facebook below 10
linkedin > 10 & facebook < 10

# When were one or both visited at least 12 times?
linkedin >= 12 | facebook >= 12

# When is views between 11 (exclusive) and 14 (inclusive)?
views > 11 & views <= 14

7 Reverse the result: !

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=9

x <- 5
y <- 7
!(!(x < 4) & !!!(y > 12))
#[1] FALSE

8 Blend it all together

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=10

# li_df is pre-loaded in your workspace

# Select the second column, named day2, from li_df: second
second <- li_df$day2

# Build a logical vector, TRUE if value in second is extreme: extremes
extremes <- (second > 25 | second < 5)

# Count the number of TRUEs in extremes
sum(extremes)

# Solve it with a one-liner
sum(second > 25 | second < 5)

9 The if statement

https://campus.datacamp.com/courses/intermediate-r/chapter-1-conditionals-and-control-flow?ex=12

# Variables related to your last day of recordings
medium <- "LinkedIn"
num_views <- 14

# Examine the if statement for medium
if (medium == "LinkedIn") {
  print("Showing LinkedIn information")
}

# Write the if statement for num_views
if (num_views > 15) {
  print("You're popular!")
}