[Robkalman-commits] r82 - pkg/robKalman/R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu May 15 16:31:23 CEST 2025
Author: ruckdeschel
Date: 2025-05-15 16:31:23 +0200 (Thu, 15 May 2025)
New Revision: 82
Removed:
pkg/robKalman/R/AllGenerics.R
pkg/robKalman/R/AllInitialize.R
pkg/robKalman/R/AllPlot.R
pkg/robKalman/R/AllShow.R
Log:
AllInitialize.R AllPlot.R AllShow.R AllGenerics.R geloscht
Deleted: pkg/robKalman/R/AllGenerics.R
===================================================================
--- pkg/robKalman/R/AllGenerics.R 2025-05-15 14:18:14 UTC (rev 81)
+++ pkg/robKalman/R/AllGenerics.R 2025-05-15 14:31:23 UTC (rev 82)
@@ -1,123 +0,0 @@
-if(!isGeneric("solve")){
- setGeneric("solve", function(a,b,...) standardGeneric("solve"))
-}
-############################################################################
-# Access methods
-############################################################################
-
-if(!isGeneric("name"))
- setGeneric("name", function(object) standardGeneric("name"))
-
-if(!isGeneric("getp"))
- setGeneric("getp", function(object) standardGeneric("getp"))
-if(!isGeneric("getq"))
- setGeneric("getq", function(object) standardGeneric("getq"))
-
-if(!isGeneric("getF"))
- setGeneric("getF", function(object) standardGeneric("getF"))
-if(!isGeneric("getZ"))
- setGeneric("getZ", function(object) standardGeneric("getZ"))
-if(!isGeneric("getQ"))
- setGeneric("getQ", function(object) standardGeneric("getQ"))
-if(!isGeneric("getV"))
- setGeneric("getV", function(object) standardGeneric("getV"))
-if(!isGeneric("geta"))
- setGeneric("geta", function(object) standardGeneric("geta"))
-if(!isGeneric("getS"))
- setGeneric("getS", function(object) standardGeneric("getS"))
-if(!isGeneric("time"))
- setGeneric("time", function(x,...) standardGeneric("time"))
-
-if(!isGeneric("SSM"))
- setGeneric("SSM", function(object, ...) standardGeneric("SSM"))
-if(!isGeneric("Y"))
- setGeneric("Y", function(object, ...) standardGeneric("Y"))
-if(!isGeneric("X.filtered"))
- setGeneric("X.filtered", function(object, ...) standardGeneric("X.filtered"))
-if(!isGeneric("X.predicted"))
- setGeneric("X.predicted", function(object, ...) standardGeneric("X.predicted"))
-if(!isGeneric("Cov.filtered"))
- setGeneric("Cov.filtered", function(object, ...) standardGeneric("Cov.filtered"))
-if(!isGeneric("Cov.predicted"))
- setGeneric("Cov.predicted", function(object, ...) standardGeneric("Cov.predicted"))
-if(!isGeneric("Kalman.Gain"))
- setGeneric("Kalman.Gain", function(object, ...) standardGeneric("Kalman.Gain"))
-if(!isGeneric("X.rob.filtered"))
- setGeneric("X.rob.filtered", function(object, ...) standardGeneric("X.rob.filtered"))
-if(!isGeneric("X.rob.predicted"))
- setGeneric("X.rob.predicted", function(object, ...) standardGeneric("X.rob.predicted"))
-if(!isGeneric("Cov.rob.filtered"))
- setGeneric("Cov.rob.filtered", function(object, ...) standardGeneric("Cov.rob.filtered"))
-if(!isGeneric("Cov.rob.predicted"))
- setGeneric("Cov.rob.predicted", function(object, ...) standardGeneric("Cov.rob.predicted"))
-if(!isGeneric("Kalman.rob.Gain"))
- setGeneric("Kalman.rob.Gain", function(object, ...) standardGeneric("Kalman.rob.Gain"))
-if(!isGeneric("rob.correction.ctrl"))
- setGeneric("rob.correction.ctrl", function(object, ...) standardGeneric("rob.correction.ctrl"))
-if(!isGeneric("rob.prediction.ctrl"))
- setGeneric("rob.prediction.ctrl", function(object, ...) standardGeneric("rob.prediction.ctrl"))
-if(!isGeneric("IndIO"))
- setGeneric("IndIO", function(object, ...) standardGeneric("IndIO"))
-if(!isGeneric("IndAO"))
- setGeneric("IndAO", function(object, ...) standardGeneric("IndAO"))
-if(!isGeneric("nsim"))
- setGeneric("nsim", function(object, ...) standardGeneric("nsim"))
-if(!isGeneric("RNGstate"))
- setGeneric("RNGstate", function(object, ...) standardGeneric("RNGstate"))
-if(!isGeneric("Cov.rob.filtered.sim"))
- setGeneric("Cov.rob.filtered.sim", function(object, ...) standardGeneric("Cov.rob.filtered.sim"))
-if(!isGeneric("Cov.rob.predicted.sim"))
- setGeneric("Cov.rob.predicted.sim", function(object, ...) standardGeneric("Cov.rob.predicted.sim"))
-if(!isGeneric("init"))
- setGeneric("init", function(object, ...) standardGeneric("init"))
-if(!isGeneric("predict"))
- setGeneric("predict", function(object, ...) standardGeneric("predict"))
-if(!isGeneric("correct"))
- setGeneric("correct", function(object, ...) standardGeneric("correct"))
-if(!isGeneric("init.rob"))
- setGeneric("init.rob", function(object, ...) standardGeneric("init.rob"))
-if(!isGeneric("name.rob"))
- setGeneric("name.rob", function(object, ...) standardGeneric("name.rob"))
-if(!isGeneric("predict.rob"))
- setGeneric("predict.rob", function(object, ...) standardGeneric("predict.rob"))
-if(!isGeneric("correct.rob"))
- setGeneric("correct.rob", function(object, ...) standardGeneric("correct.rob"))
-if(!isGeneric("controls"))
- setGeneric("controls", function(object, ...) standardGeneric("controls"))
-
-############################################################################
-# Replacement methods
-############################################################################
-
-if(!isGeneric("name<-"))
- setGeneric("name<-",
- function(object, value) standardGeneric("name<-"))
-
-if(!isGeneric("setp<-"))
- setGeneric("setp<-", function(object, value) standardGeneric("setp<-"))
-if(!isGeneric("setq<-"))
- setGeneric("setq<-", function(object, value) standardGeneric("setq<-"))
-
-if(!isGeneric("setF<-"))
- setGeneric("setF<-", function(object, value) standardGeneric("setF<-"))
-if(!isGeneric("setZ<-"))
- setGeneric("setZ<-", function(object, value) standardGeneric("setZ<-"))
-if(!isGeneric("setQ<-"))
- setGeneric("setQ<-", function(object, value) standardGeneric("setQ<-"))
-if(!isGeneric("setV<-"))
- setGeneric("setV<-", function(object, value) standardGeneric("setV<-"))
-if(!isGeneric("seta<-"))
- setGeneric("seta<-", function(object, value) standardGeneric("seta<-"))
-if(!isGeneric("setS<-"))
- setGeneric("setS<-", function(object, value) standardGeneric("setS<-"))
-if(!isGeneric("time<-"))
- setGeneric("time<-", function(x, value) standardGeneric("time<-"))
-
-if(!isGeneric(".make.project"))
-setGeneric(".make.project",function(object, ...) standardGeneric(".make.project"))
-
-if(!isGeneric("kalman"))
-setGeneric("kalman",function(smooth, ...) standardGeneric("kalman"))
-
-if(!isGeneric("kalmanRob"))
-setGeneric("kalmanRob",function(method, smooth, ...) standardGeneric("kalmanRob"))
Deleted: pkg/robKalman/R/AllInitialize.R
===================================================================
--- pkg/robKalman/R/AllInitialize.R 2025-05-15 14:18:14 UTC (rev 81)
+++ pkg/robKalman/R/AllInitialize.R 2025-05-15 14:31:23 UTC (rev 82)
@@ -1,3 +0,0 @@
-#### as to whether to use Generating functions or to use initialize methods:
-#### http://tolstoy.newcastle.edu.au/R/e2/devel/07/01/1976.html
-
Deleted: pkg/robKalman/R/AllPlot.R
===================================================================
--- pkg/robKalman/R/AllPlot.R 2025-05-15 14:18:14 UTC (rev 81)
+++ pkg/robKalman/R/AllPlot.R 2025-05-15 14:31:23 UTC (rev 82)
@@ -1,7 +0,0 @@
-#setMethod("plot", "ParamFamily",
-# function(x,y=NULL,...){
-# e1 <- x at distribution
-# if(!is(e1, "UnivariateDistribution")) stop("not yet implemented")
-#
-# plot(e1)
-# })
Deleted: pkg/robKalman/R/AllShow.R
===================================================================
--- pkg/robKalman/R/AllShow.R 2025-05-15 14:18:14 UTC (rev 81)
+++ pkg/robKalman/R/AllShow.R 2025-05-15 14:31:23 UTC (rev 82)
@@ -1,161 +0,0 @@
-#setMethod("show", "ParamFamParameter",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("name:\t", object at name, "\n")
-# cat("main:\t", object at main, "\n")
-# if(!is.null(object at nuisance))
-# cat("nuisance:\t", object at nuisance, "\n")
-# if(!identical(all.equal(object at trafo, diag(length(object)),
-# tolerance = .Machine$double.eps^0.5), TRUE)){
-# cat("trafo:\n")
-# print(object at trafo)
-# }
-# })
-#setMethod("show", "Symmetry",
-# function(object){
-# cat("type of symmetry:\t", object at type, "\n")
-# if(!is.null(object at SymmCenter))
-# cat("center of symmetry:\n")
-# print(object at SymmCenter)
-# })
-#setMethod("show", "ParamFamily",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("### name:\t", object at name, "\n")
-# cat("\n### distribution:\t")
-# print(object at distribution)
-# cat("\n### param:\t")
-# show(object at param)
-# if(length(object at props) != 0){
-# cat("\n### props:\n")
-# show(object at props)
-# }
-# })
-#setMethod("show", "Neighborhood",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("type:\t", object at type, "\n")
-# cat("radius:\t", object at radius, "\n")
-# })
-#setMethod("show", "FixRobModel",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("###### center:\t")
-# show(object at center)
-# cat("\n###### neighborhood:\t")
-# show(object at neighbor)
-# })
-#setMethod("show", "InfRobModel",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("###### center:\t")
-# show(object at center)
-# cat("\n###### neighborhood:\t")
-# show(object at neighbor)
-# })
-#setMethod("show", "RiskType",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("risk type:\t", object at type, "\n")
-# })
-#setMethod("show", "asUnOvShoot",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("risk type:\t", object at type, "\n")
-# cat("width:\t", object at width, "\n")
-# })
-#setMethod("show", "asHampel",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("risk type:\t", object at type, "\n")
-# cat("bound:\t", object at bound, "\n")
-# })
-#setMethod("show", "fiUnOvShoot",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("risk type:\t", object at type, "\n")
-# cat("width:\t", object at width, "\n")
-# })
-#setMethod("show", "fiHampel",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("risk type:\t", object at type, "\n")
-# cat("bound:\t", object at bound, "\n")
-# })
-#setMethod("show", "InfluenceCurve",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("### name:\t", object at name, "\n")
-# cat("\n### 'Curve':\t")
-# show(object at Curve)
-## cat("\n### Risks:\n")
-## print(object at Risks)
-# cat("\n### Infos:\n")
-# print(object at Infos)
-# })
-#setMethod("show", "IC",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("### name:\t", object at name, "\n")
-# L2Fam <- eval(object at CallL2Fam)
-# cat("### L2-differentiable parametric family:\t", L2Fam at name, "\n")
-# cat("\n### 'Curve':\t")
-# show(object at Curve)
-## cat("\n### Risks:\n")
-## print(object at Risks)
-# cat("\n### Infos:\n")
-# print(object at Infos)
-# })
-#setMethod("show", "ContIC",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("### name:\t", object at name, "\n")
-# L2Fam <- eval(object at CallL2Fam)
-# cat("\n### L2-differentiable parametric family:\t", L2Fam at name, "\n")
-# cat("### param:\t")
-# show(L2Fam at param)
-# cat("\n### neighborhood radius:\t", object at neighborRadius, "\n")
-## cat("\n### 'Curve':\t")
-## show(object at Curve)
-# cat("\n### clip:\t")
-# show(object at clip)
-# cat("### cent:\t")
-# show(object at cent)
-# cat("### stand:\n")
-# show(object at stand)
-# if(!is.null(object at lowerCase)){
-# cat("### lowerCase:\t")
-# show(object at lowerCase)
-# }
-## cat("\n### Risks:\n")
-## show(object at Risks)
-# cat("\n### Infos:\n")
-# show(object at Infos)
-# })
-#setMethod("show", "TotalVarIC",
-# function(object){
-# cat(paste("An object of class", dQuote(class(object)), "\n"))
-# cat("### name:\t", object at name, "\n")
-# L2Fam <- eval(object at CallL2Fam)
-# cat("\n### L2-differentiable parametric family:\t", L2Fam at name, "\n")
-# cat("### param:\t")
-# show(L2Fam at param)
-# cat("\n### neighborhood radius:\t", object at neighborRadius, "\n")
-## cat("\n### 'Curve':\t")
-## show(object at Curve)
-# cat("\n### clipLo:\t")
-# show(object at clipLo)
-# cat("### clipUp:\t")
-# show(object at clipUp)
-# cat("### stand:\n")
-# show(object at stand)
-## cat("\n### Risks:\n")
-## show(object at Risks)
-# cat("\n### Infos:\n")
-# show(object at Infos)
-# })
-#
-#
-#
-#
-#
More information about the Robkalman-commits
mailing list