search for: biosecur

Displaying 20 results from an estimated 25 matches for "biosecur".

2003 Sep 17
2
CART analysis
Greetings, Does anyone know of an R code for classification and regression tree analysis (CART)? Thank you Ron Ron Thornton BVSc, PhD, MACVSc (pathology, epidemiology) Programme Co-ordinator, Active Surveillance Animal Biosecurity MAF Biosecurity Authority P O Box 2526 Wellington, New Zealand phone: 64-4-4744156 027 223 7582 fax: 64-4-474-4133 e-mail: ron.thornton at maf.govt.nz http://www.maf.govt.nz
2011 May 03
2
Overlapping x axes using Lattice
...t,age) histogram(~pesti[,1]|pesti[,2]+ pesti[,3] ,alternating=TRUE,tick.number=1, stack=TRUE,type = "count", xlab="VNT",rot=c(180,180),draw=FALSE) Thank you in advance. Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt This email message and any attachment(s) is intended solely for the addressee(s) named ab...
2008 Jun 06
3
R loop
...rmat = "%Y-%m-%d") set for(i in a$date){ if (a$date[i]>set & a$date[i]<set +7 ){a$wk<-1}else if (a$date[i]>set +7){a$wk<-2}else {a$wk<-3} } a Kind regards andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2008 May 06
3
Spatial join between two datasets using x and y co-ordinates
...pt 1 1824615 5980732 cat 2 1823650 5983220 dog And therefore limit the data in dataset 1 to that which has the same x and y co-ordinates as dataset 2. Any suggestions? Regards Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email messa...
2009 Mar 17
3
Combining columns from two dataframes
...01"), format = "%Y-%m-%d"),c(1:2)) names(b)=c("c","d") a;b I have tried: append(a,b) combine(a,b) rbind(a,b) I would appreciate your help. Kind regards andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2009 Apr 01
4
Recode of text variables
...;) recode(x, "1:2='A'; 3='B'") In Microsoft access a simple way of recoding is to join two tables in a query any simple way of doing the same in R? Kind regards Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2009 Apr 01
1
Adjusting font size in a lattice graph
...ld change the font size. tp1.nDai=xyplot(value ~ yr | Name, data = nDai,type = 'o') update(tp1.nDai, aspect = c(0.8), layout = c(4, 4)) I would appreciate your help. Kind regards andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2023 Jan 31
1
[EXT] How to calculate the derivatives at each data point?
Try something like with(df, predict(smooth.spline(x = altitude, y = atm_values), deriv = 1)) Cheers, Andrew -- Andrew Robinson Chief Executive Officer, CEBRA and Professor of Biosecurity, School/s of BioSciences and Mathematics & Statistics University of Melbourne, VIC 3010 Australia Tel: (+61) 0403 138 955 Email: apro at unimelb.edu.au Website: https://researchers.ms.unimelb.edu.au/~apro at unimelb/ I acknowledge the Traditional Owners of the land I inhabit, and pay my res...
2010 Feb 14
1
Adding a regression line to an xyplot
...eg.line=lm, smooth=FALSE, type=c("p","g"),xlab="a",ylab="b") > I would appreciate your help. > > Kind regards > > andy > > Andrew McFadden MVS BVSc > Incursion Investigator > Investigation & Diagnostic Centres - Wallaceville Biosecurity New > Zealand Ministry of Agriculture and Forestry > > Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: > Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St > Upper Hutt > ##############################################################...
2024 Nov 14
1
[EXT] Mac ARM for lm() ?
Not a direct answer but you may find lm.fit worth experimenting with. Also try the high-performance computing task view on CRAN Cheers, Andrew -- Andrew Robinson Chief Executive Officer, CEBRA and Professor of Biosecurity, School/s of BioSciences and Mathematics & Statistics University of Melbourne, VIC 3010 Australia Tel: (+61) 0403 138 955 Email: apro at unimelb.edu.au Website: https://researchers.ms.unimelb.edu.au/~apro at unimelb/ I acknowledge the Traditional Owners of the land I inhabit, and pay my res...
2009 Apr 14
2
Subset function: selecting variables within a factor
...elp for subset: subset(airquality, Temp > 80 select = c(Ozone, Temp)) So how do I select all temperatures of 90 and 80 ie Temp = c(80,90) I would appreciate your help. Kind regards andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2011 May 17
1
Dealing with null values Aggregate function
...aggregate(x = testDF, by = list(testDF$v3), FUN = "mean") For this example I would like to get a mean value for red (v1=4.5; v1=5) and blue (v1=49.5; v2=55) Thank you in advance. Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt This email message and any attachment(s) is intended solely for the addressee(s) named ab...
2024 Nov 15
1
[EXT] Mac ARM for lm() ?
...g("lmfit-ex.png") boxplot(mb, notch=TRUE) dev.off() produces the attached nice image. > Also try the high-performance computing task view on CRAN > Cheers, > Andrew > -- > Andrew Robinson Chief Executive Officer, CEBRA and > Professor of Biosecurity, School/s of BioSciences and > Mathematics & Statistics University of Melbourne, VIC 3010 > Australia Tel: (+61) 0403 138 955 Email: > apro at unimelb.edu.au Website: > https://researchers.ms.unimelb.edu.au/~apro at unimelb/ > I acknowledge the Traditional...
2008 May 11
1
Finding unmatched data between two dataframe using several factors
...(A6,zane, 50). I have tried two approaches but have not been successful ? nomatch <- subset(dat1, is.element(?) == FALSE) ? setdiff(dat1$x,dat2$y) Any thoughts would be great Regards Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2011 Nov 21
1
Lattice graph help
...if[,4]~ heif[,1]| heif[,3]+ heif[,2] ,ylab="titer", layout = c(2,2), scales=list(x=list(at=c(seq(0, 60, by = 15)),tick.number=c(5), labels=c(seq(0, 60, by = 15)))) ) useOuterStrips(x) Kind regards Andrew McFadden MVS BVSc | Veterinary Epidemiologist, Investigation and Diagnostic Centre | Biosecurity New Zealand Ministry of Agriculture and Forestry | 66 Ward St, Wallaceville | PO Box 40 742 | Upper Hutt | New Zealand Telephone: 64-4-894 5611 | Facsimile: 64-4-894 4973| Mobile: 027-733-1791 | Web: www.maf.govt.nz This email message and any attachment(s) is intended solely for the address...
2024 Nov 16
1
[EXT] Mac ARM for lm() ?
...gt; dev.off() > > produces the attached nice image. > > > Also try the high-performance computing task view on CRAN > > > Cheers, > > Andrew > > > -- > > Andrew Robinson Chief Executive Officer, CEBRA and > > Professor of Biosecurity, School/s of BioSciences and > > Mathematics & Statistics University of Melbourne, VIC 3010 > > Australia Tel: (+61) 0403 138 955 Email: > > apro at unimelb.edu.au Website: > > https://researchers.ms.unimelb.edu.au/~apro at unimelb/ > > >...
2008 May 13
1
Legend in scatterplot and adding regression lines
...= list(points = Rows(trellis.par.get("superpose.symbol"), 1:4), text = list(levels(Dataset$Operator)), columns = 4)) Regards Andy Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2007 Dec 21
1
using apply to loop [SEC=UNCLASSIFIED]
...1)],1,which.max) ## or, if the maximum may be repeated: classified <- apply(data[,-(nclass+1)], 1, FUN = function(x) which(x == max(x))) # the variable _truth_ is just the last column of _data_ ? truth <- data[,nclass + 1] ?table z <- table(classified, truth) HTH Joe Joe Crombie Biosecurity and Information Sciences Bureau of Rural Science Canberra Australia e: joe.crombie at brs.gov.au -----Original Message----- From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On Behalf Of Louis Martin Sent: Friday, 21 December 2007 11:37 AM To: R-help at r-proje...
2008 Mar 06
2
R code for selecting places spatially and by time
...2,2,2,2,1,1) ) date<-as.character(rep(as.Date(c("2008-01-02","2008-01-17","2008-01-01") ,format = "%Y-%m-%d"),c(4,4,2))) cbind(x,y,date) Regards Andrew Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...
2008 Apr 16
0
Instantaneous hazard of an event i.e. death
...ent this data graphically. I think in theory I should be able to use: the "hazard.ratio.plot" but lack the experience to know how to code this Anyone be able to help? Regards Andrew Andrew McFadden MVS BVSc Incursion Investigator Investigation & Diagnostic Centres - Wallaceville Biosecurity New Zealand Ministry of Agriculture and Forestry Phone 04 894 5600 Fax 04 894 4973 Mobile 029 894 5611 Postal address: Investigation and Diagnostic Centre- Wallaceville Box 40742 Ward St Upper Hutt ######################################################################## This email message...