##smycky v R
### kdyz se ma nejaky postup provadet opakovane, tak ho lze zapsat do smycky
####r zna nekolik typu smycek - for, while, repeat (+ do obou lze přidat next, break a if else)

#priklad for smycky
# pro kazdy pripad (i) od 2. případu po poslední případ v dokumentu 
#nrow lze zamenit za length, pripadne muzete napsat pozadovane cislo

a <- 1
for  (i in 1:6){
  print(a)
  a = a +1
}

b <- 1
while (b <= 6) {
  print(b)
  b = b+1
}

c <- 1
repeat {
  print(c)
  c = c+1
  if (c == 7){
    break
  }
}

#kumulovane hodnoty -chceme pricist k posledni hodnotě soucet vsech predchozich hodnot

  





for(i in 3:nrow(komplet_ok2)){
  if(komplet_ok2$jmeno[i-1]== komplet_ok2$jmeno[i] )
  {komplet_ok2$id_reci[i]  <- komplet_ok2$id_reci[i-1]} 
  else {    komplet_ok2$id_reci[i]  <- komplet_ok2$id_reci[i-1] + 1  }
}


