search for: y25

...S$Jahr<-as.numeric(MS$Jahr) MS$Bio<-as.factor(MS$Bio) str(MS) ##### boxplot BFF QI MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() MS1$Jahr<-as.factor(MS1$Jahr) MS1s <- MS1 %>% group_by(MS1$Jahr, MS1$Bio) %>% summarise( y0 = quantile(QI_A, 0.05), y25 = quantile(QI_A, 0.25), y50 = mean(QI_A), y75 = quantile(QI_A, 0.75), y100 = quantile(QI_A, 0.95)) MS1s colnames(MS1s)[1]<-"Jahr" colnames(MS1s)[2]<-"Bio" MS1s p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) + geom_boxplot( aes(ymin = y0, lower =...

...; > MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() > > MS1$Jahr<-as.factor(MS1$Jahr) > > > > MS1s <- MS1 %>% > > group_by(MS1$Jahr, MS1$Bio) %>% > > summarise( > > y0 = quantile(QI_A, 0.05), > > y25 = quantile(QI_A, 0.25), > > y50 = mean(QI_A), > > y75 = quantile(QI_A, 0.75), > > y100 = quantile(QI_A, 0.95)) > > > > MS1s > > colnames(MS1s)[1]<-"Jahr" > > colnames(MS1s)[2]<-"Bio" > > MS1s > &...

...TRUE the code provides the planned ggplot. Kind regards Sibylle Code: MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() MS1$Jahr<-as.factor(MS1$Jahr) MS1s <- MS1 %>% group_by(MS1$Jahr, MS1$Bio) %>% summarise( y0 = quantile(QI_A, 0.05), y25 = quantile(QI_A, 0.25), y50 = mean(QI_A), y75 = quantile(QI_A, 0.75), y100 = quantile(QI_A, 0.95)) MS1s colnames(MS1s)[1]<-"Jahr" colnames(MS1s)[2]<-"Bio" MS1s p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) + geom_boxplot( aes(ymin...

...gt; str(MS) > > ##### boxplot BFF QI > > MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() > MS1$Jahr<-as.factor(MS1$Jahr) > > MS1s <- MS1 %>% > group_by(MS1$Jahr, MS1$Bio) %>% > summarise( > y0 = quantile(QI_A, 0.05), > y25 = quantile(QI_A, 0.25), > y50 = mean(QI_A), > y75 = quantile(QI_A, 0.75), > y100 = quantile(QI_A, 0.95)) > > MS1s > colnames(MS1s)[1]<-"Jahr" > colnames(MS1s)[2]<-"Bio" > MS1s > > p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(...

...ng, with no default" Please note that the same is happening when I create a matrix from the data.frame with the function cbind (i.e. names(data) [1] "shortrate" "y1" "y5" "y10" "y15" "y20" [7] "y25" xdata_cbind(data$y10,data$shortrate) is.matrix(x.data) TRUE) Thanks in advance, Chiara

....ns) { > draws = flip.n(prob,draws.per.sim) > num =sum(draws,ticket.ns) > urn.results[i] = num > } > return(urn.results) > } > urn.25.samples =urn.model(25) > > urn.25.samples > > Follow up question: > > Use urn.model to generate a sample y={y1,...,y25) of n=25 observed sums. Any good? ticket.ns<-c(1,1,1,1,2,5,5,10,10,10) draw=NULL for (i in 1:25){ draw[i] <- sum(sample(ticket.ns,40,replace=TRUE)) } print(draw) HTH Pete -- View this message in context: http://r.789695.n4.nabble.com/R-function-help-tp4658998p4659001.html Sent fro...

...rmission changes when modifiying metadata anyway, do we?). Is this a bug or a misconfiguration on our side? I am happy to file a bug report, if it turns out to be one. Any thoughts? Thanks in advance, Thomas -- Thomas Werschlein, IT Services Department of Geography, University of Zurich Office: Y25-L12, Tel: +41 (0)44 63-56536 PGP-Key-ID: C76C851B

After searching in R- Introduction, FAQ, help... I don't understand this: I write a function in a file (.R): tt <- function(mc) { date() mc<-read.csv2("machines.txt",na.strings="") date() } I source it in R and I type tt(). The answer is > tt() [1] "Mon Aug 14 11:18:25 2000" > The instructions following the first "date()" are ignored. Why?