`enter code here`A3 <- TC_Sargento_Analysis %>%
group_by(TYC) %>%
summarise(Group = ifelse (Hi > .5*Qty) ,  "Buy any price" ,
ifelse (Mid > .5*Qty) , "BUy mid price" , "Buy Low Price")

for(i in seq_along(a)[-c(1, n)]){
ifelse(a[i] > .5*d[i])
z[i] <- "Hi"}

for(i in seq_along(b)[-c(1, n)]){
ifelse(b[i] > .5*d[i])
Z[i] <- "Mid"
Z[i] <- 'Low'
}
Z
}

`enter code here`Class_Analysis(TC_Sargento_Analysis$Hi ,
TC_Sargento_Analysis$Mid ,TC_Sargento_Analysis$Low
TC_Sargento_Analysis$Qty)`