Displaying 2 results from an estimated 2 matches for "metrique".
2001 Nov 05
1
Problem to transfer Splus functions
...#############
acp <- function(x, wt = rep(1/nrow(x), nrow(x)), d = rep(1, ncol(x)),
ctr = T,
reduc = T, contav = F, method = "acp", tol = 10^(-8))
{
#============================================================
# Methode d'analyse en composantes principales
# avec des metriques diagonales:
# wt vecteur des poids
# d vecteurs des elements diagonaux de la metrique
# si ctr=T l'acp est centree
# si reduc=T l'acp est reduite
# Method = "acp" or "afc" or "afcm"
# method that produced the ca...
2010 Oct 06
1
R getting slower until it breaks...
...99999
nnom<-nom[NV[4]]
writeRaster(newRaster, filename=nnom,datatype="INT1U",format="GTiff",overwrite=FALSE)
aaa<-2
}
#################################################################################
## Fonction 2 - Creation de fonction convertissant les coordonnee metrique en coordonnee pixels #####
latlong_to_pixels<- function(Coord, facteur, meterWidth=NULL) { #Coord doit ?tre c(x,y)
newX <- Coord[1] / facteur
newY <- Coord[2] / facteur
if(!is.null(meterWidth)){
newWidth <- meterWidth / facteur
return(c(newX,newY,newWidth))
}
return...