for-lus

R voor gevorderden

Filip Schouwenaars

DataCamp Instructor

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")
cities

"New York"   "Paris"  ...  "Cape Town"

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")

for(var in seq) {
  expr
}

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  expr
}

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

"New York"

for-lus

for(var in seq) {
  expr
}

cities <- c("New York", "Paris", 
            "London", "Tokyo",              
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

"Paris"

for-lus

cities <- c("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

"New York"
"Paris"
"London"
"Tokyo"
"Rio de Janeiro"
"Cape Town"

for-lus over list

cities <- list("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

"New York"
"Paris"
"London"
"Tokyo"
"Rio de Janeiro"
"Cape Town"

break-statement

cities <- list("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  if(nchar(city) == 6) {
    break
  }
  print(city)
}

break-statement

cities <- list("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  if(nchar(city) == 6) {
    break
  }
  print(city)
}

"New York"

"Paris"

next-statement

cities <- list("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  if(nchar(city) == 6) {
    next
  }
  print(city)
}

"New York"
"Paris"
"Tokyo"
"Rio de Janeiro"
"Cape Town"

for-lus: v2

cities <- c("New York", "Paris", 
            "London", "Tokyo",            
            "Rio de Janeiro", "Cape Town")

for(city in cities) {
  print(city)
}

for-lus: v2

cities <- c("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(i in 1:length(cities)) {
  print(city)
}

for-lus: v2

cities <- c("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

for(i in 1:length(cities)) {
  print(cities[i])
}

"New York"
"Paris"
"London"
"Tokyo"
"Rio de Janeiro"
"Cape Town"

for-lus: v2

cities <- c("New York", "Paris", 
            "London", "Tokyo", 
            "Rio de Janeiro", "Cape Town")

for(i in 1:length(cities)) {
  print(paste(cities[i], "is on position", 
              i, "in the cities vector."))
}

"New York is on position 1 in the cities vector."
"Paris is on position 2 in the cities vector."
"London is on position 3 in the cities vector."
"Tokyo is on position 4 in the cities vector."
"Rio de Janeiro is on position 5 in the cities vector."
"Cape Town is on position 6 in the cities vector."

for-lus: samenvatting

cities <- c("New York", "Paris", 
            "London", "Tokyo",
            "Rio de Janeiro", "Cape Town")

#Compact en leesbaar, maar geen toegang tot de index
for(city in cities) {
  print(city)
}

#Moeilijker te lezen en schrijven, maar flexibeler
for(i in 1:length(cities)) {
  print(cities[i])
}

Laten we oefenen!

R voor gevorderden