Displaying 4 results from an estimated 4 matches for "predf".
Did you mean:
preds
2009 Feb 16
1
Overdispersion with binomial distribution
...glm1)
Call:
glm(formula = y ~ Pred, family = "binomial")
Deviance Residuals:
Min 1Q Median 3Q Max
-9.1022 -2.7899 -0.4781 2.6058 8.4852
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.35095 0.06612 20.433 < 2e-16 ***
PredF -0.34811 0.11719 -2.970 0.00297 **
PredSN -3.29156 0.10691 -30.788 < 2e-16 ***
PredW -1.46451 0.12787 -11.453 < 2e-16 ***
PredWF -0.56412 0.13178 -4.281 1.86e-05 ***
---
Signif. codes: 0 ?***? 0.001 ?**? 0.01 ?*? 0.05 ?.? 0.1 ? ? 1
(Dispersion paramete...
2011 Jun 20
2
Error of Cross Validation
Dear R users:
Recently, I tried to write a program to calculate cross-validated predicted
value.
My sources are as follows. However, the R reported an error.
Could you please check the sources? Thanks.
set.seed(100)
x<-rnorm(100)
y<-sample(rep(0:1,50),replace=T)
dat<-data.frame(x,y)
library(rms)
fito<-lrm(y~x)
preo<-predict(fito)
pre<-matrix(NA,nrow=100,ncol=200)
for (i in
2024 May 14
0
flexsurvspline with offset
...ode that was working is:
library(survival)
rfs <- pmax(rotterdam$recur, rotterdam$death)
rfstime <- with(rotterdam, ifelse(recur==1, rtime, dtime))
fit1 <- flexsurvspline(Surv(rfstime, rfs) ~ age + meno + size + er, k=2, data = rotterdam)
# obtain the linear predictor for each patient
predf <- model.matrix(fit1) %*% fit1$res[-(1:4),"est"]
# Predict baseline survival at 5 years
y5_Flex_1 <- summary(fit1,type="survival",t=5)
y5_Flex <- y5_Flex_1[[1]]$est
y5_Flex
# Shrinkage factor
vanH <- 0.9589255
heuristic_lp_flex = vanH*predf??????
# Now calculate t...
2010 Mar 30
1
Adding RcppFrame to RcppResultSet causes segmentation fault
...frame.addRow(row1);
// Second row.
std::vector<ColDatum> row2(numCol);
row2[0].setStringValue("b");
row2[1].setDoubleValue(6.28);
row2[2].setFactorValue(levelNames, numLevels, 1);
row2[3].setDateValue(RcppDate(12,25,2006));
frame.addRow(row2);
RcppResultSet rs;
rs.add("PreDF", frame);