search for: symnum

Hello, I am trying to export the results from symnum() while maintain their readability. I tried using sink to text file and also copying and pasting but the results end up looking like this: > symnum(c5.s) bC bED bEN bLP bLS bPA bPD bPR p bbContag 1 bbED + 1 bbENN_MN + B 1 bbLPI , , , 1 bbLSI + B B , 1 bb...

Hello, Is there a way to put multiple data.frames or objects into a single .csv ? I know I can use sink() to do this for a text file. Is there way to do it for a .csv? e.g. for sink() sink("c5.k.s.p.92.LN.sl.vs.mean.txt") symnum(c5.k.92.LN.sl.vs.mean) symnum(c5.s.92.LN.sl.vs.mean) symnum(c5.p.92.LN.sl.vs.mean) sink() Could I put these all into a single .csv, in a similar format to sink()? Thanks, Michael Just [[alternative HTML version deleted]]

...the solution is right in front of me, but I can't find anything on how to convert a class of 'noquote' to 'matrix'. I've tried as.matrix and I've tried coercing it by 'class(x)<-matrix', but of course that didn't work. I've been using the function 'symnum' which returns an object of class 'noquote'. Here is an example from the 'symnum' help page: pval <- rev(sort(c(outer(1:6, 10^-(1:3))))) symp <- symnum(pval, corr=FALSE, cutpoints = c(0, .001,.01,.05, .1, 1), symbols = c(&quot...

...quot;resid", "group")) : attempt to set an attribute on NULL and > attach( rt ) Error in attach(rt) : attach only works for lists and data frames the code that I use to build the matrix is : # break up the classes into cats and test for departure from zero signif <- symnum(fit3sls[[2]]$residuals, corr = FALSE, na = FALSE, cutpoints = c(-5,.1,.2,.3,.4, 5), symbols = c("A","B","C","D","E")) rt <- noquote( cbind( fit3sls[[2]]$residuals, signif ) ) colnames(table) <- c("resid","group"...

...1:(length(symbols)-1)) { assign(symbols[line], get.hist.quote(instrument = symbols[line], start = "2005-09-01", quote = "Close")) } # this results in objects ibm, dd... with the last symbol skipped mat <- cbind(symbols) # this is the problem (cor_mat <- cor(mat)) symnum(cor_mat) """ How can I pass a list of the objects to cbind()? As written cbind gets only the names of the objects and binds the names not the objects. Thanks in advance, jab -- John Bollinger, CFA, CMT www.BollingerBands.com If you advance far enough, you arrive at the begi...

Dear List, I have a large (1600*1600) matrix generated with symnum, that I am using to eyeball the structure of a dataset. I have abbreviated the column names with the abbr.colnames option. One way to get an even more compact view of the matrix would be to display the column names rotated by 90 degrees. Any pointers on how to do this would be most useful. Any...

Hi, I've had a look the bug list and searched though the R documentation, email lists etc. but didn't see anything on this: when I do: summary(species.glm1, correlation = TRUE) I get a correlation matrix like this: Correlation of Coefficients: ( p I(H C pH * 1 I(pH^2) * B 1 Ca . . 1 I(Ca^2) . . B attr(,"legend") [1] 0 ` ' 0.3 `.'

...pch = 21, bg = c("red", "green3", "blue")[unclass(iris$Species)], lower.panel=panel.cor, splitvar=iris$Species) ------------ #here the code I tried to implement to show the significance levels test <- cor.test(x, y, ,use="complete.obs") Signif <- symnum(test$p.value, corr = FALSE, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) -- View this message in context: http://www.nabble.com/display-p-values--and-significa...

...lib/atexit.c:215 #4 0x000077ea83cdfab3 in exit (status=19) at /usr/src/lib/libc/stdlib/exit.c:60 #5 0x0000000000414fe1 in ?? () #6 0x000000000041bc19 in ?? () #7 <signal handler called> #8 0x00007f7ef0405cd2 in _rtld_find_symdef (flags=1, defobj_out=0x7f7fff901d80, refobj=0x77ea83fef400, symnum=881) at /usr/src/libexec/ld.elf_so/symbol.c:343 #9 _rtld_find_plt_symdef (symnum=881, obj=obj at entry=0x77ea83fef400, defobj=defobj at entry=0x7f7fff901d80, imm=imm at entry=true) at /usr/src/libexec/ld.elf_so/symbol.c:391 #10 0x00007f7ef0400b34 in _rtld_relocate_plt_object (tp=<synthetic poin...

R-folks, Is there a function, like aggregate, that allows users to bin values? I've got to break down a data frame into classes of 5cm (or something like it), and I only know how to do it using code like, signif <- symnum( stems$dbh, corr = FALSE, na = FALSE, cutpoints = c(0,10,20,30,40,999), symbols = c(0,10,20,30,40) ) rt <- data.frame( stems$expf, signif = ordered( signif, levels = c(0,10,20,30,40) ) st <- aggrega...

Hi all, Does anyone know a way to change the significant stars in mtable (package memisc)? The default is Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1, however I need it to be Signif. codes: 0 '***' 0.01 '**' 0.05 '*' 0.1 ' ' 1 Kind regards, Erich [[alternative HTML version deleted]]

...uot;); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) r <- abs(cor(x, y)) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep="") if(missing(cex.cor)) cex <- 0.5/strwidth(txt) test <- cor.test(x,y) # borrowed from printCoefmat Signif <- symnum(test$p.value, corr = FALSE, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) text(0.5, 0.5, paste(txt,Signif), cex = 2) } #correlation pair plot pairs(df, labels=c(expression(alpha),"te...

