sgc$ida<-rep(NA,length(sgc$idade))
summary(sgc$idade)
sd(sgc$idade,na.rm=T)
sgc$ida[16<=sgc$idade&sgc$idade<20]<-'Adolescente'
sgc$ida[20<=sgc$idade&sgc$idade<40]<-'Jovem adulto'
sgc$ida[40<=sgc$idade&sgc$idade<65]<-'Meia idade'
sgc$ida[sgc$idade>=65]<-'Terceira idade'