#How long did the homework take? 
#Imagine this is the hours for each assignment. 
hours<- c(1,3,4,3)
#This is the experience of the individual, which can be high, medium, or low.
experience<-'low'
#experience<- 'high'

#toy = 'old'
if(experience=='high'){
exp.hours <- hours/2       
} else {
  if(experience=='low'){
     exp.hours <- hours * 2    
  } else {
    exp.hours <- hours      
  }
}
#Notice how this adjusted 
print(exp.hours)

#simple
x<-FALSE
y<-FALSE
if (!x){
print("X is False")
}else{
print("X is True")
}

x<-TRUE
y<-TRUE
if((x==TRUE)|(y==TRUE)){
print("Either X or Y is True")
}

if((x==TRUE)&(y==TRUE)){
print("X and Y are both True")
}

# create 2 age categories 
age<-c(18,15, 25,30)
agecat <- ifelse(age > 18, c("adult"), c("child"))
agecat

df=read.csv(file="../../input/iris.csv", header=TRUE,sep=",")

#Let's say we want to categorize sepalLenth as short/long or short/medium/long.
sl.med<-median(df$sepal_length)
sl.sd<-sd(df$sepal_length)
sl.max<-max(df$sepal_length)

df$agecat2 <- ifelse(df$sepal_length > sl.med, c("long"), c("short"))
df$agecat3 <- ifelse(df$sepal_length > (sl.med+sl.sd), c("long"), 
        ifelse(df$sepal_length < (sl.med-sl.sd), c("short"), c("medium")))


#This sets the different cuts for the categories. 
cuts<-c(0,sl.med-sl.sd,sl.med+sl.sd,sl.max)
cutlabels<-c("short", "medium", "long") 

df$agecat3altcut<-cut(df$sepal_length, breaks=cuts, labels=cutlabels)
df[,c(1,6,7,8)]

sum<-0
avgs <- numeric (8)
for (i in 1:8){
    print (i)
    sum<-sum+i  
}
print(sum)
for (i in 1:8) print (i)

for (i in 1:8) print (i)

#This produces the same.
i<-1
sum<-0
x<-TRUE
while (x) {
  print (i)
  sum<-sum+i
  i<-i+1
  if (i>8){x<-FALSE}
}  
print(sum)

#Nexting Example,
x=c(0,1,2)
y=c("a","b","c")
#Nested for loops
for (a in x){
    for (b in y){
        print(c(a,b), quote = FALSE)
}}