Commit 78a92fca authored by Chaos's avatar Chaos
Browse files

change the default gap size of seq_slice

parent 518ad765

R/seq_slice.r

+1 −1
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ seq_slice <- function( 
				end,

				slice_size = NA,

				slice_number = NA,

				gap = -1

				gap = 0

){

	if(!is.na(slice_number) & is.na(slice_size)){

		slice_size <- ceiling((end - start + 1 - gap * (slice_number - 1))/slice_number)

CRA Git | Maintained and supported by SUSTech CRA and CCSE