search for: jahr

hallo, i have a problem reading in the above mentioned kind of a file. does anybody know an easy way how to read it in? i can save it as a text file that looks like: Datum des Fixings Restlaufzeit 1 Jahr 2 Jahre 3 Jahre 4 Jahre 5 Jahre 6 Jahre 7 Jahre 8 Jahre 9 Jahre 10 Jahre 12 Jahre 15 Jahre 13.01.06 2.819 2.983 3.073 3.137 3.194 3.247 3.302 3.355 3.409 3.459 3.548 3.649 12.01.06 2.847 3.013 3.102 3.164 3.217 3.268 3.322 3.373 3.426 3.475 3.564 3.665 ... after skipping the first four lines i wan...

...r occurred in the 1st layer. Caused by error in `ans[ypos] <- rep(yes, length.out = len)[ypos]`: ! replacement has length zero Run `rlang::last_trace()` to see where the error occurred. Warning message: In rep(yes, length.out = len) : 'x' is NULL so the result will be NULL Data Farm_ID Jahr Bio QI_A 1 2015 1 9.5 2 2018 1 15.7 3 2020 1 21.5 1 2015 1 50.5 2 2018 1 12.9 3 2020 1 11.2 1 2015 1 30.6 2 2018 1 28.7 3 2020 1 29.8 1 2015 1 30.1 2 2018 1 NA 3 2020 1 16.9 1 2015 0 6.5 2 2018 0 7.9 3 2020 0 10.2 1 2015 0 11.2 2 2018 0 18.5 3 2020 0 29.5 1 2015 0 25.1 2 2018 0 16.1 3 2020 0 15.9 1...

...code > construct? > > > > Without notch=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...

...nction from the MASS package and then applying the obtained Hoerl Kennard Baldwin (HKB) estimator as a penalty scalar to the *ols()* function provided by Frank Harrell in his Design package. It looks like this: > rrk1<-lm.ridge(lnbcpc ~ lntex + lnbeerp + lnwinep + lntemp + pop, subset(aa, Jahr>=1957 & Jahr<=1966)) > f <- ols(lnbcpc ~ lntex + lnbeerp + lnwinep + lntemp + pop, subset(aa, Jahr>=1957 & Jahr<=1966), penalty = rrk$kHKB) > f which returns >Linear Regression Model > >ols(formula = lnbcpc ~ lntex + lnbeerp + lnwinep + lntemp + pop, &g...

...trying to do in the geom_boxplot() call and how it uses the summarised data tibble. It may even be that if you do that, you will find what's causing the problem!? (I speak from bitter experience!!) Very best (all), Chris On 16/08/2024 17:51, SIBYLLE ST?CKLI via R-help wrote: > Farm_ID Jahr Bio QI_A > 1 2015 1 9.5 > 2 2018 1 15.7 > 3 2020 1 21.5 > 1 2015 1 50.5 > 2 2018 1 12.9 > 3 2020 1 11.2 > 1 2015 1 30.6 > 2 2018 1 28.7 > 3 2020 1 29.8 > 1 2015 1 30.1 > 2 2018 1 NA > 3 2020 1 16.9 > 1 2015 0 6.5 > 2 2018 0 7.9 > 3 2020 0 10.2 > 1 201...

...om_boxplot() and notch=TRUE. Does anyone know if the command ?notch=TRUE? is at the wrong place in my special code construct? Without notch=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...

...of a matrix. R groups the columns alphabetically. What can I do to group the columns in my specifications? The script is the following:* > #R-Skript: Anzahl xyz > > #Quelldatei einlesen > b<-read.csv2("Z:/int/xyz.csv", header=TRUE) > > #Teilmengen f?r die Einzeljahre generieren > b1<-subset(b,jahr=="2007") > b2<-subset(b,jahr=="2008") > b3<-subset(b,jahr=="2009") > > #tapply f?r die Einzeljahre auf die jeweilige BranchenID > b1_1<-tapply(b1$betriebs_id,b1$umweltkompartiment,length) > b1_2<-tapp...

...etype for the group. Does somebody have a hint how to adapt the code to produce one legend? Group 0 = red and dashed, Group 1 = green and solid? MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() dev.new(width=4, height=2.75) par(mar = c(0,6,0,0)) p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, linetype=Bio)) + geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + theme(panel.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ th...

Dear community Using after_stat() I was able to visualise ggplot with standard deviations instead of a confidence interval as seen in the R help. p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,color=Bio, linetype=Bio)) + geom_smooth(aes(fill=Bio, ymax=after_stat(y+se*sqrt(length(y))), ymin=after_stat(y-se*sqrt(y))) , method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + theme(panel.background = element_blank())+ the...

...a hint how > to adapt the code to produce one legend? Group 0 = red and dashed, Group 1 = > green and solid? > > > MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() > dev.new(width=4, height=2.75) > par(mar = c(0,6,0,0)) > p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, > linetype=Bio)) + > geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + > I(x^2),linewidth=1) + > theme(panel.background = element_blank())+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.te...

...AM SIBYLLE ST?CKLI via R-help < r-help at r-project.org> wrote: > Dear community > > > > Using after_stat() I was able to visualise ggplot with standard deviations > instead of a confidence interval as seen in the R help. > > > > p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,color=Bio, linetype=Bio)) + > > geom_smooth(aes(fill=Bio, > ymax=after_stat(y+se*sqrt(length(y))), ymin=after_stat(y-se*sqrt(y))) , > method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + > > theme(panel.background = element_bla...

...dy have a hint how >to adapt the code to produce one legend? Group 0 = red and dashed, Group 1 = >green and solid? > > >MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() >dev.new(width=4, height=2.75) >par(mar = c(0,6,0,0)) >p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, >linetype=Bio)) + > geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + >I(x^2),linewidth=1) + > theme(panel.background = element_blank())+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.text=elem...

