
Last chance! 50% off unlimited learning
Sale ends in
reverse.code(keys, items, mini = NULL, maxi = NULL)
original <- matrix(sample(6,50,replace=TRUE),10,5)
keys <- c(1,1,-1,-1,1) #reverse the 3rd and 4th items
new <- reverse.code(keys,original,mini=rep(1,5),maxi=rep(6,5))
original[1:3,]
new[1:3,]
Run the code above in your browser using DataLab