search for: pd

Dear all, I am sending a patch for extending pdf device to embed popup text and web links. I implemented this feature by using annotation object, a interactive feature of pdf. You can see a sample code for using this feature in the following, and sample pdf is in http://www.okada.jp.org/RWiki/?plugin=attach&pcmd=open&file=sample.pdf&...

...NH1 NH 180 10 0 640 NH03 NH1 NH 180 10 0 641 NH03 NH1 NH 180 10 0 642 NH03 NH1 NH 180 10 0 643 NH03 NH1 NH 180 10 0 644 NH03 NH1 NH 180 10 0 645 NH03 NH1 NH 180 10 0 646 NH03 NH1 NH 180 10 0 647 NH03 NH1 NH 180 10 0 648 NH03 NH1 NH 180 10 0 649 NH03 NH1 NH 180 10 0 650 NH03 NH1 NH 180 10 0 651 P01 PD1 PD 180 10 1 652 P01 PD1 PD 180 10 1 653 P01 PD1 PD 180 10 1 654 P01 PD1 PD 180 10 1 655 P01 PD1 PD 180 10 1 656 P01 PD1 PD 180 10 1 657 P01 PD1 PD 180 10 1 658 P01 PD1 PD 180 10 1 659 P01 PD1 PD 180 10 1 660 P01 PD1 PD 180 10 1 661 P01 PD1 PD 180 10 1 662 P01 PD1 PD 180 10 1 663 P01 PD1 PD 180 10...

The function addmargins() adds margins to a table, but returns a matrix. But even after converted to a table the print.zero="." option of print.table() does not work: > x <- sample( 1:7, 20, replace=T ) > y <- sample( 1:7, 20, replace=T ) > tt <- table( x, y ) > tx <- as.table( addmargins( table( x, y ) ) ) > print( tt, zero.print="." ) y x 1 2

The function addmargins() adds margins to a table, but returns a matrix. But even after converted to a table the print.zero="." option of print.table() does not work: > x <- sample( 1:7, 20, replace=T ) > y <- sample( 1:7, 20, replace=T ) > tt <- table( x, y ) > tx <- as.table( addmargins( table( x, y ) ) ) > print( tt, zero.print="." ) y x 1 2

...ks a lot for your help. Maomao ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > p<-optim(c(0,0,0), f, method ="BFGS", hessian =T, y=y,X=X,W=W) There were 31 warnings (use warnings() to see them) > warnings() Warning messages: 1: In log(det(I_N - pd * wd - po * wo - pw * ww)) : NaNs produced 2: In log(det(I_N - pd * wd - po * wo - pw * ww)) : NaNs produced 3: In log(det(I_N - pd * wd - po * wo - pw * ww)) : NaNs produced 4: In log(det(I_N - pd * wd - po * wo - pw * ww)) : NaNs produced 5: In log(det(I_N - pd * wd - po * wo - pw * ww)) : Na...

...166 77 77 1.847458 59 28 Py LJPy01 6.00 132 51 91 1.119048 84 29 Py LJPy01 6.80 108 45 27 1.814815 27 30 Py LJPy01 6.20 115 48 70 1.765957 47 31 Py LJPy01 8.00 168 80 132 2.036364 111 32 Pd CYPd01 6.70 138 57 23 1.555556 9 33 Pd CYPd01 6.80 121 46 53 1.973684 38 34 Pd CYPd01 5.90 114 52 60 1.250000 12 35 Pd CYPd01 5.20 119 53 53 1.432432 37 36 Pd CYPd01 7.60 118 46 63 2.000...

Hi all After posting what follows, Duncan Murdoch suggested perhaps a bug in formatC, or an error on documentation. Any comments? In particular, bug, error or not, any ideas about how I can consistently get two significant figures to print? P. ---------- Original Message ---------- Hi all I am not a C programmer, but I am trying to understand formatC to get consistent printing of

