search for: ndf

...fitdist. When I print it, I get the output I expected. However, I need to store only some of it into my DB. And then, because fitdist produces a data frame that includes a lot of info I don't need to store in the DB, I tried making a new data.frame containing only the info I need as follows: ndf = data.frame() for (i in 1:length(m_id_default_res[,1])) { ndf$mid[i] = m_id_default_res$mid[i] ndf$estimate[i] = m_id_default_res$estimate[i] ndf$sd[i] = m_id_default_res$sd[i] ndf$n[i] = m_id_default_res[i] ndf$loglik[i] = m_id_default_res$loglik[i] ndf$aic[i] = m_id_default_res$aic[i...

...rrect' number of events at time t0 = rate of events (lambda) times time (t0) t0*lambda0 t0*lambda1 # generate uncensored data T0 <- rexp(nn, rate=lambda0) T1 <- rexp(nn, rate=lambda1) thedata <- data.frame(Time=c(T0, T1), X=rep(0:1, e=nn), X2=rep(0:1, nn)) # 4 covariate combinations (ndf <- data.frame(Time=t0, X=rep(0:1,e=2), X2=rep(0:1, 2))) # model with 2 effects mod <- coxph(Surv(Time) ~ X + X2, data=thedata) summary(mod) # coefficient of X2 should be 0 # coefficient of X should be log(lambda1/lambda0) log(lambda1/lambda0) predict(mod , newdata=ndf, type="expected&...

...I thought was a data.frame as follows: aaa <- lapply(split(moreinfo,list(moreinfo$m_id),drop = TRUE), fun_m_id) m_id_default_res <- do.call(rbind, aaa) print("==========================================") m_id_default_res print("==========================================") ndf <- m_id_default_res[, c('mid', 'estimate', 'sd', 'loglik', 'aic','bic', 'chisq', 'chisqpvalue', 'chisqdf')] ndf The data in NDF is perfect, exactly what I expected when I print the contents as shown in the last statement ab...

...: Lines <- "a b c d + - + + + + + - + 1 - '+ ' - + + + + N - +" DF <- read.table(textConnection(Lines), header = TRUE) cnames <- colnames(DF) nrow <-length(rownames(DF)) nc <- length(cnames) NDF <- data.frame(matrix(c(rep(0,nc*nrow)),ncol=nc)) for (i in 1:length(cnames)) { NDF[,i] <- sapply(DF[,i],function(x) if (x=="+") {1} else {if (x=="-") {0} else {-1}} ) } colnames(NDF) <- cnames But this is shure one loop too much. Please give me the R way solution.

Dear maintainer, I used bioconductor package, pdInfoBuilder, to make a microarray platform annotation package. I named this package, pd.pdinfo.gpl11164.ndf.txt. This "self-made package" is to be used with oligo package. Prior to using oligo package, I need to install the annotation package, pd.pdinfo.gpl11164.ndf.txt, and cannot just copy it to the library tree. I tried using the install.packages with various arguments, only to fail the...

...n qt(p, df, lower.tail, log.p) : NaNs produced But the result can be found: > pt(-1.60443e+06, 0.1) [1] 0.09999997 If I replace the current method by bisection method in file file src/nmath/qt.c the result is computed fine. int cont=0; do { cont++; nx = lx + (ux - lx)/2.0; if ((pp = pt(nx, ndf, TRUE, FALSE)) > p) { ux = nx; pu = pp; } else { lx = nx; pl = pp; } } while ((ux - lx) / fabs(nx) > accu && cont < 100);

...ux-gnu-library/2.15/ncdf4? Warning in install.packages : installation of package ?ncdf4? had non-zero exit status The downloaded source packages are in ?/tmp/RtmpOnAH2P/downloaded_packages? Thank you, Claire -- View this message in context: http://r.789695.n4.nabble.com/Problem-installing-ndf-library-tp4646986.html Sent from the R help mailing list archive at Nabble.com.

...sometimes I also get a mistake!) ########## My function ############################################# dzieci<-transform(dzieci, zywnosc=0) zywnoscCalosc<- function( jedzenie, sklep, n1, n2, n3, n4, d1, d2, d3, d4 ) { skl <- sklep wynik <- vector() wynik <- jedzenie ndf <- data.frame(nn1=n1,nn2=n2,nn3=n3,nn4=n4) ddf <- data.frame(dd1=d1,dd2=d2,dd3=d3,dd4=d4) for (i in 1:length(n1)){ wekt_n = ndf[i,] wekt_d = ddf[i,] wekt_n_ok = wekt_n[!is.na(wekt_n)] wekt_n_ok = as.numeric(wekt_n_ok) wekt_d_ok = wekt_d[!is.na(wekt_d)]...

