изображение сомнения
for(i in 1:rowcount){
t = sum(temp[i,])
if(t>0){
rowmean = mean(temp[i,])
rowsd = sd(temp[i,])*sqrt(colcount-1)
temp[i,] = (temp[i,]-rowmean)/rowsd
}
}
requiredperson =4661 #Obama
dotproducts = numeric(rowcount)
for( i in 1:rowcount){
dotproducts[i] = sum(temp[requiredperson,]*temp[i,])
}
Ошибка в temp [requiredperson,]: нижний индекс вне границ