Hi everyone,
I have a problem, i have a function that only take a parameter, and give me a different kind of distribution extimated from this parameter, when i use this function manually it go on.
But when i use the function as a function in another script it give me an error.
Error in rpois(oggetto_selezionato$estimate[1], n = 5000L) :
object "oggetto_selezionato" not found
Inoltre: There were 11 warnings (use warnings() to see them)
> warnings()
Messaggi di avvertimento:
1: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
2: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
3: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
4: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
5: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
6: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
7: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
8: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
9: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
10: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
11: In densfun(x, parm[1], parm[2], ...) : Si è prodotto un NaN
"si è prodotto un NaN" means "it give a NaN"
oggetto_selezionato is
oggetto_selezionato=fitdistr(elementi_oggetto,"normal", lower= c(0, 0), method="mle")
it don't give an error inside the function, and oggetto_selezionato give a list of 5 with no NaN or error!
the error is with function rcompound, but even if i use plot it turn me an error and say that he can't find the element
oggetto_selezionato$estimate[1]
of the list oggetto_selezionato.
Someone can help me? 
Thank you