# CSV - Comma separeted values 
#  nome, altura , peso
#  fulano, 150, 56
#   fulana , 190, 42
#
#
#
#setwd("~/R/MAC0113-MONITORIA")
#planilha <- read.csv("imc.csv")
#print(planilha)
#planilha["imc"] <- NA
#print(planilha)
#print(planilha[1,3])
#planilha["imc"] <- (planilha["altura"] + planilha["peso"])/5
#print(planilha)


planilha1 <- read.csv("nota1.csv")
#print(planilha1)

planilha2 <- read.csv("nota2.csv")		      
#print(planilha2)


planilha3 <- read.csv("nota3.csv")		      
#print(planilha3)



planilha1['P'] <- NA
planilha1['EP'] <- NA		       
#print(planilha1)

#print(paste(planilha1[1,]),quote = F)
#print(typeof(planilha1[1,]),quote = F)
#print(typeof(paste(planilha1[1,])),quote = F)
#print(planilha1)


#planilha1[1,7] <- (planilha1[1,2] + planilha1[1,3])/2	      
#print(planilha1)

nlin <- nrow(planilha1)  #nrow eh o numero de linhas
#print(nlin)

   #nrow eh o numero de linhas
#print(ncol(planilha1))


planilha5 <- read.csv("nota1.csv")		      
#planilha5[4,1] <- "joao"
planilha5[4,2] <- 7
planilha5[4,3] <- 2
planilha5[4,4] <- 5




#print(planilha5)



taabela <- read.csv("alunos.csv")
n <- nrow(taabela)
i <- 1
tem_maior = F
valor <- 0
while (i <= n && !tem_maior){
  i <- i + 1
  if(taabela[i,2] >= 190){
    tem_maior <- T                   
    valor <- taabela[i,]
  }
  print(i)
}




if(tem_maior){
  print("tem maior")
  print(valor)
}else{
  print("nao tem maior")
}