[Robast-commits] r138 - branches/robast-0.6/pkg/RobAStBase/R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Aug 1 07:26:26 CEST 2008
Author: stamats
Date: 2008-08-01 07:26:26 +0200 (Fri, 01 Aug 2008)
New Revision: 138
Modified:
branches/robast-0.6/pkg/RobAStBase/R/kStepEstimator.R
branches/robast-0.6/pkg/RobAStBase/R/oneStepEstimator.R
Log:
minor corrections
Modified: branches/robast-0.6/pkg/RobAStBase/R/kStepEstimator.R
===================================================================
--- branches/robast-0.6/pkg/RobAStBase/R/kStepEstimator.R 2008-08-01 04:57:30 UTC (rev 137)
+++ branches/robast-0.6/pkg/RobAStBase/R/kStepEstimator.R 2008-08-01 05:26:26 UTC (rev 138)
@@ -43,7 +43,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -92,7 +92,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -163,7 +163,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -212,7 +212,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -281,7 +281,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -330,7 +330,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -401,7 +401,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -450,7 +450,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
Modified: branches/robast-0.6/pkg/RobAStBase/R/oneStepEstimator.R
===================================================================
--- branches/robast-0.6/pkg/RobAStBase/R/oneStepEstimator.R 2008-08-01 04:57:30 UTC (rev 137)
+++ branches/robast-0.6/pkg/RobAStBase/R/oneStepEstimator.R 2008-08-01 05:26:26 UTC (rev 138)
@@ -37,7 +37,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -106,7 +106,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -174,7 +174,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
@@ -244,7 +244,7 @@
"computation of IC, asvar and asbias via useLast = FALSE"))
}
if("asCov" %in% names(Risks(IC)))
- if(length(Risks(IC)$asCov) == 1)
+ if(is.matrix(Risks(IC)$asCov) || length(Risks(IC)$asCov) == 1)
asVar <- Risks(IC)$asCov
else
asVar <- Risks(IC)$asCov$value
More information about the Robast-commits
mailing list