[英]Error in R function `is.positive.definite`
我想測試矩陣在R中是否為正定的。我使用了R函數is.positive.definite
但盡管矩陣如函數isSymmetric
所示是對稱的,但仍收到以下錯誤消息。 是因為四舍五入的錯誤嗎?
Error in is.positive.definite(S) : argument x is not a symmetric matrix
我的工作代碼如下。 有人可以幫我嗎? 謝謝。
library(Matrix) # isSymmetric
library(matrixcalc) # is.positive.definite
library(expm) # sqrtm
###################################################################################################
theta0 <- c(0.2, 10)
###################################################################################################
OS.mean <- function(shape, rank, n=10){
term1 <- factorial(n)/(factorial(rank-1)*factorial(n-rank))
term2 <- beta(n-rank+1, rank) - beta(n-rank+shape+1, rank)
term1*term2/shape
}
OS.mean.theta0.10 <- as.matrix(OS.mean(theta0[1], rank=seq(1, 10, by=1)))
###################################################################################################
OSsq.mean <- function(shape, rank, n=10){
term1 <- factorial(n)/(factorial(rank-1)*factorial(n-rank))
term2 <- beta(n-rank+1, rank) - 2*beta(n-rank+shape+1, rank) + beta(n-rank+2*shape+1, rank)
term1*term2/(shape*shape)
}
OSsq.mean.theta0.10 <- as.matrix(OSsq.mean(theta0[1], rank=seq(1, 10, by=1)))
###################################################################################################
OSprod.mean <- function(shape, rank1, rank2, n=10){
term1 <- factorial(n)/(factorial(rank1-1)*factorial(rank2-rank1-1)*factorial(n-rank2))
term2 <- beta(n-rank1+1, rank1) - beta(n-rank1+shape+1, rank1)
term3 <- beta(n-rank2+1, rank2-rank1)
term4 <- beta(n-rank1+shape+1, rank1) - beta(n-rank1+2*shape+1, rank1)
term5 <- beta(n-rank2+shape+1, rank2-rank1)
term1*(term2*term3-term4*term5)/(shape*shape)
}
OS.cov <- function(shape, rank1, rank2){
OSprod.mean(shape, rank1, rank2) - OS.mean(shape, rank1)*OS.mean(shape, rank2)
}
###################################################################################################
spacing <- seq(1, 10, by=1)
OS.varcov.10 <- function(shape, n=10){
V.diag <- diag(c(OSsq.mean.theta0.10 - OS.mean.theta0.10^2))
V.upper <- matrix(0, nrow=10, ncol=10)
for(i in 1:9){
for(j in (i+1):10){
V.upper[i, j] <- OS.cov(shape, spacing[i], spacing[j])
}
}
V.upper + V.diag + t(V.upper)
}
###################################################################################################
V.theta0.10 <- OS.varcov.10(theta0[1])
kappa(V.theta0.10)
isSymmetric(V.theta0.10)
is.positive.definite(V.theta0.10)
S <- sqrtm(V.theta0.10)
isSymmetric(S)
is.positive.definite(S)
由於失去了重要性 ,您的S
矩陣不對稱,但是默認的輸出小數位數會將其隱藏。 你自己看:
> options(digits=20)
> S[1,2]
[1] 0.033457660484940172
> S[2,1]
[1] 0.033457660484940213
關鍵是, is.symmetric.matrix
從matrixcalc
包不占小差異(即,它只是比較嚴格的矩陣元素==
代替all.equal
方法),同時isSymmetric
從Matrix
包一樣。 如果四舍五入矩陣,一切都會好起來的:
> S=round(S,10)
> is.symmetric.matrix(S)
[1] TRUE
> is.positive.definite(S)
[1] TRUE
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.