Forum

buongiorno a tutti,

ho simulato un df di 1001 colonne in cui la colonna "age" é l'unica variabile indipendente.

Ció che vorrei fare é ripetere un nls su ogni colonna e salvare i rispettivi coefficienti.

questo é quello che ho scritto e non riesco a trovare l'errore!

Mx1$age<-1:10

it<-names(Mx1[,1:1000]) # it é il vettore che contiene i nomi delle colonne che in teroia dovrebbero inserirsi nel modello


models<-lapply (it, function(x) { nls(substitute (log(i/(1-i)) ~ a+b+c*exp(c*age),
start=list(a=0.1,b=-0.2,c=-0.1),
list(i = as.name(x),
data=Mx1)))})

summarise<-lapply(models, summary)

continua a darmi l'errore:

Error in substitute(log(i/(1 - i)) ~ a + b + c * exp(c * age), start = list(a = 0.1, : unused argument (start = list(a = 0.1, b = -0.2, c = -0.1))

credo sia qualcosa di semplice ma non riesco a venirne a capo :-(

se avete soluzioni alternative per raggiungere lo scopo sono ben accette!!

un saluto a tutti!

Matteo

Per aggiungere dei commenti, devi essere membro di StatisticaNing!

Join StatisticaNing

Inviami un'e-mail quando le persone aggiungono una risposta –

Risposte

  • Ciao Matteo,

    scusa il ritardo...

    A parte che non credo che il modello da stimare abbia tutti i parametri stimabili, hai provato con qualcosa simile a quello che segue?

    xx <- data.frame(matrix(rnunif(100*1001), ncol = 1001))
    names(xx)[1001] <- "age"
    start <- list(a=0.1,b=-0.2,c=-0.1)
    mdls <- lapply(names(xx)[1:1000],
      function(i,data, start){
        nls(formula = as.formula(paste0("log(",i, "/(1-",i,")) ~ a + b + c*exp(c*age)")), data=data, start=start)
      },
      data=xx, start=start)

    Ciao

    Enrico

This reply was deleted.

BIG DIVE 7 - SI FA IN DUE

Big Dive, il corso di training intensivo per diventare Data Scientist organizzato dal Consorzio TOP-IX in partnership con ISI Foundation, ToDo e Axant, arriva alla 7° edizione e si fa in due: una settimana dedicata a digital e information designer, quattro settimane intensive su Big Data e Data Science.

 

Giunto alla settima edizione, Big Dive rinnova il suo formato abbandonando il percorso di insegnamento lineare a favore di una collezione di…

Leggi tutto…

Databeers Venezia #3

Hey Data and Beers lovers! We’re back! We are launching the third Databeers Venezia! We are waiting for you next Thursday November 23 @ Negozio Piave 67, Venezia, starting at 19:30sharp!

It will be a great night on the stage with:

Leonidas Paterakis (…

Leggi tutto…
Commenti: 0

DataBeers Venezia #2

Hey Data Lovers! Following the huge success of the first edition... we’re back! Databeers Venice #2 is live! We’re waiting for you next Friday, May 19th @ Negozio Piave 67, via Piave 67, Venezia, starting at 18:00 sharp!

Five stunning speakers will drive the scene for you:

---…

Leggi tutto…
Commenti: 0