modified c.comb.R and c.revseq.R in R (c009e12e) · Commits · Chaos / chaos.tools

R/c.comb.R

+6 −12

Original line number	Diff line number	Diff line
		@@ -7,20 +7,17 @@ c.comb_dt <- function(
		{
		if(rep == 2)
		{
		if(inter == "inter")
		{
		if(inter == "inter"){
		c(...) %>%
		combn(2) %>%
		t() %>%
		as.data.table()
		}else if(inter == "intra")
		{
		}else if(inter == "intra"){
		data.table(
		V1 = c(...),
		V2 = c(...)
		)
		}else if(inter == "half")
		{
		}else if(inter == "half"){
		rbind(
		c(...) %>%
		combn(2) %>%
		@@ -31,8 +28,7 @@ c.comb_dt <- function(
		V2 = c(...)
		)
		)
		}else if(inter == "full")
		{
		}else if(inter == "full"){
		data.table(
		c(...),
		c(...)
		@@ -42,8 +38,7 @@ c.comb_dt <- function(
		{
		print("inter, intra, half and full are accepted")
		}
		}else
		{
		}else{
		list(...) %>%
		rep(rep) %>%
		data.frame() %>%
		@@ -53,8 +48,7 @@ c.comb_dt <- function(
		) %>%
		.[]
		}
		}else
		{
		}else{
		sapply(
		list(...),
		function(x){rep(x, length.out = max(sapply(list(...), length)))}

+1 −1