...nd the boxes filled according to which species it is belonging to. But, that is a definitely tedious work. I followed the tutorials in the ggplot2 website. But, I have not found any way to ease this work. I am really thirsting for an automatic approach to plot the numeric variables one by one in a PDF file, assigning the variable name as the y label. Can anyone share any brilliant scripts with me. I think it must be helpful to others who have little programming experience like me. the code I used to make boxplot on (dataframe: All, group variable: species and popluation, and numeric variable:...

...ser and I am moving my first steps in R. I am dealing with a silly issue concerning looping over variables. I read previous posts on similar topics in the R help archive, but I did not find a solution. Here is my case: I run a simple bivariate linear regression saving the output in objects called: pd.memb.0, pd.memb.1, pd.memb.2, pd.memb.3 pd.memb.0 <- lm(E.fs.memb ~ M.fs.memb, data, subset = (tag2 == 1)) pd.memb.1 <- lm(E.fs.memb ~ M.fs.memb, data, subset = (M.fs.memb <= quantile(M.fs.memb, .25) & tag2 == 1)) pd.memb.2 <- lm(E.fs.memb ~ M.fs.memb, data, subset = (M.fs.memb &gt...

Dear All: Using the Excel formula below I am able to estimate daily variance(Daily VarPD)for PD,but I can't figure out how to estimate the Weekly variance for PD. Any hints? Daily VarPD = (PD * (1 - TD))/TD + VarTD * ((PD*(1-TD)+ PD^2*TD))/TD^3 WK TD VARTD PD Daily VarPD 28 0.014735 0.0000449 0 0 28 0.012421 0.0000449 0 0 28 0.014396 0.0000449 71 7005 28 0.01489...

In a Box and Whisker plot, I thought that when there are outliers both abov= e and below the whiskers, then the whiskers should both be the same length = (plus or minus 1.5 times the inter-quartile range). If you look at the plot for SilwoodWeather on p.155 of The R Book you will = see that for November (month =3D 11) the upper whisker is shorter than the = lower, while for other months with

...<- data.frame(id = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20), ead = c(9483.686,50000,6843.4968,10509.37125,21297.8905,50000,706152.8354, 62670.5625, 687.801995,50641.4875,59227.125,43818.5778,52887.72534,601788.7937, 56813.14859,4012356.056,1419501.179,210853.4743,749961,6599.0862), pd = c(0.0191,0.0050,0.0298,0.0449,0.0442,0.0479,0.0007,0.0203,0.0431,0.0069, 0.0122,0.0022,0.0016,0.0082,0.0109,0.0008,0.0142,0.0171,0.0276,0.0178), lgd = c(0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45,0.45, 0.45,0.45,0.45,0.45)) param <- data.frame(alpha = 0.99, siz...

...ad, on suggestion of BDR ..) I said on vaguely related topic: MM> There's another long-standing MM> UseMethod / NextMethod / Dispatch problem that I've never traced/solved.. MM> MM> Look at the $RHOME/tests/mode-methods.R file ! Peter Dalgaard already remarked : PD> ..i.e. this: PD> abc <- function(x, ...) { PD> if (is.null(class(x))) class(x) <- data.class(x) PD> UseMethod("abc") PD> } PD> PD> will dispatch on the data class in S but not in R. PD> PD> This puzzles me, because normally you can'...

Full_Name: joerg van den hoff Version: 1.9.1 OS: MacOS and SunOS Submission from: (NULL) (149.220.4.88) follow up to ID 7166. something like approx(c(1,2),c(NA,NA),1.5,rule=2) crashes 1.9.1 on both systems (MacOS 10.3.5.: bus error, SunOS 5.9: segmentation fault) even if xout is within given x range (as in example above) where rule=2 seems not be relevant anyway.

I am installed ORACLE software and it say server did NOT have PD: Checking for make... found - /usr/bin/make Checking for ld... found - /usr/bin/ld Checking for cc... found - /usr/bin/cc Checking for ar... found - /usr/bin/ar Checking for ksh... Unable to find PD KSH version. Unable to locate all utilities with system path. The server is C...

...kernel boot parameters in boot.conf. It had gone away for a long time... but is now back. according to lintty, it reports controller firmware is: T0: Firmware version 352D build on Mar 19 2007 at 17:43:23 T0: MegaRAID Series 518 firmware version 352D using strings tty.log | grep 'MedErr on pd' | cut -c17- | sort | uniq -c | sort -n I see: 163 REC:log MedErr on pd[1] #retries=0 165 REC:log MedErr on pd[4] #retries=0 168 REC:log MedErr on pd[2] #retries=0 If I am to believe this, Patrol read is finding media errors on physical drives 1, 2, and 4 ! ? These drives are no...

>>>>> "PD" == p dalgaard <p.dalgaard@biostat.ku.dk> writes: PD> [sys.function fails sometimes (sorry, our mail system PD> decide to throw away the original mail)] PD> Yes, I bumped into something similar recently. The PD> problem is that we only actually store the cal...

Hi! Suppose I have a dataset as follows pd = c(10,7,10,11,7,11,7,6,8,3,12,7,7,10,10) I wish to calculate the mean, standard deviation, median, skewness and kurtosis i.e. regular standard statistical measures. average = mean(pd) stdev    = sd(pd) median = median(pd) skew    = skewness(pd) kurt     =  kurtosis(pd) Q. No (1) How do I get t...

[reported originally by Christoffer Tornøe] > f <- ordered(month.name) > f [1] January February March April May June July [8] August September October November December 12 Levels: April < August < December < February < January < July < ... < September > unique(f) [1] January February March April May June July

Hello ! I am the network administrator of a French high school. I have already configured a BIND9 server with dynamic DNS update from the ISC DHCP server for my zone : lyc-guillaume-fichet.ac-grenoble.fr And I would like to add a samba4 server in this zone. How can I add the samba's DNS entries to this existing zone keeping my previous static and dynamic entries ? I can't use directly the SAMBA_DLZ module becau...