..."V.2", "V.3", "V.4", "V.5"))) Specifically, I am looking to see which pairs of variables are correlated. For continuos data, I would use cor() and cov() to generate the correlation matrix and the variance-covariance matrix, which I would then visualize with symnum() or image(). However, it is not clear to me whether this approach is suitable for categorical data of this kind. Since I am new to R, I would greatly appreciate any input on how to approach this task and on efficient visualization of the results. Many thanks in advance, Lara [[alternative H...

...zero. What is the best way to generate the groups. I've generated a matrix that contains the residuals and groups, but the values all have quotes around them. 1) how do I get rid of the quotes? 2) is this an acceptable method for testing for model bias? # this is the test code... signif <- symnum(fit3sls[[2]]$residuals, corr = FALSE, na = FALSE, cutpoints = c(-5,.1,.2,.3,.4, 5), symbols = c("A","B","C","D","E")) table <- cbind( fit3sls[[2]]$residuals, signif ) colnames(table) <- c("resid","group") # pri...

Dear r-help users, I am using Sweave and Latex to create tables with output from several statistical test. As an example: I have a grouping variable "group" with two levels ("x" and "y") which I compare on variables ("a" and "b"). I have created a table in which means, standard deviations, and the statistic and p.value resulting from a t.test is

I was hoping that there might be some way to attach significance code like the ones from summary.lm to a dataframe. Anyone know how to do something like that. Here is the function i'd like to add that functionality to: add1.coef <- function(model,scope,test="F",p.value=1,order.by.p=FALSE) { num <- length(model$coefficients) add <- add1(model,scope,test=test) sub <-

....2.tgz There's also a version split in two for floppies and a patch file if you prefer that. For the R Core Team, Peter D. Here is the relevant part of the NEWS file: CHANGES IN R VERSION 0.64.2 NEW FEATURES o new target for R installation testing : make strict-tests. o symnum(x) now nicely codes logical x. o convolve() has a new type = c("circular", "open", "filter") argument allowing more than the only circular convolution. o par(xpd) now has three settings: FALSE (clip to plot region), TRUE (clip to figure region), or NA (cli...

....2.tgz There's also a version split in two for floppies and a patch file if you prefer that. For the R Core Team, Peter D. Here is the relevant part of the NEWS file: CHANGES IN R VERSION 0.64.2 NEW FEATURES o new target for R installation testing : make strict-tests. o symnum(x) now nicely codes logical x. o convolve() has a new type = c("circular", "open", "filter") argument allowing more than the only circular convolution. o par(xpd) now has three settings: FALSE (clip to plot region), TRUE (clip to figure region), or NA (cli...

...c(0, 1, 0, 1)) r <- abs(cor(x, y)) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep="") if(missing(cex.cor)) cex <- 0.8/strwidth(txt) test <- cor.test(x,y) # borrowed from printCoefmat Signif <- symnum(test$p.value, corr = FALSE, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) text(0.5, 0.5, txt, cex = cex * r) text(.8, .8, Signif, cex=cex, col=...

...t; outerID.picky <- function(x,y) { + nF <- length(formals(identical)) - 2 + do.call("outerID", c(list(x, y), as.list(rep(FALSE, nF)))) + } > oldR <- !exists("getRversion") || getRversion() < "3.0.0" ## << FIXME: 3.0.0 is a wild guess > symnum(id.z <- outerID.picky(z,z)) ## == Diagonal matrix [newer versions of R] [1,] | . . . . . . . . . . . [2,] . | . . . . . . . . . . [3,] . . | . . . . . . . . . [4,] . . . | . . . . . . . . [5,] . . . . | . . . . . . . [6,] . . . . . | . . . . . . [7,] . . . ....