Nothing
R/classes.R
In relaimpo: Relative Importance of Regressors in Linear Models
#classes and methods in the following
setClassUnion("numintnull", c("numeric", "integer", "NULL"))
setClassUnion("charnull", c("character", "NULL"))
setClassUnion("numintmatnull", c("numeric", "integer", "matrix", "NULL"))
setClassUnion("listnull", c("list", "NULL"))
## change UG for 1.3: included design classes
setOldClass(c("boot"))
setOldClass(c("MIresult"))
setClassUnion("MIresultnull", c("MIresult", "NULL"))
## the intention was to define slot MIresult as class MIresultnull, but that does not work
## because of old class ?
## For the time being, assigned class "ANY" to the slot
setClassUnion("langnull", c("language", "NULL")) ## added call slot, NULL may be removable after testing
#setOldClass(c("boot", "survey.design"))
#setClassUnion("designnull", c("survey.design", "NULL"))
## change UG for 1.3: added weights, design
## weights only needed for calculating correct estimates
## no complications, since estimates can be easily calculated,
## once weights are known
setClass("relimplm",representation=representation(
var.y="numeric",R2="numeric",R2.decomp="numeric",
lmg="numeric",pmvd="numeric",first="numeric",last="numeric",
betasq="numeric",pratt="numeric",genizi="numeric",car="numeric",
lmg.rank="numeric",pmvd.rank="numeric",
first.rank="numeric",last.rank="numeric",
betasq.rank="numeric",pratt.rank="numeric",genizi.rank="numeric",car.rank="numeric",
lmg.diff="numeric",pmvd.diff="numeric",first.diff="numeric",
last.diff="numeric",
betasq.diff="numeric",pratt.diff="numeric",genizi.diff="numeric",car.diff="numeric",
namen="character",nobs="numeric",ave.coeffs="numintmatnull",type="character",rela="logical",
always="numintnull",alwaysnam="charnull", groupdocu="list", call="langnull"))
setValidity("relimplm",function(object){
p<-length(slot(object,"namen"))-1
var.y <- is(slot(object,"var.y"),"numeric") && slot(object,"var.y")>0
R2<-is(object@R2,"numeric") && object@R2>=0 && object@R2<=1
R2.decomp<-is(object@R2.decomp,"numeric") && object@R2.decomp>0 &&
object@R2.decomp<=object@R2
lmg<-is(object@lmg,"numeric") && (length(object@lmg) %in% c(0,p))
lmg.rank<-is(object@lmg.rank,"numeric") && (length(object@lmg.rank) %in% c(0,p))
lmg.diff<-is(object@lmg.diff,"numeric") && (length(object@lmg.diff) %in% c(0,p*(p-1)/2))
pmvd<-is(object@pmvd,"numeric") && (length(object@pmvd) %in% c(0,p))
pmvd.rank<-is(object@pmvd.rank,"numeric") && (length(object@pmvd.rank) %in% c(0,p))
pmvd.diff<-is(object@pmvd.diff,"numeric") && (length(object@pmvd.diff) %in% c(0,p*(p-1)/2))
last<-is(object@last,"numeric") && (length(object@last) %in% c(0,p))
last.rank<-is(object@last.rank,"numeric") && (length(object@last.rank) %in% c(0,p))
last.diff<-is(object@last.diff,"numeric") && (length(object@last.diff) %in% c(0,p*(p-1)/2))
first<-is(object@first,"numeric") && (length(object@first) %in% c(0,p))
first.rank<-is(object@first.rank,"numeric") && (length(object@first.rank) %in% c(0,p))
first.diff<-is(object@first.diff,"numeric") && (length(object@first.diff) %in% c(0,p*(p-1)/2))
betasq<-is(object@betasq,"numeric") && (length(object@betasq) %in% c(0,p))
betasq.rank<-is(object@betasq.rank,"numeric") && (length(object@betasq.rank) %in% c(0,p))
betasq.diff<-is(object@betasq.diff,"numeric") && (length(object@betasq.diff) %in% c(0,p*(p-1)/2))
pratt<-is(object@pratt,"numeric") && (length(object@pratt) %in% c(0,p))
pratt.rank<-is(object@pratt.rank,"numeric") && (length(object@pratt.rank) %in% c(0,p))
pratt.diff<-is(object@pratt.diff,"numeric") && (length(object@pratt.diff) %in% c(0,p*(p-1)/2))
genizi<-is(object@genizi,"numeric") && (length(object@genizi) %in% c(0,p))
genizi.rank<-is(object@genizi.rank,"numeric") && (length(object@genizi.rank) %in% c(0,p))
genizi.diff<-is(object@genizi.diff,"numeric") && (length(object@genizi.diff) %in% c(0,p*(p-1)/2))
car<-is(object@car,"numeric") && (length(object@car) %in% c(0,p))
car.rank<-is(object@car.rank,"numeric") && (length(object@car.rank) %in% c(0,p))
car.diff<-is(object@car.diff,"numeric") && (length(object@car.diff) %in% c(0,p*(p-1)/2))
namen <- is(slot(object,"namen"),"character")
return(var.y && R2 && lmg && lmg.rank && lmg.diff
&& pmvd && pmvd.rank && pmvd.diff
&& last && last.rank && last.diff && first && first.rank && first.diff
&& betasq && betasq.rank && betasq.diff
&& pratt && pratt.rank && pratt.diff
&& genizi && genizi.rank && genizi.diff
&& car && car.rank && car.diff && namen)
})
setClass("relimplmboot",representation=representation(
boot="boot",type="character",nboot="numeric",
rank="logical",diff="logical",rela="logical",fixed="logical",
namen="character", nobs="numeric", always="numintnull",alwaysnam="charnull",
groupdocu="list", wt="numintnull", vcov="numintmatnull", call="langnull"))
setClass("relimplmbooteval",representation=representation(
lmg.lower="matrix",lmg.upper="matrix",
lmg.rank.lower="matrix",lmg.rank.upper="matrix",
lmg.diff.lower="matrix",lmg.diff.upper="matrix",
pmvd.lower="matrix",pmvd.upper="matrix",
pmvd.rank.lower="matrix",pmvd.rank.upper="matrix",
pmvd.diff.lower="matrix",pmvd.diff.upper="matrix",
last.lower="matrix",last.upper="matrix",
last.rank.lower="matrix",last.rank.upper="matrix",
last.diff.lower="matrix",last.diff.upper="matrix",
first.lower="matrix",first.upper="matrix",
first.rank.lower="matrix",first.rank.upper="matrix",
first.diff.lower="matrix",first.diff.upper="matrix",
betasq.lower="matrix",betasq.upper="matrix",
betasq.rank.lower="matrix",betasq.rank.upper="matrix",
betasq.diff.lower="matrix",betasq.diff.upper="matrix",
pratt.lower="matrix",pratt.upper="matrix",
pratt.rank.lower="matrix",pratt.rank.upper="matrix",
pratt.diff.lower="matrix",pratt.diff.upper="matrix",
genizi.lower="matrix",genizi.upper="matrix",
genizi.rank.lower="matrix",genizi.rank.upper="matrix",
genizi.diff.lower="matrix",genizi.diff.upper="matrix",
car.lower="matrix",car.upper="matrix",
car.rank.lower="matrix",car.rank.upper="matrix",
car.diff.lower="matrix",car.diff.upper="matrix",
var.y.boot="numeric",R2.boot="numeric",R2.decomp.boot="numeric",
lmg.boot="matrix",pmvd.boot="matrix",last.boot="matrix",
first.boot="matrix",betasq.boot="matrix",pratt.boot="matrix",genizi.boot="matrix",car.boot="matrix",
lmg.rank.boot="matrix",pmvd.rank.boot="matrix",last.rank.boot="matrix",
first.rank.boot="matrix",betasq.rank.boot="matrix",pratt.rank.boot="matrix",
genizi.rank.boot="matrix",car.rank.boot="matrix",
lmg.diff.boot="matrix",pmvd.diff.boot="matrix",last.diff.boot="matrix",
first.diff.boot="matrix",betasq.diff.boot="matrix",pratt.diff.boot="matrix",
genizi.diff.boot="matrix",car.diff.boot="matrix",
est="numintnull", vcov="numintmatnull",
level="numeric",nboot="numeric",diffnam="character",rank="logical",diff="logical",
rela="logical",fixed="logical",type="character",sort="logical",bty="character",mark="matrix",
markdiff="matrix"),contains="relimplm")
setClass("relimplmtest",representation=representation(
daten="matrix",wt="numintnull"),contains="relimplm")
setClass("relimplmbootMI",representation=representation(
lmg.lower="matrix",lmg.upper="matrix",
lmg.rank.lower="matrix",lmg.rank.upper="matrix",
lmg.diff.lower="matrix",lmg.diff.upper="matrix",
pmvd.lower="matrix",pmvd.upper="matrix",
pmvd.rank.lower="matrix",pmvd.rank.upper="matrix",
pmvd.diff.lower="matrix",pmvd.diff.upper="matrix",
last.lower="matrix",last.upper="matrix",
last.rank.lower="matrix",last.rank.upper="matrix",
last.diff.lower="matrix",last.diff.upper="matrix",
first.lower="matrix",first.upper="matrix",
first.rank.lower="matrix",first.rank.upper="matrix",
first.diff.lower="matrix",first.diff.upper="matrix",
betasq.lower="matrix",betasq.upper="matrix",
betasq.rank.lower="matrix",betasq.rank.upper="matrix",
betasq.diff.lower="matrix",betasq.diff.upper="matrix",
pratt.lower="matrix",pratt.upper="matrix",
pratt.rank.lower="matrix",pratt.rank.upper="matrix",
pratt.diff.lower="matrix",pratt.diff.upper="matrix",
genizi.lower="matrix",genizi.upper="matrix",
genizi.rank.lower="matrix",genizi.rank.upper="matrix",
genizi.diff.lower="matrix",genizi.diff.upper="matrix",
car.lower="matrix",car.upper="matrix",
car.rank.lower="matrix",car.rank.upper="matrix",
car.diff.lower="matrix",car.diff.upper="matrix",
MIresult = "ANY", est="numintnull", vcov="numintmatnull", bootlist="listnull",
level="numeric",nboot="numeric",diffnam="character",rank="logical",diff="logical",
rela="logical",fixed="logical",type="character",sort="logical",bty="character",mark="matrix",
markdiff="matrix"),contains="relimplm")
Try the relaimpo package in your browser
Any scripts or data that you put into this service are public.
relaimpo documentation built on Oct. 4, 2023, 5:09 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#classes and methods in the following
setClassUnion("numintnull", c("numeric", "integer", "NULL"))
setClassUnion("charnull", c("character", "NULL"))
setClassUnion("numintmatnull", c("numeric", "integer", "matrix", "NULL"))
setClassUnion("listnull", c("list", "NULL"))
## change UG for 1.3: included design classes
setOldClass(c("boot"))
setOldClass(c("MIresult"))
setClassUnion("MIresultnull", c("MIresult", "NULL"))
## the intention was to define slot MIresult as class MIresultnull, but that does not work
## because of old class ?
## For the time being, assigned class "ANY" to the slot
setClassUnion("langnull", c("language", "NULL")) ## added call slot, NULL may be removable after testing
#setOldClass(c("boot", "survey.design"))
#setClassUnion("designnull", c("survey.design", "NULL"))
## change UG for 1.3: added weights, design
## weights only needed for calculating correct estimates
## no complications, since estimates can be easily calculated,
## once weights are known
setClass("relimplm",representation=representation(
var.y="numeric",R2="numeric",R2.decomp="numeric",
lmg="numeric",pmvd="numeric",first="numeric",last="numeric",
betasq="numeric",pratt="numeric",genizi="numeric",car="numeric",
lmg.rank="numeric",pmvd.rank="numeric",
first.rank="numeric",last.rank="numeric",
betasq.rank="numeric",pratt.rank="numeric",genizi.rank="numeric",car.rank="numeric",
lmg.diff="numeric",pmvd.diff="numeric",first.diff="numeric",
last.diff="numeric",
betasq.diff="numeric",pratt.diff="numeric",genizi.diff="numeric",car.diff="numeric",
namen="character",nobs="numeric",ave.coeffs="numintmatnull",type="character",rela="logical",
always="numintnull",alwaysnam="charnull", groupdocu="list", call="langnull"))
setValidity("relimplm",function(object){
p<-length(slot(object,"namen"))-1
var.y <- is(slot(object,"var.y"),"numeric") && slot(object,"var.y")>0
R2<-is(object@R2,"numeric") && object@R2>=0 && object@R2<=1
R2.decomp<-is(object@R2.decomp,"numeric") && object@R2.decomp>0 &&
object@R2.decomp<=object@R2
lmg<-is(object@lmg,"numeric") && (length(object@lmg) %in% c(0,p))
lmg.rank<-is(object@lmg.rank,"numeric") && (length(object@lmg.rank) %in% c(0,p))
lmg.diff<-is(object@lmg.diff,"numeric") && (length(object@lmg.diff) %in% c(0,p*(p-1)/2))
pmvd<-is(object@pmvd,"numeric") && (length(object@pmvd) %in% c(0,p))
pmvd.rank<-is(object@pmvd.rank,"numeric") && (length(object@pmvd.rank) %in% c(0,p))
pmvd.diff<-is(object@pmvd.diff,"numeric") && (length(object@pmvd.diff) %in% c(0,p*(p-1)/2))
last<-is(object@last,"numeric") && (length(object@last) %in% c(0,p))
last.rank<-is(object@last.rank,"numeric") && (length(object@last.rank) %in% c(0,p))
last.diff<-is(object@last.diff,"numeric") && (length(object@last.diff) %in% c(0,p*(p-1)/2))
first<-is(object@first,"numeric") && (length(object@first) %in% c(0,p))
first.rank<-is(object@first.rank,"numeric") && (length(object@first.rank) %in% c(0,p))
first.diff<-is(object@first.diff,"numeric") && (length(object@first.diff) %in% c(0,p*(p-1)/2))
betasq<-is(object@betasq,"numeric") && (length(object@betasq) %in% c(0,p))
betasq.rank<-is(object@betasq.rank,"numeric") && (length(object@betasq.rank) %in% c(0,p))
betasq.diff<-is(object@betasq.diff,"numeric") && (length(object@betasq.diff) %in% c(0,p*(p-1)/2))
pratt<-is(object@pratt,"numeric") && (length(object@pratt) %in% c(0,p))
pratt.rank<-is(object@pratt.rank,"numeric") && (length(object@pratt.rank) %in% c(0,p))
pratt.diff<-is(object@pratt.diff,"numeric") && (length(object@pratt.diff) %in% c(0,p*(p-1)/2))
genizi<-is(object@genizi,"numeric") && (length(object@genizi) %in% c(0,p))
genizi.rank<-is(object@genizi.rank,"numeric") && (length(object@genizi.rank) %in% c(0,p))
genizi.diff<-is(object@genizi.diff,"numeric") && (length(object@genizi.diff) %in% c(0,p*(p-1)/2))
car<-is(object@car,"numeric") && (length(object@car) %in% c(0,p))
car.rank<-is(object@car.rank,"numeric") && (length(object@car.rank) %in% c(0,p))
car.diff<-is(object@car.diff,"numeric") && (length(object@car.diff) %in% c(0,p*(p-1)/2))
namen <- is(slot(object,"namen"),"character")
return(var.y && R2 && lmg && lmg.rank && lmg.diff
&& pmvd && pmvd.rank && pmvd.diff
&& last && last.rank && last.diff && first && first.rank && first.diff
&& betasq && betasq.rank && betasq.diff
&& pratt && pratt.rank && pratt.diff
&& genizi && genizi.rank && genizi.diff
&& car && car.rank && car.diff && namen)
})
setClass("relimplmboot",representation=representation(
boot="boot",type="character",nboot="numeric",
rank="logical",diff="logical",rela="logical",fixed="logical",
namen="character", nobs="numeric", always="numintnull",alwaysnam="charnull",
groupdocu="list", wt="numintnull", vcov="numintmatnull", call="langnull"))
setClass("relimplmbooteval",representation=representation(
lmg.lower="matrix",lmg.upper="matrix",
lmg.rank.lower="matrix",lmg.rank.upper="matrix",
lmg.diff.lower="matrix",lmg.diff.upper="matrix",
pmvd.lower="matrix",pmvd.upper="matrix",
pmvd.rank.lower="matrix",pmvd.rank.upper="matrix",
pmvd.diff.lower="matrix",pmvd.diff.upper="matrix",
last.lower="matrix",last.upper="matrix",
last.rank.lower="matrix",last.rank.upper="matrix",
last.diff.lower="matrix",last.diff.upper="matrix",
first.lower="matrix",first.upper="matrix",
first.rank.lower="matrix",first.rank.upper="matrix",
first.diff.lower="matrix",first.diff.upper="matrix",
betasq.lower="matrix",betasq.upper="matrix",
betasq.rank.lower="matrix",betasq.rank.upper="matrix",
betasq.diff.lower="matrix",betasq.diff.upper="matrix",
pratt.lower="matrix",pratt.upper="matrix",
pratt.rank.lower="matrix",pratt.rank.upper="matrix",
pratt.diff.lower="matrix",pratt.diff.upper="matrix",
genizi.lower="matrix",genizi.upper="matrix",
genizi.rank.lower="matrix",genizi.rank.upper="matrix",
genizi.diff.lower="matrix",genizi.diff.upper="matrix",
car.lower="matrix",car.upper="matrix",
car.rank.lower="matrix",car.rank.upper="matrix",
car.diff.lower="matrix",car.diff.upper="matrix",
var.y.boot="numeric",R2.boot="numeric",R2.decomp.boot="numeric",
lmg.boot="matrix",pmvd.boot="matrix",last.boot="matrix",
first.boot="matrix",betasq.boot="matrix",pratt.boot="matrix",genizi.boot="matrix",car.boot="matrix",
lmg.rank.boot="matrix",pmvd.rank.boot="matrix",last.rank.boot="matrix",
first.rank.boot="matrix",betasq.rank.boot="matrix",pratt.rank.boot="matrix",
genizi.rank.boot="matrix",car.rank.boot="matrix",
lmg.diff.boot="matrix",pmvd.diff.boot="matrix",last.diff.boot="matrix",
first.diff.boot="matrix",betasq.diff.boot="matrix",pratt.diff.boot="matrix",
genizi.diff.boot="matrix",car.diff.boot="matrix",
est="numintnull", vcov="numintmatnull",
level="numeric",nboot="numeric",diffnam="character",rank="logical",diff="logical",
rela="logical",fixed="logical",type="character",sort="logical",bty="character",mark="matrix",
markdiff="matrix"),contains="relimplm")
setClass("relimplmtest",representation=representation(
daten="matrix",wt="numintnull"),contains="relimplm")
setClass("relimplmbootMI",representation=representation(
lmg.lower="matrix",lmg.upper="matrix",
lmg.rank.lower="matrix",lmg.rank.upper="matrix",
lmg.diff.lower="matrix",lmg.diff.upper="matrix",
pmvd.lower="matrix",pmvd.upper="matrix",
pmvd.rank.lower="matrix",pmvd.rank.upper="matrix",
pmvd.diff.lower="matrix",pmvd.diff.upper="matrix",
last.lower="matrix",last.upper="matrix",
last.rank.lower="matrix",last.rank.upper="matrix",
last.diff.lower="matrix",last.diff.upper="matrix",
first.lower="matrix",first.upper="matrix",
first.rank.lower="matrix",first.rank.upper="matrix",
first.diff.lower="matrix",first.diff.upper="matrix",
betasq.lower="matrix",betasq.upper="matrix",
betasq.rank.lower="matrix",betasq.rank.upper="matrix",
betasq.diff.lower="matrix",betasq.diff.upper="matrix",
pratt.lower="matrix",pratt.upper="matrix",
pratt.rank.lower="matrix",pratt.rank.upper="matrix",
pratt.diff.lower="matrix",pratt.diff.upper="matrix",
genizi.lower="matrix",genizi.upper="matrix",
genizi.rank.lower="matrix",genizi.rank.upper="matrix",
genizi.diff.lower="matrix",genizi.diff.upper="matrix",
car.lower="matrix",car.upper="matrix",
car.rank.lower="matrix",car.rank.upper="matrix",
car.diff.lower="matrix",car.diff.upper="matrix",
MIresult = "ANY", est="numintnull", vcov="numintmatnull", bootlist="listnull",
level="numeric",nboot="numeric",diffnam="character",rank="logical",diff="logical",
rela="logical",fixed="logical",type="character",sort="logical",bty="character",mark="matrix",
markdiff="matrix"),contains="relimplm")
Try the relaimpo package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.