我试图为R生成一些代码,看看pi中数字的分布是多么随机,而我只限于能够占用10,000个位置,因为我在变量中读取的方式是一个字符串,然后尝试将其切成一个向量。这可以很容易环绕,以允许我使用更多的数字输入或我将不得不求助于创建循环和多个向量来包含更多的数字?
以下是代码:
fileName <- 'pi-billion.txt'
piStr = readChar(fileName, file.info(fileName)$size)
piValue = as.numeric(strsplit(as.character(piStr), "")[[1]])
digitcheck = matrix(0, nrow=10, ncol=10)
for(n in 3:9998)
{
if (piValue[n]!=0 & piValue[n+1]!=0){digitcheck[piValue[n],piValue[n+1]] = digitcheck[piValue[n],piValue[n+1]] +1}
else if (piValue[n+1]==0 & piValue[n]!=0){digitcheck[piValue[n],10]=digitcheck[piValue[n],10]+1}
else if (piValue[n+1]!=0 & piValue[n]==0){digitcheck[10,piValue[n+1]]=digitcheck[10,piValue[n+1]]+1}
else {digitcheck[10,10]=digitcheck[10,10]+1}
}
答案 0 :(得分:0)
试试这个
readChar(fileName, file.info(fileName)$size)