我試圖使用從BCV包SVD歸集但所有的估算值相同(按列)。SVD歸集[R
這是有缺失數據的 http://pastebin.com/YS9qaUPs
#load data
dataMiss = read.csv('dataMiss.csv')
#impute data
SVDimputation = round(impute.svd(dataMiss)$x, 2)
#find index of missing values
bool = apply(X = dataMiss, 2, is.na)
#put in a new data frame only the imputed value
SVDImpNA = mapply(function(x,y) x[y], as.data.frame(SVDimputation), as.data.frame(bool))
View(SVDImpNA)
head(SVDImpNA)
V1 V2 V3
[1,] -0.01 0.01 0.01
[2,] -0.01 0.01 0.01
[3,] -0.01 0.01 0.01
[4,] -0.01 0.01 0.01
[5,] -0.01 0.01 0.01
[6,] -0.01 0.01 0.01
我在哪裏錯了的數據集?發生
謝謝,我已經試過這種方式,但是K是矩陣的壓縮參數,所以我猜想一個小數字會加快計算svd的近似值並用一個低秩矩陣進行插補但歸責結果不佳 – Sojers