...EAU_DEBUGFS_ENTRIES ARRAY_SIZE(nouveau_debugfs_list) +static const struct nouveau_debugfs_files { + const char *name; + const struct file_operations *fops; +} nouveau_debugfs_files[] = {}; + + +static int +nouveau_debugfs_create_file(struct drm_minor *minor, + const struct nouveau_debugfs_files *ndf) +{ + struct drm_info_node *node; + + node = kmalloc(sizeof(*node), GFP_KERNEL); + + if (node == NULL) + return -ENOMEM; + + node->minor = minor; + node->info_ent = (const void *)ndf->fops; + node->dent = debugfs_create_file(ndf->name, S_IRUGO | S_IWUSR, minor->debugfs_root, +...

Hello! I have a function: zywnoscCalosc<- function( jedzenie, n1, n2, n3, n4, d1, d2, d3, d4 ) { ndf <- data.frame(nn1=n1,nn2=n2,nn3=n3,nn4=n4) ddf <- data.frame(dd1=d1,dd2=d2,dd3=d3,dd4=d4) for (i in 1:length(n1)){ wekt_n = ndf[i,] wekt_n_ok = wekt_n[!is.na(wekt_n)] dl_n = length(wekt_n_ok) wynik = (1*wekt_n_ok)/(1*dl_n) } } and I get an error like this: Error in 1 * wekt_n_ok : non-nu...

How can I extract the adjusted R^2 value from an ols object (using rms package)? library(rms) x <- rnorm(10) y <- x + rnorm(10) ols1 <- ols(y ~ x) Typing "ols1" displays adjusted R^2 among other things, but how can I assign it to a variable? I tried str(ols1) but couldn't see where to go from there. Thanks, Mark Seeto

...ich offset was defined in the formula, an error occurs predict( c1f.glm, newdata = nd ) Error in model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) : variable lengths differ (found for 'offset(q25)') even if a column for offset is included in newdata, ndf <- cbind( nd, "offset(q25)" = rep( qlogis(0.25), length(cc) ) ) predict( c1f.glm, newdata = ndf ) Error in model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) : variable lengths differ (found for 'offset(q25)') unless there is a special way...

...rs/gpu/drm/nouveau/nouveau_debugfs.c index 3d0dc19..135e6c8 100644 --- a/drivers/gpu/drm/nouveau/nouveau_debugfs.c +++ b/drivers/gpu/drm/nouveau/nouveau_debugfs.c @@ -204,7 +204,7 @@ nouveau_debugfs_create_file(struct drm_minor *minor, node->minor = minor; node->info_ent = (const void *)ndf->fops; - node->dent = debugfs_create_file(ndf->name, S_IRUGO | S_IWUSR, + node->dent = debugfs_create_file(ndf->name, 0644, minor->debugfs_root, node, ndf->fops); if (!node->dent) { kfree(node); diff --git a/drivers/gpu/drm/nouveau/nouveau_drm.c b/drivers/gpu/drm...

...to change the legend. But recently I was using R to perform Discriminant Function analysis, and I want to change the group names also add a title to the figure, but I am not sure how to make it work, could you please help me with my problem? My code is: library(MASS) da.anti<-lda(type~ct+rd+ht+ndf+adf+hc+ls+cs) da.anti par(family="serif") plot(da.anti) I appreciate your help. Thank you. Xi Chen Graduate Teaching Scholar Biological Science Department Texas Tech University 2500 Broadway, Lubbock TX 79410 Phone: 806-319-1513

...ot;) xd <- read.table(dataset, header=T,as.is=T) xd <- read.table(dataset,header=T, as.is=T, row.names=as.character(1:nrow(xd))) cat("DONE Reading in data", "\n") attach(xd) xd <- xd[, -c(charmatch(paste(resp), names(xd)))] assign(resp, get(resp)) ndf <- as.data.frame(get(resp)) names(ndf) <- "addcolx" xd <- data.frame(xd, ndf) names(xd)[charmatch("addcolx", names(xd))] <- resp cat("Lm Model", "\n") lmexp <- formula(paste(resp, " ~ ", pickedlist,sep=""...

...ftp-hpa-0.34/tftpd/tftpd.c 2003-05-17 21:17:41.000000000 +0200 @@ -35,6 +35,25 @@ * SUCH DAMAGE. */ +/* __getpwent() - This function has originally been copied from the + * file __getpwent.c which is part of the libc-8086/pwd package for ELKS, + * Copyright (C) 1995, 1996 Nat Friedman <ndf at linux.mit.edu>. + * + * The present code has been copied from busybox-0.60.5. + * + * The code was added to this file by Jules Colding <JuBColding at yorkref.com>. + */ + +/* getpwnam() - This function has originally been copied from the + * file getpwnam.c which is part of the l...

I made a little changes in this series: 1. merge the two last patches together 2. unify the private data interface with the drm debugfs one now it should be very obvious for a new dev on how to add new files to debugfs and how to get access to the nouveau structs Karol Herbst (5): debugfs: add infrastructure to add files with other fops than only read debugfs: rename functions to

...ly ran a field study looking for differences in sugarbeet cultivar tolerance to a specific herbicide. The study was set up so that 37 cultivars were treated with 4 different applications of the herbicide (37*4 factorial). In doing so, we found that the interaction effect was highly insignificant (ndf=108, ddf=144, F=0.28, p=1.0000). Now my problem is this... the study takes up an enormous amount of time, energy, and money (as you could guess with 37 cultivars in a field study). We need to determine weather it is worth the effort to repeat the study this summer (practically, it is not, but our...

Hello, does anybody know the procedure how to write a function to generate the power of the two sample F-Test ? Would be glad if somebody can help me. S.Zank [[alternative HTML version deleted]]

...OTOCOL HTTP/1.1 QUERY_STRING CONTENT_LENGTH 137 HTTP_ACCEPT_CHARSET ISO-8859-1,utf-8;q=0.7,*;q=0.7 HTTP_USER_AGENT Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4 HTTP_CONNECTION keep-alive SERVER_NAME lists.digium.com REMOTE_ADDR 198.54.202.226 HTTP_VIA 1.1 ndf-cache2 (NetCache NetApp/5.5R6D36), 1.1 rba-cache1 (NetCache NetApp/5.5R6D27) PATH_TRANSLATED /var/mailman/html/asterisk-users SERVER_PORT 80 SERVER_ADDR 69.16.138.164 DOCUMENT_ROOT /var/mailman/html PYTHONPATH /var/mailman SCRIPT_FILENAME /var/mailman/cgi-bin/confirm SERVER_ADMIN root@localh...