-
Notifications
You must be signed in to change notification settings - Fork 9
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
d4c8dbb
commit f3972bc
Showing
31 changed files
with
781 additions
and
513 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,15 +1,15 @@ | ||
Package: agricolae | ||
Type: Package | ||
Title: Statistical Procedures for Agricultural Research | ||
Version: 1.2-0 | ||
Date: 2014-06-30 | ||
Version: 1.2-1 | ||
Date: 2014-09-01 | ||
Author: Felipe de Mendiburu | ||
Maintainer: Felipe de Mendiburu <f.mendiburu@cgiar.org> | ||
Suggests: akima, klaR, MASS, nlme, cluster, spdep | ||
Imports: klaR, MASS, nlme, cluster, spdep | ||
Description: Agricolae was presented in the thesis "A statistical analysis tool for agricultural research" to obtain the degree of Master on science, mention Systems Engineering, Faculty of Industrial and Systems Engineering, National Engineering University (UNI), Lima-Peru. Original idea, support and data sets came from CIP (International Potato Center). Agricolae offers extensive functionality on experimental design especially for agricultural and plant breeding experiments, which can also be useful for other purposes. It supports planning of lattice, Alpha, Cyclic, Complete Block, Latin Square, Graeco-Latin Squares, augmented block, factorial, split and strip plot designs. There are also various analysis facilities for experimental data, e.g. treatment comparison procedures and several non-parametric tests comparison, biodiversity indexes and consensus cluster. | ||
License: GPL | ||
URL: http://tarwi.lamolina.edu.pe/~fmendiburu | ||
Packaged: 2014-06-30 19:37:00 UTC; fdemendiburu | ||
Packaged: 2014-09-01 15:18:40 UTC; fdemendiburu | ||
NeedsCompilation: no | ||
Repository: CRAN | ||
Date/Publication: 2014-07-01 00:51:25 | ||
Date/Publication: 2014-09-01 17:45:19 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,26 @@ | ||
`audps` <- | ||
function(evaluation, dates, type = "absolute") { | ||
if(!(is.matrix(evaluation) | is.data.frame(evaluation))){ | ||
evaluation<-rbind(evaluation) | ||
} | ||
n<-length(dates) | ||
k<-ncol(evaluation) | ||
if (n!=k) { | ||
cat("Error:\nThe number of dates of evaluation \nmust agree with the number of evaluations\n") | ||
return() | ||
} | ||
d1<-(dates[2]-dates[1])/2 | ||
d2<-(dates[n]-dates[n-1])/2 | ||
d<-d1+d2+dates[n]-dates[1] | ||
audps<-0 | ||
for (i in 1:(n-1)) { | ||
audps<- audps + evaluation[,i]*(dates[i+1]-dates[i]) | ||
} | ||
audps<- audps + evaluation[,n]*(dates[n]-dates[n-1]) | ||
if (type =="relative" ) audps <-audps/(d*100) | ||
if (type =="absolute" | type =="relative" ) { | ||
return(audps) | ||
} | ||
else cat("Error: type is 'absolute' or 'relative'\n\n") | ||
} | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,45 @@ | ||
`design.youden` <- | ||
function (trt,r,serie=2,seed=0,kinds="Super-Duper",first=TRUE) | ||
{ | ||
number<-10 | ||
if(serie>0) number<-10^serie | ||
t <- length(trt) # number of treatment | ||
if (seed == 0) { | ||
genera<-runif(1) | ||
seed <-.Random.seed[3] | ||
} | ||
set.seed(seed,kinds) | ||
parameters<-list(design="youden",trt=trt,r=r,serie=serie,seed=seed,kinds=kinds) | ||
a <- matrix(1,nrow=t,ncol=r) | ||
# Generate matrix random | ||
for (j in 1:r){ | ||
i<-c(j:t) | ||
if(j>1) i<-c(i,1:(j-1)) | ||
a[,j]<-i | ||
} | ||
m<-sample(1:t,t) | ||
M<-m[a] | ||
a<-trt[M] | ||
dim(a)<-c(t,r) | ||
# Randomize row and column | ||
m<-sample(1:r,r) | ||
a[,m]-> a | ||
m<-c(1,sample(2:t,t-1)) | ||
a<-a[m,] | ||
if (!first) { | ||
m<-order(a[1,]) | ||
a<-a[,m] | ||
} | ||
a<-t(a) | ||
trat<-as.vector(a) | ||
columna <- rep(gl(r, 1), t) | ||
fila <- gl(t, r) | ||
fila <- as.character(fila) | ||
fila <- as.numeric(fila) | ||
plots <- fila*number+(1:r) | ||
book <- data.frame(plots, row = as.factor(fila), col = as.factor(columna), | ||
trat = as.factor(trat)) | ||
names(book)[4] <- c(paste(deparse(substitute(trt)))) | ||
outdesign<-list(parameters=parameters,book=book) | ||
return(outdesign) | ||
} |
Oops, something went wrong.