Skip to content
Prev 245764 / 398506 Next

need help with data management

On Sat, Dec 25, 2010 at 8:08 AM, analyst41 at hotmail.com
<analyst41 at hotmail.com> wrote:
This isn't quite what you asked but it seems more suitable to what you
need.  Instead of using long form data we transform it to wide form
with one client per column.  Try copying this from this post and
pasting it into your R session:

Lines <- "323232   11/1/2010 22
323232   11/2/2010 0
323232   11/3/2010 missing
121212   11/10/2010 32
121212    11/11/2010 15"

library(zoo)
library(chron)

# read in. split = 1 converts to wide form
# can use "myfile.dat" in place of textConnection(Lines) for real data
z <- read.zoo(textConnection(Lines), split = 1, index = 2, FUN = chron,
      na.strings = "missing")
# d is matrix with one row per date and one col per client
d <- coredata(z)

# just use last point as our forecast for next 3 dates
naive.forecast <- function(x) rep(tail(x, 1), 3)
pred <- apply(d, 2, naive.forecast)

# put predictions together with the data
rbind(d, pred)


For the data you showed this gives:
121212 323232
[1,]     NA     22
[2,]     NA      0
[3,]     NA     NA
[4,]     32     NA
[5,]     15     NA
[6,]     15     NA
[7,]     15     NA
[8,]     15     NA