...produce one legend? Group 0 = red and dashed, >> Group 1 = >> green and solid? >> >> >> MS1<- MS %>% filter(QI_A!="NA") %>% droplevels() >> dev.new(width=4, height=2.75) >> par(mar = c(0,6,0,0)) >> p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, >> linetype=Bio)) + >> ???????? geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + >> I(x^2),linewidth=1) + >> ????theme(panel.background = element_blank())+ >> ????theme(axis.line = element_line(colour = "black&q...

...CentOS 7.3 * Samba version: 4.4.4 12.el7_3 * Share is a mounted RAID 1 to /media/data * SELinux is disabled to identify the problem File permissions: * drwxr-xr-x. 5 root root /media/data * drwxr-xr-x. 50 photos photos /media/data/photos * drwxrwxr-x. 4 photos photos /media/data/photos/Jahr 2017 * drwxr-xr-x. 2 photos photos /media/data/photos/Jahr 2017/Bilder 0510 (08.01.2017) * -rwxrwxrwx. 1 photos photos /media/data/photos/Jahr 2017/Bilder 0510 (08.01.2017)/_DSC3806.NEF getfacl command for file __DSC3806.NEF: # file: _DSC3806.NEF # owner: photos # group: photos user::rwx...

Hello world, I am actually transferring a course in data management for students in biology, geography and agriculture from statistica to R - it works surprisingly well. If anyone is interested in my scratch/notepad (in German language), please see www.hydrology.uni-kiel.de/~schorsch/statistik/statistik_datenauswertung.pdf (pages 40-52) The dataset is:

...DatBev.XLS -> area name: BEV ># Sheets: DatAllg.XLS -> ALLG ># DatBev.XLS -> BEV >channel <- odbcConnect("DatAllg") >tt1 <- sqlQuery(channel, "select b.REGCODE, a.NAME, b.JAHR, b.BEV_G from ALLG as a, `C:/Arbeit/Database/Daten.DatBev`.BEV as b where ((a.REGCODE = b.REGCODE) and (b.REGCODE>=5500000 and b.REGCODE<5700000)) order by b.REGCODE, b.JAHR") >odbcClose(channel) >print(tt1) If my code is too complicated please show me another example with two E...

...andomForest() able to deal with count data? Or is there no difference because only the ranks are used in the trees? Thanks in advance Birgit Birgit Lemcke Institut f?r Systematische Botanik Zollikerstrasse 107 CH-8008 Z?rich Switzerland Ph: +41 (0)44 634 8351 birgit.lemcke at systbot.uzh.ch 175 Jahre UZH ?staunen.erleben.begreifen. Naturwissenschaft zum Anfassen.? MNF-Jubil?umsevent f?r gross und klein. 19. April 2008, 10.00 Uhr bis 02.00 Uhr Campus Irchel, Winterthurerstrasse 190, 8057 Z?rich Weitere Informationen http://www.175jahre.uzh.ch/naturwissenschaft

...1 1 1 ... But there are still NA`s in the data frame. Sorry if this reason is only ma stupididty and thanks for answering in advance. B. Birgit Lemcke Institut f?r Systematische Botanik Zollikerstrasse 107 CH-8008 Z?rich Switzerland Ph: +41 (0)44 634 8351 birgit.lemcke at systbot.uzh.ch 175 Jahre UZH ?staunen.erleben.begreifen. Naturwissenschaft zum Anfassen.? MNF-Jubil?umsevent f?r gross und klein. 19. April 2008, 10.00 Uhr bis 02.00 Uhr Campus Irchel, Winterthurerstrasse 190, 8057 Z?rich Weitere Informationen http://www.175jahre.uzh.ch/naturwissenschaft

...same Error message. I thought the function should use with my dataset. What am I doing wrong? Thanks in advance for your help. Birgit Birgit Lemcke Institut f?r Systematische Botanik Zollikerstrasse 107 CH-8008 Z?rich Switzerland Ph: +41 (0)44 634 8351 birgit.lemcke at systbot.uzh.ch 175 Jahre UZH ?staunen.erleben.begreifen. Naturwissenschaft zum Anfassen.? MNF-Jubil?umsevent f?r gross und klein. 19. April 2008, 10.00 Uhr bis 02.00 Uhr Campus Irchel, Winterthurerstrasse 190, 8057 Z?rich Weitere Informationen http://www.175jahre.uzh.ch/naturwissenschaft

...r week number with the first week as the one which has at least 4 days. A colleague told me that he has the same problem.=20 =20 Below you can see what I use now, for finding the right week.=20 =20 =20 Kind regards,=20 Samuel Andreas Meichtry =20 =20 #Excel-Funktion #=3DK=DCRZEN((A3-DATUM(JAHR(A3+3-REST(A3-2;7));1;REST(A3-2;7)-9))/7) =20 =20 #R-Funktion KW<-function(x){=20=20=20=20 return(floor( as.numeric((x-(as.Date(ISOdate( =20 as.numeric(format(as.Date(as.numeric(x)+3+25569-2-(as.numeric(x)-2+25569)%%7 ,origin=3D"1900-01-01"),"%Y")),1,1) )+(...