Displaying 3 results from an estimated 3 matches for "falsepos".
2012 Jun 15
0
argument "x" is missing, with no default - Please help find argument x
...=cforest_control(mtry=mtry, ntree=ntrees, mincriterion=0.95))
cv.evaluate$prediction <- predict(cv.model, newdata=cv.evaluate)
obj.pred<-predict(cv.model)
pred.table<-table(cv.evaluate$prediction, cv.evaluate$remitter)
truepos<-pred.table[1,1]
trueneg<-pred.table[2,2]
falsepos<-pred.table[2,1]
falseneg<-pred.table[1,2]
sumvar<-epi.tests(c(truepos, falsepos , falseneg, trueneg), verbose=T)
epi.tests(c(truepos, falsepos , falseneg, trueneg), verbose=F)
# Calculate the overall accuracy.
cv.evaluate$correct <- cv.evaluate$prediction == cv.evaluate$rem...
2009 Aug 07
1
Gauss-Laguerre using statmod
...ute error < 4.4e-05
I would like to also use Gauss-Laguerre methods to also integrate this
function. In doing so, I believe the only change of variable needed when
integrating from -Inf to target is x = target - y_i where y_i is node i.
As such, I can implement the following:
library(statmod)
falsePos <- function(target, m, mu, sigma, sigma_i, Q = 30){
gq <- gauss.quad(Q, kind="laguerre")
nodes <- gq$nodes
whts <- gq$weights
y <- pnorm((target - nodes - m)/sigma_i) * dnorm(target - nodes, mu,
sigma)
sum(y * exp(nodes)* whts)
}
> falsePos(target = 200,...
2007 Jul 03
1
loop causes syntax error in print()
...,sim,"hmm",hmm))
+ # print(acctab[,10:15])
+
+ nummod <- nummod +1
+ } #end hmmMats loop
+ } #end tmats loop
+ } #end mut type loop
[1] "dup sim Imod hmm Jmod"
> print(acctab[,10:15])
hitrate falsepos multrate avghit avgmiss avgfalsepos
1 0.0000000 1 NaN NaN 2 NA
2 1.0000000 0 0.00000000 5.333333 NaN NA
3 0.0000000 NaN NaN NaN 9 NA
4 0.7777778 0 0.00000000 15.571429 11 NA...