Modérateur : Groupe des modérateurs
Code : Tout sélectionner
x <- matrix(rnorm(100),10)
y <- x[sample(1:nrow(y),3),]
Maxime
Code : Tout sélectionner
selectsousmatrice=function(n){
a=round(1501183*runif(1)+1)
matriceresult=matrice2[a,]
matriceresult=as.matrix(matriceresult)
vecrando=round(1501183*runif(n-1)+1)
for (i in 1 :n-1){
matriceresult=rbind(matriceresult,matrice2[vecrando[i],])
}
return(matriceresult)
}
Code : Tout sélectionner
ff=matrice2[,7]~matrice2[,5]+matrice2[,22]+matrice2[,23]+matrice2[,28]
a=bigglm(ff,data=matrice2,family=binomial())
Erreur : impossible d'allouer un vecteur de taille 57.3 Mo
Benoît Lamy a écrit :Savez-vous où sont stockés les objets en R? j'ai scanné tous les fichiers du poste de travail, en cherchant à l'intérieur le nom d'un objet que j'ai enregistré, je n'ai aucun résultat! Curieux, non?
Code : Tout sélectionner
ff=matrice2[,7]~matrice2[,5]+matrice2[,22]+matrice2[,23]+matrice2[,28]
a=bigglm(ff,data=matrice2,family=binomial())
Code : Tout sélectionner
data(trees)
ff <- log(Volume) ~ log(Girth) + log(Height)
a <- bigglm(ff, data = trees, chunksize = 10, sandwich = TRUE)
summary(a)
Code : Tout sélectionner
ff <- matrice2[ ,7] ~ matrice2[ ,5] + matrice2[ ,22] + matrice2[ ,23] + matrice2[ ,28]
Code : Tout sélectionner
make.data <- function(urlname, chunksize, ...){
conn <- NULL
function(reset = FALSE){
if(reset){
if(!is.null(conn)) close(conn)
conn <<- url(urlname, open = "r")
} else{
rval <- read.table(conn, nrows = chunksize, ...)
if (nrow(rval) == 0) {
close(conn)
conn <<- NULL
rval <- NULL
}
return(rval)
}
}
}
airpoll <- make.data("http://faculty.washington.edu/tlumley/NO2.dat",
chunksize = 150,
col.names = c("logno2","logcars","temp","windsp",
"tempgrad", "winddir", "hour", "day"))
Code : Tout sélectionner
b <- bigglm(exp(logno2) ~ logcars + temp + windsp,
data = airpoll, family = Gamma(log), start = c(2, 0, 0, 0), maxit = 10)
summary(b)
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité