Modérateur : Groupe des modérateurs
Code : Tout sélectionner
> dfr <- data.frame(x = 1:5, y = 10:6)
> dfr
x y
1 1 10
2 2 9
3 3 8
4 4 7
5 5 6
> rowSums(dfr)
[1] 11 11 11 11 11
Code : Tout sélectionner
tab <- NULL
for( n.mat in 1:nb.matrices) {
tab <- rbind( tab, acces.matrice( n.mat))
}
Code : Tout sélectionner
acces.matrice <- function( no.matrice) {
as.vector( lecture.matrice( no.matrice))
}
Code : Tout sélectionner
path<-'C:/Users/..../'# Donné le chemin d'acces du fichier source
file="bio"# Nom de chaque fichier qui sera suivit des nombre 1,2,3,4,
sortie<-"_modif"
ext<-".asc" #extension des fichiers d'entré
ncols=190#nb de colones
nrows=220#nb lignes
Header <- readLines (paste0(path,file,1,ext), n=6) #lecture du header du premmier fichier
Data<- array(dim=c(ncols,nrows,23)) #initialise une matrice (220 lignes, 190 colones)
for (i in 1:23) {
Data[,,i] <- as.matrix(paste0(path,file,i,ext), header=FALSE, skip=6L) #lecture de la table sans les 6 premieres lignes
z <- 1 ## Initialize
counter <- 1 ## Initialize
for(y in 1:ncols) {
for (x in 1:nrows) {
z[counter] <- Data[,,i][y,x]
counter <- 1 + counter
}
}
cat(i,"\n")#évolution de la boucle
writeLines(Header, paste0(path,file,i,sortie,ext)) # Ecriture du header dans le fichier de sortie
#Rajouter la table
write.table (z[counter], file=paste0(path,file,i,sortie,ext), row.names=FALSE,col.names=FALSE,append = TRUE)
}
Code : Tout sélectionner
write.table (z[counter], file=paste0(path,file,i,sortie,ext), row.names=FALSE,col.names=FALSE,append = TRUE)
Code : Tout sélectionner
wtite.table( z
Code : Tout sélectionner
Data[,,i] <- as.matrix( paste0(...
Code : Tout sélectionner
Data[,,i][x,y]
Code : Tout sélectionner
Data[x,y,i]
Code : Tout sélectionner
z <- as.vector( read.table( ...
Code : Tout sélectionner
path<-'C:/....../'# chemin d'acces du fichier
file="bio"# Nom de chaque fichier qui sera suivit des nombre 1,2,3,4,5
sortie<-"_modif"
ext<-".asc" #extension des fichiers d'entré
ncols=190# nligne
nrows=220#ncolone
Header <- readLines (paste0(path,file,1,ext), n=6) #lecture du header du premmier fichier
Data<- array(dim<-c(ncols,nrows,23)) #initialise la matrice (190 lignes, 220 colones)
for (i in 1:23) { # boucle
Data <- as.vector (t(read.table (paste0(path,file,i,ext), header=FALSE, skip=6L))) #lecture de la table
cat(i,"\n")# évolution de la boucle
}
writeLines(Header, paste0(path,file,sortie,ext)) # Ecriture du header dans le fichier de sortie
#Rajouter la table grace a append=true
write.table (Data, file=paste0(path,file,sortie,ext), row.names=FALSE,col.names=FALSE,append =T)
#
Code : Tout sélectionner
Header <- ...
Data <- sapply( 1:23, FUN=function( i) {
as.vector( read.table( ...)) })
Code : Tout sélectionner
A <- apply(A, 2, function(x) ifelse(is.na(x), mean(x,na.rm = TRUE), x))
Code : Tout sélectionner
A <- apply(Al1, 2, function(x) ifelse(mean(x), (na.rm = FALSE), x))
Code : Tout sélectionner
all.equal( 0, 1.e-17)
ifelse( 0 == 1.e-17, TRUE, FALSE)
Code : Tout sélectionner
v <- NA
Code : Tout sélectionner
A.na <- is.na( A) # Tableau de logiques avec TRUE pour les cases NA
Al1[A.na] <- NA # Je mets les cases de Al1 correspondant aux 'TRUE' de A à NA
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité