Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 为什么我的矩阵中充满了NAs,而不是循环的输出?_R_Loops - Fatal编程技术网

R 为什么我的矩阵中充满了NAs,而不是循环的输出?

R 为什么我的矩阵中充满了NAs,而不是循环的输出?,r,loops,R,Loops,我希望用look(变量ma)的输出填充矩阵选项卡,但是它用NAs填充矩阵 MA<-data.matrix(my_data) MA2=MA[-247,-8] tab<-matrix(ncol=2,nrow=253) ma4<-matrix(ncol=1,nrow=253) tab[,1]<-MA2[,1] for (n in 1:248) { y<-MA2[c(n,n+1,n+2,n+3,n+4,n+5),5] z<-sum(y) mav<-

我希望用look(变量ma)的输出填充矩阵选项卡,但是它用NAs填充矩阵


MA<-data.matrix(my_data)
MA2=MA[-247,-8]
tab<-matrix(ncol=2,nrow=253)
ma4<-matrix(ncol=1,nrow=253)
tab[,1]<-MA2[,1]
for (n in 1:248) {
  y<-MA2[c(n,n+1,n+2,n+3,n+4,n+5),5]
  z<-sum(y)
  mav<-z/5
  tab[[n,2]]<-mav
  n<-n+1
}



MA显然,我无法在评论中解释这一点,因此在这里

我下载了数据,使用
setwd()
将工作目录设置为文件所在的目录。然后

my_data <- read.csv("LLOY.L.csv")
是的,数据被读取。然而,这些数字都是由其他因素决定的。仔细检查数据时,有一个“空”值,可能是
NA
,因此我们将数据解读为


你能给我一个数据样本吗?我已经下载了一个读取数据并运行你的代码的程序<代码>选项卡
不全是NA,但大部分都是数字。请提供读取数据的代码并说明问题。选项卡的第二列用NA填充,我希望它用循环的mav输出填充,而不是在我这样做时<代码>>标题(选项卡[,2])[1]101.6 95.6 103.6 112.4 116.4 127.0
> str(my_data)
'data.frame':   254 obs. of  7 variables:
 $ Date     : Factor w/ 254 levels "2019-02-06","2019-02-07",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ Open     : Factor w/ 220 levels "48.349998","48.580002",..: 90 107 69 73 84 98 99 70 108 110 ...
 $ High     : Factor w/ 229 levels "49.000000","49.230000",..: 96 92 68 73 82 94 85 111 108 117 ...
 $ Low      : Factor w/ 235 levels "48.155998","48.230999",..: 110 89 77 82 107 112 97 90 125 122 ...
 $ Close    : Factor w/ 221 levels "48.580002","48.680000",..: 104 68 61 86 97 92 74 108 105 106 ...
 $ Adj.Close: Factor w/ 235 levels "48.580002","48.680000",..: 58 47 44 52 55 53 50 61 59 60 ...
 $ Volume   : Factor w/ 254 levels "101608167","102059589",..: 12 62 43 26 57 13 253 72 240 23 ...
MA<-data.matrix(my_data)
MA2=MA[-247,-8]
tab<-matrix(ncol=2,nrow=253)
ma4<-matrix(ncol=1,nrow=253)
tab[,1]<-MA2[,1]
for (n in 1:248) {
  y<-MA2[c(n,n+1,n+2,n+3,n+4,n+5),5]
  z<-sum(y)
  mav<-z/5
  tab[[n,2]]<-mav
  n<-n+1
}
summary(tab)
> summary(tab)
       V1            V2       
 Min.   :  1   Min.   :58.82  
 1st Qu.: 64   1st Qu.:68.43  
 Median :127   Median :70.11  
 Mean   :127   Mean   :70.09  
 3rd Qu.:190   3rd Qu.:74.65  
 Max.   :254   Max.   :78.77  
               NA's   :11  
> head(tab)
     [,1]   [,2]
[1,]    1 69.176
[2,]    2 69.004
[3,]    3 69.252
[4,]    4 69.540
[5,]    5 69.670
[6,]    6 70.304