R. Same command gives different plots. Variable vs. Character string -

-

i lied. aren't quite same commands. don't see how different.

i made function sales.deriv. it's definition @ bottom of page. function finds derivative of sales data given dataframe , plots it. (they're plenty of inefficiencies in how coded it. feel free comment on them cleaning them not focus here.)

command one,

> sales.deriv(trans.df=subset(trans, week < 27  & week > 8 & day == "wednesday"))

returns plot one:

plot 1

command two,

> day <- "wednesday" > sales.deriv(trans.df=subset(trans, week < 27  & week > 8 & day == day))

returns plot two:

plot 2

as can see, plots different — noticeably in number of relative peaks before 11. defining day <- "wednesday", though, seems me commands should identical. what's going on here?

function definition:

sales.deriv <- function(trans.df, plot=true, xmin=7, xmax=18, ymin=0, ymax=150, title = "rate of revenue", pch=1, col="black", n=50, cex=1) { trans$net.sales[is.na(trans$net.sales)] <- 0 trans.time <- trans.df[order(trans.df$time.dec),] fake.bins <- ddply(trans.df[c("date","net.sales")], .(date), summarize, net.sales = sum(net.sales)) trans.time$cum.sum <- cumsum(trans.time$net.sales) / nrow(fake.bins) time.fit2 <- lm(cum.sum ~ poly(time.dec, n, raw=t), data=subset(trans.time, hour >= 6 | time.dec<20)) sales.rate <- data.frame(time.dec=seq(from=xmin, to=xmax, by=.0333)) sales.rate$cum.sum <- predict(time.fit2, sales.rate) dydx <- diff(sales.rate$cum.sum)/diff(sales.rate$time.dec) sales.rate$dydx <- c(0,dydx) if (!plot) { points(dydx~time.dec, data=sales.rate, col=col, xlim=c(xmin,xmax), ylim=c(ymin,ymax), main=title, cex=cex, pch=pch)  } else { plot(dydx~time.dec, data=sales.rate, col=col, xlim=c(xmin,xmax), ylim=c(ymin,ymax), main=title, pch=pch, cex=cex, xlab="time", ylab="revenue per hour", xaxt="n") axis(1, at=seq(from=xmin, to=xmax, by=1))}}


Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more