Essayons d’avoir 99 999 réponses dans ce sujet…

  • Thread starter Thread starter Anonymous
  • Start date Start date
JackKnife said:
corsica.gif
Click to expand...

c'est vrai ?
 
function (data, statistic, R, sim = "ordinary", stype = "i",
    strata = rep(1, n), L = NULL, m = 0, weights = NULL, ran.gen = function(d,
        p) d, mle = NULL, ...)
{
    call <- match.call()
    if (!exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE))
        runif(1)
    seed <- get(".Random.seed", envir = .GlobalEnv, inherits = FALSE)
    if (isMatrix(data))
        n <- nrow(data)
    else n <- length(data)
    temp.str <- strata
    strata <- tapply(1:n, as.numeric(strata))
    if ((n == 0) || is.null(n))
        stop("no data in call to boot")
    if (sim != "parametric") {
        if ((sim == "antithetic") && is.null(L))
            L <- empinf(data = data, statistic = statistic, stype = stype,
                strata = strata, ...)
        if (sim != "ordinary")
            m <- 0
        else if (any(m < 0))
            stop("negative value of m supplied")
        if ((length(m) != 1) && (length(m) != length(table(strata))))
            stop("length of m incompatible with strata")
        if ((sim == "ordinary") || (sim == "balanced")) {
            if (isMatrix(weights) && (nrow(weights) != length(R)))
                stop("dimensions of R and weights do not match")
        }
        else weights <- NULL
        if (!is.null(weights))
            weights <- t(apply(matrix(weights, n, length(R),
                byrow = TRUE), 2, normalize, strata))
        i <- index.array(n, R, sim, strata, m, L, weights)
        if (stype == "f")
            original <- rep(1, n)
        else if (stype == "w") {
            ns <- tabulate(strata)[strata]
            original <- 1/ns
        }
        else original <- 1:n
        if (sum(m) > 0) {
            t0 <- statistic(data, original, rep(1, sum(m)), ...)
            lt0 <- length(t0)
        }
        else {
            t0 <- statistic(data, original, ...)
            lt0 <- length(t0)
        }
    }
    else {
        t0 <- statistic(data, ...)
        lt0 <- length(t0)
    }
    t.star <- matrix(NA, sum(R), lt0)
    pred.i <- NULL
    if (sim == "parametric") {
        for (r in 1:R) {
            t.star[r, ] <- statistic(ran.gen(data, mle), ...)
        }
    }
    else {
        if (ncol(i) > n) {
            pred.i <- as.matrix(i[, (n + 1):ncol(i)])
            i <- i[, 1:n]
        }
        if ((stype == "f") || (stype == "w"))
            f <- freq.array(i)
        if (stype == "f") {
            if (sum(m) == 0)
                for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
                  f[r, ], ...)
            else for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
                f[r, ], pred.i[r, ], ...)
        }
        else if (stype == "w") {
            if (sum(m) == 0)
                for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
                  f[r, ]/ns, ...)
            else for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
                f[r, ]/ns, pred.i[r, ], ...)
        }
        else if (sum(m) == 0)
            for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
                i[r, ], ...)
        else for (r in 1:sum(R)) t.star[r, ] <- statistic(data,
            i[r, ], pred.i[r, ], ...)
    }
    dimnames(t.star) <- NULL
    if (is.null(weights))
        weights <- 1/tabulate(strata)[strata]
    boot.return(sim, t0, t.star, temp.str, R, data, statistic,
        stype, call, seed, L, m, pred.i, weights, ran.gen, mle)
}
:nuts: :nuts: :nuts:
 
chapito said:
Mais c'est quoi ce délire? on est plus dans ce forum pointilleux et "élitiste"?
Click to expand...
On y est toujours mon cher mais ce sujet est particulier. Tu noteras tout de même qu'il n'y a aucune faute de syntaxe dans mon message précédent  :D  :smartarse:
 
@chapito

moi, j'ai jamais douté
mais de l'autre coté...
je ne me suis point démandé

et voilà ton styl hyper classe elitiste 


:S
 
En fait je ne pense pas que ce forum est élitiste. La seule chose qui peut sembler élitiste c'est que Maverick a toujours éliminé sans pitié les messages pleins de fautes de Français. Si vous regardez l'équivalent anglais du forum vous verrez qu'il en est de même question syntaxe et orthographe. J'aime bien lire des textes écrits correctement. Pas vous?
La seule exception ce sont les messages de n°5_____________. Nous sommes perplexes et n'arrivons pas à déterminer son origine exacte car l'animal ne semble pratiquer aucune langue correctement.
Personnellement je me demande si nous ne sommes pas dans le cas d'une rencontre du troisième type (troisième sale type? :P)



:innocent:
 
