■

読み込んだファイルをお手軽ランダムシャッフル．

x0 <- read.table("Forward_Number_Sherlock.txt")
x <- x0[,1]
set.seed(10)
y <- sample(x)
write.table(y,"Shuffle10_Number_Sherlock.txt",append=FALSE,row.names=FALSE,col.names=FALSE,quote=FALSE)

読み込んだ行列ファイルの行成分の平均と標準偏差

x0 <- read.table("MatomeHeapsSherlock.txt")
Max <- length(x0[,1])
m <- 0
s <- 0
for(i in 1:Max){
  m[i] <- mean(x0[i,])
  s[i] <- sd(x0[i,])
}
write.table(y,"MeanHeaps_Sherlock.txt",append=FALSE,row.names=FALSE,col.names=FALSE,quote=FALSE)