contaLetraEmTexto <-function(letra, texto){                             #a   b  c   dado  ...
  if(nchar(letra)!=1){
    return(-1)
  }else{
    pos <- 1
    cont <- 0
    while(pos <= nchar(texto)){
      letraAtual <- substr(texto, pos, pos)                                #"dasjfbjdsbfjsdkbfk"
      if(letraAtual == letra){		       
        cont <- cont + 1
      }
      pos <- pos + 1		       
    }
    return(cont)
  }	  
}

nomes <- c("Carlos","Maria","Joao")
NUSP <- c(12314,153125342,57247734)
lista1 <-  list(Nome=nomes, NUSP, nota=7.5)
      


a <- c(c(0),c(1,2,3))
print(a)


listaPresnça <- c(T, T, F, T, F) 
x <- list(presença=listaPresnça, presença2 = c(F,F,F,F,F))

print(x)
aluno1 <- append(lista1,x)
print(aluno1) 

x<- 1:10
y <- 11:20
z <- read.csv("alunos.csv")                                   
tabela <- list(x,y)
print(tabela)
print(z$Peso)








alunos <- c("Andre", "Bel", "Cris")
NUSP <- c("12345", "24680", "13579")
notas <- c(7.5,  9.9,  5.0)
mac113 <- list(nomes = alunos, NUSP, notas )
mac1132 <- list(nomes =  c("Andre", "Bel", "Cris"),  c("12345", "24680", "13579"), c(7.5,  9.9,  5.0) )
print(mac113) 
print(mac113[1]) 
print(mac113[[1]]) 
print(mac113[[1]][1]) 
print(mac113$alunos)
print(mac113$nomes)
print(identical(mac113,mac1132))