JackKnife said:
En fait je ne pense pas que ce forum est élitiste. La seule chose qui peut sembler élitiste c'est que Maverick a toujours éliminé sans pitié les messages pleins de fautes de Français. Si vous regardez l'équivalent anglais du forum vous verrez qu'il en est de même question syntaxe et orthographe. J'aime bien lire des textes écrits correctement. Pas vous?
Click to expand...

je sais pas que c est ce dit JackKnife mais moi je suis élitien

JackKnife said:
La seule exception ce sont les messages de n°5_____________. Nous sommes perplexes et n'arrivons pas à déterminer son origine exacte car l'animal ne semble pratiquer aucune langue correctement.
Personnellement je me demande si nous ne sommes pas dans le cas d'une rencontre du troisième type (troisième sale type? :P)



:innocent:
Click to expand...


y a un autre no5 ici ?
il faut pas nous comfondre les gens, moi je signe "____no5 : le métre aux langues étrangers "
 
JackKnife said:
En fait je ne pense pas que ce forum est élitiste. La seule chose qui peut sembler élitiste c'est que Maverick a toujours éliminé sans pitié les messages pleins de fautes de Français.
Click to expand...
Tiens, ça me rappelle que l'on a pas vu Maverick depuis un bon bout de temps. Quelqu'un sait-il où il est passé?
Peut-être que, lassé de faire la loi, il a refilé le boulot pénible à ce pauvre JackKnife, et s'en est allé en exil un moment...

Et puis le Commentaire est un peu mort :S
 
Ouais en tous cas ____no5 ça sent pas trop le Channel ton orthographe si je peux me permettre... :D

Sinon aujourd'hui c'est la journée de la femme

Je sais qu'on s'en br.... mais comme ça vous aurez un nouveau sujet pour raconter des conneries!
 
Ben said:
Tiens, ça me rappelle que l'on a pas vu Maverick depuis un bon bout de temps. Quelqu'un sait-il où il est passé?
Peut-être que, lassé de faire la loi, il a refilé le boulot pénible à ce pauvre JackKnife, et s'en est allé en exil un moment...

Et puis le Commentaire est un peu mort :S
Click to expand...

c'est vraie, il est disparu ....il est ou Mav ?

Peschane said:
Ouais ben ____no5 ça sent pas trop le Channel ton orthographe si je peux me permettre... :D

Sinon aujourd'hui c'est la journée de la femme

Je sais qu'on s'en br.... mais comme ça vous aurez un nouveau sujet pour raconter des conneries!
Click to expand...

bien sure je suis un homme brutal, Channel c'est un trouc de :censored:
 
Peschane said:
Sinon aujourd'hui c'est la journée de la femme
Je sais qu'on s'en br.... mais comme ça vous aurez un nouveau sujet pour raconter des conneries!
Click to expand...
Je ne savais pas. De nos jours chaque jour ou presque est la journée de quelque chose. La journée de la femme, la journée du handicap, la journée de la tortue marine, la journée de l'andouillette  :), la journée du patrimoine etc etc. Bientôt 365 jours ne suffiront plus et on devra revoir le calendrier.  <_<
 
merci JackKnife pour tes très employables renseignements ....

je reviens sur la disparition de Mav....
c'était le milieu de mois de Décembre, quand il m a foutu 65.000 kicks (environ) parce que j'ai dragué Serratia
deux trois jours après, il a activé son compte pour la dérnière fois (16 Décembre)
Serratia, aussi elle est disparue : après ces 65.000 kicks elle n'a rien posté et un mois après Maverick, elle a activé son compte pour la dernière fois

je sais pas qu'est ce qui se passe avec elle, mais Maverick il me ressemble impossible qu'il a jamais activé son compte....Alors je me dis que peut être il est reincarné avec un autre pseudo (possiblement un newbie) et qu'il a continué poster avec ça

quand je pense à tout ça, j'imagine des plus drols de cas par exemple Maverick=thousand_suns (LOL) etc

qu'en pensez vous ?
 
____no5 said:
merci JackKnife pour tes très employables renseignements ....

je reviens sur la disparition de Mav....
c'était le milieu de mois de Décembre, quand il m a foutu 65.000 kicks (environ) parce que j'ai dragué Serratia
deux trois jours après, il a activé son compte pour la dérnière fois (16 Décembre)
Serratia, aussi elle est disparue : après ces 65.000 kicks elle n'a rien posté et un mois après Maverick, elle a activé son compte pour la dernière fois

je sais pas qu'est ce qui se passe avec elle, mais Maverick il me ressemble impossible qu'il a jamais activé son compte....Alors je me dis que peut être il est reincarné avec un autre pseudo (possiblement un newbie) et qu'il a continué poster avec ça

quand je pense à tout ça, j'imagine des plus drols de cas par exemple Maverick=thousand_suns (LOL) etc

qu'en pensez vous ?
Click to expand...
Je pense que Mav' n'est pas dans le secteur sinon tu ne serais pas à -20  :innocent:
 
You must log in or register to reply here.
Back
Top