num1 <- sample(5:150,10)
num1
# decrease num1 by 1
num1 #before decrease
minus(num1)
num1 #after decrease
# decrease num1 by 5
num1 #before decrease
minus(num1, minus = 5)
num1 #after decrease
#when used in loops
#add and compare directly
rnum = 23
minus(rnum) == 220 #returns FALSE
rnum #the variable was also updated
# use in a for loop
ynum = 100
for( i in c("teacher","student","lawyer","pharmacist")){
message("This is the item number ")
message(ynum)
message(". For this item, I am a ")
message(i)
#decrement easily at each turn
minus(ynum,3)
}
#use in a repeat loop
xnum = 100
repeat{ #repeat until xnum is 85
message(xnum)
if(minus(xnum) == 85) break
}
Run the code above in your browser using DataLab