#HW 1
##Elanur Ural
##Econ 628
####percentage of my life spent at UH
((2022-2021)/(2022-1996))*100
## [1] 3.846154
thisYear<-2022
yearBegan<-2021
birthYear<-1996
####percentage of my life spent at UH
((thisYear-yearBegan)/(thisYear-birthYear))*100
## [1] 3.846154
####clear variables
rm(list=ls())
vector1<-c(4,5,8,11)
####4+5+8+11
sum(vector1)
## [1] 28
####plot 100 random normal numbers
numRands<-rnorm(100)
plot(numRands)
####help on sqrt fxn
?sqrt()
####store integers 31 to 60 in vector
vector2<-seq(31,60)
vector2
## [1] 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
## [26] 56 57 58 59 60
####store integers 31 to 60 in 6x5 matrix
q<-matrix((data = vector2), ncol=5, nrow=6)
q
## [,1] [,2] [,3] [,4] [,5]
## [1,] 31 37 43 49 55
## [2,] 32 38 44 50 56
## [3,] 33 39 45 51 57
## [4,] 34 40 46 52 58
## [5,] 35 41 47 53 59
## [6,] 36 42 48 54 60
####create vector integers 1 to 100. *10 for elements less than 5 or larger than 90. else, *.1.
vector3<-seq(1, 100)
vector3
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## [91] 91 92 93 94 95 96 97 98 99 100
for(i in 1:100){
if (vector3[i]<5 | vector3[i]>90)
vector3[i]<-vector3[i]*10
else
vector3[i]<-vector3[i]*.1
}
vector3
## [1] 10.0 20.0 30.0 40.0 0.5 0.6 0.7 0.8 0.9 1.0
## [11] 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0
## [21] 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0
## [31] 3.1 3.2 3.3 3.4 3.5 3.6 3.7 3.8 3.9 4.0
## [41] 4.1 4.2 4.3 4.4 4.5 4.6 4.7 4.8 4.9 5.0
## [51] 5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 5.9 6.0
## [61] 6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9 7.0
## [71] 7.1 7.2 7.3 7.4 7.5 7.6 7.7 7.8 7.9 8.0
## [81] 8.1 8.2 8.3 8.4 8.5 8.6 8.7 8.8 8.9 9.0
## [91] 910.0 920.0 930.0 940.0 950.0 960.0 970.0 980.0 990.0 1000.0
####function returning previous ToDo
toDoFxn=function(theVector){
for(i in 1:length(theVector)){
if(theVector[i]<5 | theVector[i]>90)
theVector[i]<-theVector[i]*10
else
theVector[i]<-theVector[i]*.1
}
return(theVector)
}
####demonstrate toDoFxn
vector4=seq(1,100)
vector4
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## [91] 91 92 93 94 95 96 97 98 99 100
vector4ToDo=toDoFxn(vector4)
vector4ToDo
## [1] 10.0 20.0 30.0 40.0 0.5 0.6 0.7 0.8 0.9 1.0
## [11] 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0
## [21] 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0
## [31] 3.1 3.2 3.3 3.4 3.5 3.6 3.7 3.8 3.9 4.0
## [41] 4.1 4.2 4.3 4.4 4.5 4.6 4.7 4.8 4.9 5.0
## [51] 5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 5.9 6.0
## [61] 6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9 7.0
## [71] 7.1 7.2 7.3 7.4 7.5 7.6 7.7 7.8 7.9 8.0
## [81] 8.1 8.2 8.3 8.4 8.5 8.6 8.7 8.8 8.9 9.0
## [91] 910.0 920.0 930.0 940.0 950.0 960.0 970.0 980.0 990.0 1000.0