Lab R prep

> if (x< 0){
+   print('positive number')
+ }
Warning message:
In if (x < 0) { :
  the condition has length > 1 and only the first element will be used
> x<- 5
> if (x < 0){
+   print('positive number')
+ }
> x
[1] 5
> if (x < 0){
+   print('positive number')
+ }
> x
[1] 5
> x<- 5
> if (x < 0){
+   print('positive number')
+ } else {prit('lower value')}
Error in prit("lower value") : could not find function "prit"
> x<- 5
> if (x < 0){
+   print('positive number')
+ } else {print('lower value')}
[1] "lower value"
> age<- 20
> if (age < 18){
+   message('This is a minor')
+   Voter<-F
+ } else {
+   message('This is an adult')
+   Voter<- T
+ }
This is an adult
> age<- 17
> age<- 17
> if (age < 18){
+   message('This is a minor')
+   Voter<-F
+ } else {
+   message('This is an adult')
+   Voter<- T
+ }
This is a minor
> ages<-c(12,18,32,2,4)
> names(ages)<-c('Jane','Ed', 'Bob', 'Joe', 'Liz')
> voter<- ifelse(ages<18, 'minor','voter')
> 
> voter
   Jane      Ed     Bob     Joe 
"minor" "voter" "voter" "minor" 
    Liz 
"minor" 
> voter.df
Error: object 'voter.df' not found
> voter(data.frame())
Error in voter(data.frame()) : could not find function "voter"
> data.frame(voter)
     voter
Jane minor
Ed   voter
Bob  voter
Joe  minor
Liz  minor
> age<- 20
> if(age<18){message('This is a minor')
+   voter<-F
+   drinker<-F
+ } else if (age<21){
+     message('This a voter')
+   voter<-T
+   drinker<-F
+ } else {
+     message("This is an adult")
+   voter<-T
+   drinker<-T
+ }
This a voter
> voter
[1] TRUE
> drinker
[1] FALSE