R Polish Team

    library(ggplot2)
 
    # setting a parameter
    year <- 2012
    d <- seq.Date(as.Date(paste(year, "-01-01", sep = "")), as.Date(paste(year, "-12-31", sep = "")), by="days")
    z <- data.frame(Y = format(d, "%Y"), M = as.numeric(format(d, "%m")), D = as.numeric(format(d, "%d")), W = format(d, "%w"))
 
    # creating a image with ggplot2.
    c <- ggplot(z, aes(D, M))
    c + geom_text(aes(label=z$D, colour=factor(W), size = 20)) +
    scale_colour_manual(values = c("magenta", rep("black", 5),"darkturquoise"))+
    scale_y_continuous(trans = "reverse", breaks = 1:12) +
    labs(x="", y="") +
    opts(
    title = paste("CalendaR", year, "\n", sep = " "),
    plot.title = theme_text(colour = "black"),
    legend.position = "none"
    ) 

function(iban){
wynik <- logical(length(iban))
 for (p in 1:length(iban)){
  IBAN <- iban[p]
  IBAN <- gsub(" ","", IBAN)
  IBAN <- gsub("-","",IBAN)
  literki <- LETTERS
  cyferki <- 10:35
  IBAN2 <- paste(substr(IBAN, 5, nchar(IBAN)), substr(IBAN,1,4),sep="")
  for(n in 1:length(literki)){
   gsub(literki[n], cyferki[n], IBAN2) -> IBAN2
  }
  while(nchar(IBAN2)>0){
   if(nchar(IBAN2)>6){
    checktest <- as.numeric(substr(IBAN2,1,6))
    checkrest <- checktest %% 97
    IBAN2 <- paste(checkrest,substr(IBAN2,7,nchar(IBAN2)),sep="")
   }else{
    checktest <- as.numeric(substr(IBAN2,1,nchar(IBAN2)))
    checkrest <- checktest %% 97
    IBAN2 <- ""
   }
  }
  if(checkrest == 1){
   wynik[p] <- TRUE
  }else{wynik[p] <- FALSE}
 }
 return(wynik)
}

function(cardno){
 wynik <- logical(length(cardno))
  for(p in 1:length(cardno)){
   CARDNO <- cardno[p]
   CARDNO <- gsub(" ","",CARDNO)
   CARDNO <- gsub("-","",CARDNO)
   wagi <- rep(c(2,1), length.out=16)
   if(nchar(CARDNO) > 16){
    wynik[p] <- FALSE
   }else{
    roznica = 16 - nchar(CARDNO)
    suma = ""
    for (i in nchar(CARDNO):1){
     suma <- paste(as.numeric(substr(CARDNO,i,i))*wagi[i+roznica],suma, sep="")
    }
    sk = 0
    for(i in 1:nchar(suma)){
     sk <- sk + as.numeric(substr(suma,i,i))
    }
    sk <- sk %% 10
    if (sk == 0){
     wynik[p] <- TRUE
    }else{wynik[p] <- FALSE}
   }
  }
 return(wynik)
}