Displaying 3 results from an estimated 3 matches for "surface_n".
2013 Dec 05
3
Ampliar data.frame con datos del propio data.frame
...por ejemplo, superficie_siguiente, que indique cual será la superficie de
la siguiente intersección. Cuando la "siguiente" es igual a 0 significa que
no hay nuevas intersecciones y se pondría en superficie_siguiente, por
ejemplo NA.
Lo he hecho con el siguiente bucle, pero es lentísimo.
surface_n <- function(p,p.s,n) {
if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <-
p[p$id==p[n,]$siguiente,]$superficie
return(p.s)
}
p.s <- cbind(p,superficie_siguiente = rep(NA,dim(p)[1]))
for(n in 1:dim(p)[1]) {
p.s <- surface_n(p,p.s,n)
}
¿Alguna idea de cómo se puede hacer es...
2013 Dec 05
1
Ampliar data.frame con datos del propio data.frame
...> > la siguiente intersección. Cuando la "siguiente" es igual a 0 significa
> que
> > no hay nuevas intersecciones y se pondría en superficie_siguiente, por
> > ejemplo NA.
> >
> > Lo he hecho con el siguiente bucle, pero es lentísimo.
> >
> > surface_n <- function(p,p.s,n) {
> > if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <-
> > p[p$id==p[n,]$siguiente,]$superficie
> > return(p.s)
> > }
> >
> > p.s <- cbind(p,superficie_siguiente = rep(NA,dim(p)[1]))
> >
> > for(n in 1:dim(p)[...
2013 Dec 05
0
Ampliar data.frame con datos del propio data.frame
..., que indique cual será la superficie de
> la siguiente intersección. Cuando la "siguiente" es igual a 0 significa que
> no hay nuevas intersecciones y se pondría en superficie_siguiente, por
> ejemplo NA.
>
> Lo he hecho con el siguiente bucle, pero es lentísimo.
>
> surface_n <- function(p,p.s,n) {
> if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <-
> p[p$id==p[n,]$siguiente,]$superficie
> return(p.s)
> }
>
> p.s <- cbind(p,superficie_siguiente = rep(NA,dim(p)[1]))
>
> for(n in 1:dim(p)[1]) {
> p.s <- surface_n(p,p.s,n...