2. (30pts) The following code was used to perform the permutation test for Chargaff's table. To run the code, you need to put the file ChargaffTable RData in the same folder as your R script file. If you still get an error message "No such file or directory" when you load ChargaffTable.RData, then in the RStudio menu bar click Session -> Set Working Directory -> To Source File Location. load("ChargaffTable.RData") statChf = function(x){ sum((x[, 1] - x[. 2])^2 + (x[. 3] - x[. 4])^2) } chistat = statChf(ChargaffTable) n.rep = 10000 permstat = numeric(n.rep) for (i in 1:n.rep)( permuted = tapply(ChargaffTable, 1, sample)) permstat[i] = statChf(permuted) pChf = sum(permstat