Moving rows between multiple subarrays - arrays

Question

My question follows from a previous question that I asked, but without including my own code (which I should have done initially).
Moving rows between subarrays
which solves my dilemma only partially. But I have adopted the method in the below code.
Here is relevant code to my specific problem:
K <- 2 # number of equally-sized (sub)populations
N <- 5 # total number of sampled individuals
Hstar <- 5 # total number of haplotypes
probs <- rep(1/Hstar, Hstar) # haplotype frequencies
m = 0.1 # migration rate between subpopulations
perms <- 10000 # number of permutations
## Set up container(s) to hold the identity of each individual from each permutation ##
num.specs <- ceiling(N / K)
## Create an ID for each haplotype ##
haps <- 1:Hstar
## Assign individuals (N) to each subpopulation (K) ##
specs <- 1:num.specs
## Generate permutations, assume each permutation has N individuals, and sample those individuals' haplotypes from the probabilities ##
gen.perms <- function() {
sample(haps, size = num.specs, replace = TRUE, prob = probs)
}
pop <- array(dim = c(perms, num.specs, K))
for (i in 1:K) {
pop[,, i] <- replicate(perms, gen.perms())
}
## Allow individuals from permutations to migrate between subpopulations ##
for (i in 1:K) {
if (m != 0){
ind <- sample(perms, size = perms * m, replace = FALSE) # sample random row from random subpopulation
}
pop[ind,] ## should swap rows between subarrays, but instead throws an error.
}
'ind' identifies the rows that are to be swapped.
The goal is to swap rows from one subpopulation (= subarray) to the other as initially asked in the linked question. For example, switch row 1 of subarray 1 with row 100 of subarray 2. Most importantly, I need to preserve the array type. In the end, 'pop' must have dimensions = c(perms, num.specs, K). Can this be done?
Any assistance is greatly appreciated.

Answer 1

i think you forget to put a comma. I guess you need to change line 38 to this:
pop[ind,,] ## should swap rows between subarrays, but instead throws an error.
and when you want to go on with the changed pop-array, with swapped lines, you need to store it in a variable. for example like this:
pop_new <- pop[ind,,]
or you can store it in the same variable, which mean it will overwrite the old content of pop. When you use the same vector (ind) for index as well the target variable you replace only the old value. With sample() you swap the rows randomly :
pop[ind,,] <- pop[sample(ind),,]