search for: 12mo

...bers which are factors, or stringsAsFactors=TRUE), or maybe there is some other method I could use. Here is an example: > summary(lor.Emp) EmploymentLength LayoffCause Log Odds Ratio Std. Error z value Pr(>|z|) 1 <1Mo:1-3Mo Closure -0.04082199 0.5143769 -0.07936203 0.468372334 2 1-3Mo:3-12Mo Closure 0.02353050 0.2782868 0.08455486 0.466307643 3 3-12Mo:1-2Yr Closure 0.04904020 0.2327390 0.21070895 0.416557193 4 1-2Yr:2-5Yr Closure -0.07555132 0.2468528 -0.30605823 0.379780157 5 2-5Yr:>5Yr Closure -0.26157903 0.2943756 -0.88858949 0.187111872 6 <1Mo:1-3Mo Replaced -0.19415601 0.317...

...7 , , Sex = Male Eye Hair Brown Blue Hazel Black 32 11 10 Brown 53 50 25 Red 10 10 7 > On the other hand, aaply() does work as I expect, with an array of size 2 x C x strata > library(vcd) > fun2way(Employment[,,1]) <1Mo 1-3Mo 3-12Mo 1-2Yr 2-5Yr 8 35 70 62 56 > fun2way(Employment[,,2]) <1Mo 1-3Mo 3-12Mo 1-2Yr 2-5Yr 40 85 181 85 118 > > aaply(Employment, 3, fun2way) LayoffCause <1Mo 1-3Mo 3-12Mo 1-2Yr 2-5Yr Closure 8 35 70 62 56 Replaced...

...rather than the expanded value. The issue occurs in a function I've been writing. The problematic part looks like this: # "fund" is a matrix of open, high, low, close, and volume prices returns <- function(fund) { p_12ago = as.vector(fund[nrow(fund)-252,6]) perc_diff_12mo = ((p_last - p_12ago) / p_last)*100 #This is the line that's giving me problems: funds=c(as.character(fund)) mo12=c(perc_diff_12mo) final_results=data.frame(funds,mo12) return(final_results) } I can't figure out how to insert the original argument from the function (i...

Thanks, Nux!. But a few hours late. I just purchased: http://www.ebay.com/itm/ZOTAC-ZBOX-NANO-Plus-Mini-PC-ZBOXNANO-AD12-PLUS-2GB-320GB-with-Power-Supply-56/382042194064?_trksid=p2045573.c100033.m2042&_trkparms=aid%3D111001%26algo%3DREC.SEED%26ao%3D1%26asc%3D41376%26meid%3Deae770f22d504a9b8366eb0c02dd20d6%26pid%3D100033%26rk%3D7%26rkt%3D8%26sd%3D152356229748 Zotac has been in the mini/nano