gridsizes <- function(n){
a <- 1:sqrt(n)
a <- a[n %% a == 0]
if(length(a) == 0)
stop("No se ha encontrado ninguna opción")
a <- a[length(a)]
c(a, n / a)
}
gridsizes(50)
gridsizes.alt <- function(n, c1, c2){
a <- 1:(n/2)
a <- a[n %% a == 0]
a <- a[c1 %% a == 0]
b <- n /
Hola,
Varias cosas:
- En la función de Matlab, pasas como argumentos: N y un vector que
tiene C1 en la primera componente y C2 en la segunda.
- ¿En tu función de "R" no lo tines así, sólo tienes declarado que pasas
"N" y con los "..." ¿pasas otras cosas?...
- En tu función "R"
Estimados Usuarios-R:
Estoy convirtiendo un programa en Matlab a R.
El original lo saqué de:
Lai, M., & Poltera, Y. (2009). Lecture with computer exercises: Modelling and
simulating social systems with matlab. Tech. rep., Swiss Federal Institute of
Technology (December 2009). 27.
Ahora estoy