temp [requiredperson，]错误：下标超出范围

Question

doubt image

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，]错误：下标超出范围