rozrazeni <- function(x) {
  for (i in c(1:nrow(x))){
    if (sample(1:100, 1) < 50) {x$ramena[i] <- "kontrola"}
    else {x$ramena[i] <- "lecba"}
  }
  return(x)
}