Untitled

#Q1
15+32

#Q2
2^5
28%%6

#Q3
x<-42
x

#Q4
my_apples<-20
my_oranges<-6
myfruits<-my_apples+my_oranges

#Q5
X<-43
y<-32
ls()
rm(list=ls())

horse<-3
dog<-7
animal<-dog+horse
ls()
rm(dog)
ls()

#Q6
r<-7
Volume<-2*pi^2*r*3

#Q7
Area<-70*52
Grazed<-pi*28^2/4
Ungrazed<-Area-Grazed

#Q8
my_numeric<-42
my_character<-"forty-two"
my_logic<-FALSE

#Q9
my_apples<-23
my_apples
my_oranges<-"ola"
my_oranges

#error
my_fruits<-my_apples+my_oranges

#Q10
var1<-TRUE
var2<-23
var3<-"ABD"
var1_char <- as.character(var1)
is.character(var1_char)
var2_log<-as.logical(var2)
class(var2_log)
#warning message
var3_num<-as.numeric(var3)

#Q2
age<-"12"
employed<-"15"
salary<-"20000"
age_clean<-as.numeric(age)
# emplyed clean comes out as NA
employed_clean<-as.logical(employed)
salary_clean<-as.numeric(salary)

#Q12
booleon_vector<-c(TRUE,FALSE,TRUE)

#Q13
ProfitOrLoss<-c(12,-10,23,12,-89,-76)