Displaying 2 results from an estimated 2 matches for "gauss_denom".
2006 Jul 20
2
Timing benefits of mapply() vs. for loop was: Wrap a loop inside a function
...t(score,items,
(gauss_numer$nodes+prof_cut)), dnorm(gauss_numer$nodes+prof_cut,
mean=mu, sd=sigma))
}
f_y <- rbind(apply(mat, 2, prod), exp(gauss_numer$nodes),
gauss_numer$weights)
sum(apply(f_y,2,prod))
}
class.denom <- function(score,items, mu=0, sigma=1){
gauss_denom <- gauss.quad.prob(49, dist='normal', mu=mu, sigma=sigma)
mat <-
rbind(like.mat(score,items,gauss_denom$nodes),gauss_denom$weights)
sum(apply(mat, 2, prod))
}
class.acc <-function(score,items,prof_cut, mu=0, sigma=1, aboveQ=TRUE){
result <- class.numer(score,items,...
2006 May 05
0
Spline integration & Gaussian quadrature (was: gauss.quad.prob)
...- rbind(like.mat(x,b, (gauss_numer$nodes+prof_cut)),
dnorm(gauss_numer$nodes+prof_cut, mean=mu, sd=sigma))
}
f_y <- rbind(apply(mat, 2, prod), exp(gauss_numer$nodes),
gauss_numer$weights)
sum(apply(f_y,2,prod))
}
class.denom <- function(x,b, mu=0, sigma=1){
gauss_denom <- gauss.quad.prob(49, dist='normal', mu=mu, sigma=sigma)
mat <- rbind(like.mat(x,b,gauss_denom$nodes),gauss_denom$weights)
sum(apply(mat, 2, prod))
}
class.acc <-function(x,b,prof_cut, mu=0, sigma=1, aboveQ=TRUE){
result <- class.numer(x,b,prof_cut, mu,sigma,
abov...