ma(d,partition,ht,hp,hs,ufp)
n x m
data frame containing n
observations of m
variables
for which the maximal joint/marginal likelihood ratio score is required.
list(c(m),c(1:m-1))
where m = ncol(d)
which indicates explaining the
last variable by means of all the other variables in the data set.
ht = 43.6978644
.
hp = 0.8120818
.
hs = 6.0049711
.
FALSE
.
LR
statistic, required for computing p
values.rwt
function from the matie
package.
This estimate is usually conservative (ie low) and a small-samples hyperbolic
correction is applied by adding an offset, os
,
to the joint likelihood given by:
os = ( 1 - 1 / (1 + A * ht) ) * ( n ^ (hp) / hs )
before the likelihood ratio is re-computed.
As the dimension of the data set increases so does the under-estimation
of A even with the hyperbolic correction.
rwt
pd
sbd
shpd
std
# bivariate association
d <- shpd(n=1000,m=2,Rsq=0.9)
ma(d)$A
#
# multivariate association (the proportion of variance in "Salary"
# explained by "Hits" and "Years")
data(baseballData)
ma(baseballData,partition=list(11,c(2,7)))$A
Run the code above in your browser using DataLab