WPA9

Q1

x = 0
for (i in 1:50)
{
x = x + i
print(c(i,x))
}

## [1] 1 1
## [1] 2 3
## [1] 3 6
## [1]  4 10
## [1]  5 15
## [1]  6 21
## [1]  7 28
## [1]  8 36
## [1]  9 45
## [1] 10 55
## [1] 11 66
## [1] 12 78
## [1] 13 91
## [1]  14 105
## [1]  15 120
## [1]  16 136
## [1]  17 153
## [1]  18 171
## [1]  19 190
## [1]  20 210
## [1]  21 231
## [1]  22 253
## [1]  23 276
## [1]  24 300
## [1]  25 325
## [1]  26 351
## [1]  27 378
## [1]  28 406
## [1]  29 435
## [1]  30 465
## [1]  31 496
## [1]  32 528
## [1]  33 561
## [1]  34 595
## [1]  35 630
## [1]  36 666
## [1]  37 703
## [1]  38 741
## [1]  39 780
## [1]  40 820
## [1]  41 861
## [1]  42 903
## [1]  43 946
## [1]  44 990
## [1]   45 1035
## [1]   46 1081
## [1]   47 1128
## [1]   48 1176
## [1]   49 1225
## [1]   50 1275

Q2 A

current.sum <- 0
for(i in 1:1000) {
current.sum <- current.sum + i
}
current.sum

## [1] 500500

Q2 B

    even <- rep(NA, 1000)
for(i in 1:1000) {
result.i <- i ^ 2
even[i] <- result.i
}

Q3

survey <- data.frame(
                     "participant" = c(1, 2, 3, 4, 5, 6),
                     "q1" = c(5, 3, 2, 7, 11, 0),
                     "q2" = c(4, 2, 2, 5, -10, 99),
                     "q3" = c(-4, -3, 4, 2, 9, 10),
                     "q4" = c(-30, 5, 2, 23, 4, 2),
                     "q5" = c(88, 4, -20, 2, 4, 2)
                     )

Q3 A1

survey.clean <- survey

Q3 A2

for(i in 2:6){
z <- survey.clean[,i]
z[(z %in% 1:5) == F] <- NA
survey.clean[,i] <- z 
 } 

Q4 A

standardize.me <- function(x) {
  output <- (x - mean(x)) / sd(x)
  return(output)
}