Displaying 2 results from an estimated 2 matches for "durata".
Did you mean:
murata
2006 Sep 28
1
starting point for non linear fitting
...s code to find
some minimum, but it fails, returning 0 every time..... and i can't
figure out the problem... any advice?
grid <- expand.grid(A0 = seq(1000,10000,1000), A1 = seq(0,2,0.1))
exp.approx <- function(x,A0,A1) {
A0 * exp(- x*A1)
}
ss <- function(p) {
sum((durata.h.freq - exp.approx(durata.h.x,p[0],p[1]))^2)}
idx <- which.min(apply(grid,1,ss))
idx is always 1,1... and that's not true...
2006 Mar 16
0
ERROR WITH SURVBAYES FUNCTION
...y - binary variables) and 3500
observations.
The censor is right.
# Import the data
multi<-read.csv("C:\\Documents and
Settings\\user\\Desktop\\cambridge\\data_multilevel_canale_noleggio.csv",
header=TRUE, sep=";")
attach(multi)
fix(multi)
names(multi)
a<-survBayes(Surv(durata,stato,type="right")~ESG_ATTIVAZIONI+ESG_INFO_DISCONNESSIONE+ESG_PROBLEMI_TECNICI+ESG_VARIAZIONI_CONTRATTUALI+PACCHETTO_CINEMA_CALCIO+OFFERTA_ONLY_DECODER+OFFERTA_PRONTO_SKY+ESG_GESTIONE_AMMINISTRATIVA+ESG_METODO_DI_PAGAMENTO+ESG_PROMOZIONI+PACCHETTO_CINEMA_SPORT+MOP_PO+AREA_NIELSEN_SUD_IS...