num1 <- sample(330:400,10)
num1#before increment
# increment num1 by 1
inc(num1)
num1 #after increment
# increment num1 by 5
num1 #before increment
inc(num1, add= 10)
num1 #after increment
#when used in loops
#add and compare directly
rnum = 10
inc(rnum) == 11 #returns TRUE
rnum #the variable was also updated
# use in a for loop
ynum = 1
for( i in c("scientist","dancer","handyman","pharmacist")){
message("This is the item number ")
message(ynum)
message(". For this item, I am a ")
message(i)
#decrement easily at each turn
plus(ynum)
}
#use in a repeat loop
xnum = 1
repeat{ #repeat until xnum is 15
message(xnum)
if(inc(xnum) == 15) break
}
Run the code above in your browser using DataLab