Question

​​​​​​​Please write code in R

1. Create two character vectors S11 and S12 such that S11 contains the binary representations of the numbers (5,2,1,6,3,4,7,0), and S12 contains those of the numbers (1,4,6,2,0,7,5,3). (10 points)
2. Let b=”1101”. Extract the last three characters. Convert the last three characters into decimal and store it in a variable called tempVal. Write an “if-then-else” statement such that if b[1] == 0 retrieve the value of S11[tempval]. If b[1]==1 retrieve the value of S12[tempval] and store it in a variable tempRet. (Hint: You might need to shift the indices by 1) (10 points)

Answer 1

#R version 3.3.2

S11D<-c(5,2,1,6,3,4,7,0)
S12D<-c(1,4,6,2,0,7,5,3)

#convert to binary
S11<-c()
for (i in 1:length(S11D)) {
S11[i] <- paste(rev(as.integer(intToBits(S11D[i]))), collapse="")
}

#convert to binary
S12<-c()
for (i in 1:length(S12D)) {
S12[i] <- paste(rev(as.integer(intToBits(S12D[i]))), collapse="")
}
print("S11 Vector: ")
print(S11)
print("S12 Vector: ")
print(S12)

b<-"1101"
#last three characters of b
b1<-substr(b, nchar(b)-3+1, nchar(b));

#convert b1 to decimal
tempVal<-strtoi(b1, base = 2);

print("Accessing vector based on var b")
if(substring(b, 1, 1)=="0") {
tempRet<-S11[tempVal];tempRet
} else if(substring(b, 1, 1)=="1") {
tempRet<-S12[tempVal];tempRet
}

Please give thumbs up to solution.