Untitled

Q1

print(1:50)

##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
## [24] 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
## [47] 47 48 49 50

Q2

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

current.sum

## [1] 500500

#B
current.sum <- 0
for(i in seq(1,1000, by =2)) {
current.sum <- current.sum + i
}

current.sum

## [1] 250000

#C
1000*1001/2

## [1] 500500

summ<-sum(seq(1,1000,by=2))

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:a

Using a loop, create a new dataframe called survey.clean where all the invalid values (those that are not integers between 1 and 5) are set to NA.

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

survey

##   participant q1 q2 q3 q4 q5
## 1           1  5  4 NA NA NA
## 2           2  3  2 NA  5  4
## 3           3  2  2  4  2 NA
## 4           4 NA  5  2 NA  2
## 5           5 NA NA NA  4  4
## 6           6 NA NA NA  2  2

Q3: b

invalid.answers<-rep(NA,6)

survey$invalid.answers<- invalid.answers

for (part.i in 1:nrow(survey)) {
  invalid.answers.temp<-sum(is.na(survey[part.i,2:6 ]))
  survey$invalid.answers[part.i] <-invalid.answers.temp
}

Q4

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

#create new columns for future dataframe containing standardized values
age.stand<-standardize.me(pirates$age)
tattoos.stand<-standardize.me(pirates$tattoos)
tchests.stand<-standardize.me(pirates$tchests)
parrots.stand<-standardize.me(pirates$parrots)
sword.stand<-standardize.me(pirates$sword.time)
eyepatch.stand<-standardize.me(pirates$eyepatch)
beard.stand<-standardize.me(pirates$beard.length)

#create dataframe calles pirates.z
pirates.z<-data.frame(age.stand, tattoos.stand, tchests.stand, parrots.stand, sword.stand, eyepatch.stand, beard.stand)

pirates.z<-pirates

for(i in c(4,6,7,8,11,12,13)){
  new.data<-standardize.me(pirates[,i])
  pirates.z[,i]<-new.data
}