Hi!
I want to use one method "combinations" from "gtools" package but in my code
I must use also "dprep" method where is method "combinations" too. Mayby I
show you result my help function:
Help on topic 'combinations' was found in the following packages:
Package Library
dprep /usr/lib64/R/library
gtools /usr/lib64/R/library
Choose one
1: Constructing distinct permutations {dprep}
2: Enumerate the Combinations or Permutations of the Elements of a Vector
{gtools}
If I want to use "combination" method I use error:
> combinations(3,2,letters[1:3])
Error in combinations(3, 2, letters[1:3]) :
unused argument(s) (2, letters[1:3])
Do you have any idea?
I try code similar to C++ gtools::combinations but in my opinion it's
wrong way.
If my explanation is't clear to you let me show my all attempts:
> library(gtools)
> combinations(3,2,letters[1:3])
[,1] [,2]
[1,] "a" "b"
[2,] "a" "c"
[3,] "b" "c"
> library(dprep)
Loading required package: MASS
Loading required package: nnet
Loading required package: lattice
Loading required package: class
Attaching package: 'dprep'
The following object(s) are masked from package:gtools :
combinations
> combinations(3,2,letters[1:3])
Error in combinations(3, 2, letters[1:3]) :
unused argument(s) (2, letters[1:3])
> gtools::combinations
function (n, r, v = 1:n, set = TRUE, repeats.allowed = FALSE)
{
if (mode(n) != "numeric" || length(n) != 1 || n < 1 || (n%%1) !=
0)
stop("bad value of n")
if (mode(r) != "numeric" || length(r) != 1 || r < 1 || (r%%1) !=
0)
stop("bad value of r")
if (!is.atomic(v) || length(v) < n)
stop("v is either non-atomic or too short")
if ((r > n) & repeats.allowed == FALSE)
stop("r > n and repeats.allowed=FALSE")
if (set) {
v <- unique(sort(v))
if (length(v) < n)
stop("too few different elements")
}
v0 <- vector(mode(v), 0)
if (repeats.allowed)
sub <- function(n, r, v) {
if (r == 0)
v0
else if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else rbind(cbind(v[1], Recall(n, r - 1, v)), Recall(n -
1, r, v[-1]))
}
else sub <- function(n, r, v) {
if (r == 0)
v0
else if (r == 1)
matrix(v, n, 1)
else if (r == n)
matrix(v, 1, n)
else rbind(cbind(v[1], Recall(n - 1, r - 1, v[-1])),
Recall(n - 1, r, v[-1]))
}
sub(n, r, v[1:n])
}
<environment: namespace:gtools>
> combinations(3,2,letters[1:3]) ### what I should do to
> start working "combinations"?
Error in combinations(3, 2, letters[1:3]) :
unused argument(s) (2, letters[1:3])
--
View this message in context:
http://www.nabble.com/Two-packages-in-one-method-tp25319739p25319739.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
