455 résultats trouvés

Aller à la recherche avancée

par François Bonnot
11 Fév 2019, 13:54
Forum : Questions en cours
Sujet : Appartenance d'un point dans une grille de points
Réponses : 4
Vues : 84

Re: Appartenance d'un point dans une grille de points

Bonjour, Ce que vous cherchez à faire n'est pas très clair... mais voici un code qui vous aidera peut-être: r <- sqrt(2)+0.001 scale = 0.0707 u <- function(x) sqrt(x[1]^2+x[2]^2) X <- expand.grid(X1 = seq(-r,r,scale), X2=seq(-r,r,scale)) X <- X[apply(X,1,u)<=r,] X <- cbind(X,D=rnorm(nrow(X))) z <- X...
par François Bonnot
28 Jan 2019, 06:51
Forum : Questions en cours
Sujet : police pour script
Réponses : 1
Vues : 102

Re: police pour script

Bonjour,
Question complètement hors sujet sr ce forum.
par François Bonnot
11 Déc 2018, 13:44
Forum : Questions en cours
Sujet : Jointure
Réponses : 5
Vues : 190

Re: Jointure

Bonjour, Une suggestion : (df1 <- data.frame(source=1,ident=c('A','B','C'),valeur=1:3)) (df2 <- data.frame(source=2,ident=c('A','B','D'),valeur=c(1,3,4))) (df <- merge(df1,df2,all=TRUE)) ## équivalent dans ce cas à df <- rbind(df1,df2) df.s <- split(df,df["ident"]) df.s2 <- lapply(df.s,fun...
par François Bonnot
10 Déc 2018, 07:34
Forum : Questions en cours
Sujet : [RESOLU] les fonctions dans la by()
Réponses : 13
Vues : 373

Re: les fonctions dans la by()

Bonjour, Le code n'est pas reproductible: > by(Don[,"Distance"],Don[,"Sexe"],sum) Error in by(Don[, "Distance"], Don[, "Sexe"], sum) : object 'Don' not found Mais avec un code reproductible, tout est normal : > Don <- data.frame(Sexe="Garçon",Distanc...
par François Bonnot
19 Nov 2018, 09:07
Forum : Questions en cours
Sujet : [resolu] Analyse combinatoire
Réponses : 5
Vues : 246

Re: Analyse combinatoire

Bonjour, Je ne sais pas si les fonctions existent sous R mais elles sont très simples à programmer : - assemblages ordonnées avec répétition Nombre : n^p Liste : utiliser expand.grid() - assemblages ordonnées sans répétition Nombre : choose(n,p)*gamma(p+1) Liste : utiliser expand.grid() et supprimer...
par François Bonnot
15 Nov 2018, 07:13
Forum : Questions en cours
Sujet : Equation de degré n
Réponses : 2
Vues : 151

Re: Equation de degré n

peut-être qu'il existe une fonction sous R...

Bonjour,
Oui : la fonction polyroot() du package base.
par François Bonnot
14 Nov 2018, 07:52
Forum : Questions en cours
Sujet : Renommer un level de variable sous conditions
Réponses : 5
Vues : 247

Re: Renommer un level de variable sous conditions

Bonjour, Je suppose qu'il ne s'agit pas de renommer le niveau d'un facteur (ce qu'on ferait avec levels(x)[i] <- ... ), mais d'affecter une nouvelle valeur à un élément d'un objet de classe factor. Cette opération provoque une erreur si le niveau du facteur n'existe pas déjà. Une solution est de tra...
par François Bonnot
08 Nov 2018, 09:57
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 938

Re: faire un tri en gardant l'information de nom de colonne

Bonjour,
C'est beaucoup plus facile avec un extrait du jeu de données.
Dans votre exemple du Mer Nov 07, 2018 5:14 pm vous obtenez un vecteur positions qui vous permet d'obtenir le même résultat que votre boucle avec le code

Code : Tout sélectionner

ADCP_longformat$conc <- samplesand$sand[positions]
par François Bonnot
07 Nov 2018, 07:49
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 938

Re: faire un tri en gardant l'information de nom de colonne

Bonjour, C'est mieux mais il manque des informations pour vous répondre. Pour vous aider, je dois (sans y passer plus de quelques minutes) reproduire votre code d <- dist2(ADCP_longformat1,samplesand) qui (d'après ce que j'ai compris) fonctionne mais lentement. L'extrait de samplesand avec dput est ...
par François Bonnot
05 Nov 2018, 16:56
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 938

Re: faire un tri en gardant l'information de nom de colonne

Ce format ne permet pas de récupérer les données facilement.
Comme indiqué dans mon message du Ven Oct 26, 2018 6:52 am , il faut utiliser dput().
par François Bonnot
05 Nov 2018, 07:20
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 938

Re: faire un tri en gardant l'information de nom de colonne

Bonjour,
Le code n'est pas reproductible :

Code : Tout sélectionner

> d <- dist2(ADCP_longformat1,samplesand)
Error in outer(df1[[1]], df2[[1]], d2) :
  object 'ADCP_longformat1' not found

Voir :
viewtopic.php?f=1&t=7638
par François Bonnot
30 Oct 2018, 07:45
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 983

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

On voit toujours cet effet "escalier" Bonjour, Vous voulez inclure des rectangles dans un cercle et qu'ils soient tangents au cercle par leurs côtés? Mais c'est géométriquement impossible! pouvez-vous m'expliquer comment vous définissez col dans cette fonction (pour que quand m=0, col soi...
par François Bonnot
29 Oct 2018, 16:10
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 983

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Quelque chose comme ça ?

Code : Tout sélectionner

lim <- 1.55 ; ratio <- 1.02
plot(0,0,xlim=c(-lim,lim),ylim=c(-lim,lim),asp=1)
symbols(0,0,circles=r*ratio,add=TRUE,inches=FALSE,bg="gray")
image(x,x,m,col=c("gray","white"),add=TRUE)
par François Bonnot
29 Oct 2018, 14:59
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 983

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Il ne suffit pas d'agrandir un peu le cercle ? lim <- 1.55 ; ratio <- 1.02 image(x,x,m,asp=1,col=c("gray","white"),xlim=c(-lim,lim),ylim=c(-lim,lim)) tt <- seq(0,2*pi, length.out = 200) Dom <- data.frame(x = r*cos(tt)*ratio, y = r*sin(tt)*ratio) lines(Dom, lwd = 2, col = "gr...

Aller à la recherche avancée