I am having a problem with output formatting in my program. The cat()
function, when combined with the conversion to binary, produces spaces
between each of the digits. I have included the code, and a snippet of the
output. The code has NOT been cleaned up yet, I am just hunting for correct
functionality. Thanks.

input <- read.csv('input.csv', header=FALSE)

run_total <- NROW(input)

run <- 1
xpointer <- 1
xxpointer <- 2
ypointer <- 1
yypointer <- 2

file.remove("generated.txt")
sink("generated.txt", append = TRUE)
cat(rev(as.integer(intToBits(as.integer(input[xpointer,1]))[1:17])),
collapse="")
cat(",")
cat(input[ypointer,2])
cat("\n")
while(run < run_total)
{
        x1 <- input[xpointer,1]
        x2 <- input[xxpointer,1]
        y1 <- input[ypointer,2]
        y2 <- input[yypointer,2]

        num_segmentsy <- (y2-y1)
        num_segmentsx <- (abs(x2-x1))
        num_segments <- num_segmentsx
        ystep <- num_segmentsy/num_segmentsx
        xstep <- 1
        num_points <- num_segments - 1

        created <- 0
        ypoint <- y1
        xpoint <- x1
        while(created < num_points)
        {
                ypoint <- ypoint + ystep
                xpoint <- xpoint + xstep
                cat(rev(as.integer(intToBits(as.integer(xpoint))[1:17])),
collapse="")
                cat(",")
                cat(ypoint)
                cat("\n")

                created <- created + 1
        }

        cat(rev(as.integer(intToBits(as.integer(x2))[1:17])), collapse="")
        cat(",")
        cat(y2)
        cat("\n")
        xpointer <- xpointer + 1
        xxpointer <- xxpointer + 1
        ypointer <- ypointer + 1
        yypointer <- yypointer + 1
        run <- run +1
}
sink()






0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ,0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 ,0.1
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 ,0.2
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 ,0.3
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 ,0.4
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 ,0.5
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 ,0.6
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 ,0.7
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 ,0.8
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 ,0.9
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 ,1


Thanks so much, in advance.

-- 
Jason Thibodeau

	[[alternative HTML version deleted]]

