search for: setlength

Can someone explain the use of SETLENGTH() and SETTRUELENGTH()? I would like to allocate a vector and reserve some space at the end, so that it appears shorter than the allocated size. So that I can more efficiently append to the vector, without requiring a new copy every time. So I'd like to use SETLENGTH() with a shorter apparent...

...isoreg(x,y) + } > rm(x) > rm(y) > gc() used (Mb) gc trigger (Mb) max used (Mb) Ncells 121637 3.3 350000 9.4 350000 9.4 Vcells 578615 4.5 1300721 10.0 1300642 10.0 ^^^ Looking at the C code, I believe the problem arises as a consequence of using SETLENGTH to resize the result near the very end of isoreg.c, and the solution is to make a copy of iKnots. SEXP R_isoreg(SEXP y) { int n = LENGTH(y), i, ip, known, n_ip; double tmp, slope; SEXP yc, yf, iKnots, ans; const char *anms[] = {"y", "yc", "yf", &q...

...rg/incoming_pretest/ heatmaply_0.15.0_20180502_082353/Windows/00check.log> Status: OK Debian: <https://win-builder.r-project.org/incoming_pretest/ heatmaply_0.15.0_20180502_082353/Debian/00check.log> Status: 1 ERROR, 1 WARNING Looking at the errors I get, they are all of the type: "SETLENGTH() cannot be applied to an ALTVEC object." I assume this is somehow related to changes in R 3.5.0 (maybe related to this <https://github.com/wch/r-source/commit/0ba66a2bc236ae5b009af910688575aa4adddd2c>?), but I'm not sure how to debug it (as I don't have this environment set-up),...

...; buffDec: array of single; encstate := speex_encoder_init(speex_lib_get_mode(SPEEX_MODEID_WB)); speex_encoder_ctl(encstate,SPEEX_SET_SAMPLING_RATE,@smpRt); speex_encoder_ctl(encstate,SPEEX_SET_QUALITY,@n); speex_encoder_ctl(encstate,SPEEX_GET_FRAME_SIZE,@encframe); speex_bits_init(@encbits); SetLength(buffEnc,encframe); enh:=0; speex_bits_init(@decbits); decstate := speex_decoder_init(speex_lib_get_mode(SPEEX_MODEID_WB)); speex_decoder_ctl(decstate,SPEEX_GET_FRAME_SIZE,@decframe); speex_decoder_ctl(decstate,SPEEX_SET_ENH,@enh); SetLength(buffDec,decframe); Encode: s3:string; for j:=0 to e...

Dear all, I want to create a function shrinkVector(x) that takes x and truncates it to the first element without copy. With SETLENGTH and SET_TRUELENGTH, I can achieve that. You can find a reproducible example below. But the memory that was freed is not available for other objects afterwards, except if x is a list (VECSXP). Any suggestions? library(inline) ## define the shrinking function shrinkVector <- cfunction(signatur...

Hi all, I've got a basic question regarding package documentation and rd.sty. I wrote my first own package, and now I would like to place the documentation into the appendix of another LaTex document. Seemingly I cannot simply \usepackage{Rd}, as this will modify the page-settings of my document. Is there a minimum style file which will just define the environments and commands needed for

...is not supposed to be numbers on the axes. An imperfect example: plot(rnorm(10),bty='l',xaxt='n',yaxt='n',ylab='',xlab='',type='l') abline(h=0) Like this but without, the xaxis and with arrrowheads More like this in fact, LaTeX Picture example: \setlength{\unitlength}{1.3cm} \begin{picture}(4.3,3.6)(-2.5,-0.25) \put(-2,1.8){\vector(1,0){4.4}} \put(2.5,1.7){$x$} \put(-2,0){\vector(0,1){3.2}} \put(-2,3.35){\makebox(0,0){$y$}} \end{picture} --------------------------------------------- Henrik Andersson Netherlands Institute of Ecology - Centre for Est...

Hi, in Latex I get the table using: \begin{table}[H] \centering \renewcommand{\arraystretch}{1.3} \setlength{\tabcolsep}{18pt} \begin{tabular}{cc} \hline Idade & Frequ?ncia \\ \hline $18 \vdash 26$ & 11 \\ $26 \vdash 34$ & 8 \\ $34 \vdash 42$ & 26 \\ $42 \vdash 50$ & 20 \\ $50 \vdash 58$ & 23 \\ $58 \vdash 66$ & 30 \\ $66 \vdash 74$ &a...

...if (PageHeader.CapturePattern <> 'OggS') then raise Exception.Create('Not a valid Ogg stream'); if PageHeader.StreamStructureVersion <> 0 then raise Exception.CreateFmt('Not a valid stream structure version: %d', [PageHeader.StreamStructureVersion]); SetLength(PageHeader.SegmentTable, PageHeader.PageSegments); InStream.Read(Pointer(PageHeader.SegmentTable)^, PageHeader.PageSegments); PageHeader.PageBodyLength := SumByte(PageHeader.SegmentTable); SetLength(PageBody, PageHeader.PageBodyLength); InStream.Read(Pointer(PageBody)^, PageHeader.PageBodyL...

...p, LENGTH(sexp) returns some quite large integer value. It seems like an "unitialized" value. Can I safely assume, that an SEXP of type EXTPTRSXP can only contain a single pointer value and never represent a vector (an array) of pointers? Or should I maybe explicitly add something like SETLENGTH(sexp,1); Best wishes from sunny Austria, Thomas Baier

...[onlylarge]{structurebold} \setbeamerfont*{frametitle}{size=\normalsize,series=\bfseries} \setbeamertemplate{navigation symbols}{} % Standard packages \usepackage[english]{babel} \usepackage[latin1]{inputenc} \usepackage[T1]{fontenc} \usepackage{Sweave} % The main document \begin{document} \setlength{\unitlength}{\textwidth} % measure in textwidths \begin{frame}[t]{Data Representation and Analysis} <<echo=TRUE>>= x <- rnorm(100) xm <- mean(x) xm @ \end{frame}

Is there an elegant way to get Sweave to center graphics by default? I'd like to use \centerline{\includegraphics{}} etc. to save some vertical space that \begin{center} ... \end{center} uses, and I'd like to avoid centering with each <<fig=T>>= Thanks Frank -- Frank E Harrell Jr Professor and Chair School of Medicine Department of

...ated into C: function FindRootDeviceByLabel(const RootFSLabel: string): boolean; const DEV_MAJOR: dev_t = 8; DEV_MODE: mode_t = S_IFBLK or &0660; var ActualFSLabel: string; FileDescriptor: cint; ReadBytes: TsSize; DeviceFound: boolean; dev_minor: dev_t; begin Result := False; SetLength(ActualFSLabel, Length(RootFSLabel)); //loop through all devices that might have our root filesystem sda2 to sdp2 dev_minor := 2; while dev_minor < 243 do begin // last one is 242 if mknod(DEVICENAME, DEV_MODE, (DEV_MAJOR shl 8) or dev_minor) = 0 then begin WriteLn('Creat...

...ntinuation sign '+'? (This is for an introductory presentation in which I want to show people exactly what they are going to see on their screen.) Oops, one more... How can I change the spacing between regular text and R code (input/output)? With Sweave I would do \fvset{listparameters={\setlength{\topsep}{0pt}}} \renewenvironment{Schunk}{\vspace{\topsep}}{\vspace{\topsep}} Sorry for the many questions and thank you in advance for any help and insight you can give me. Best, Giovanni -- Giovanni Petris <GPetris at uark.edu> Associate Professor Department of Mathematical Sciences...

...le,verbatim} \usepackage{longtable,pdflscape,graphicx} \usepackage{fmtcount,hyperref} % displaying latex counters ?%\usepackage[top=0.2inch, bottom=0.2inch, left=2cm, right=2cm]{geometry} \usepackage{fullpage} \usepackage{ctable} \title{United States Department of the Interior} \begin{document} ?%\setlength{\topmargin}{-1inch} % Just an example \setkeys{Gin}{width=1\textwidth} % makes all the graphics scales \maketitle <<echo=F,results=hide>>= reportDF <- structure(list(IDDate = c("3/12/2010", "3/13/2010", "3/14/2010", "3/15/2010"), FirstRunoftheY...

...+) { SECOND: By reading this post in Stackoverflow http://stackoverflow.com/questions/7458364/growing-an-r-matrix-inside-a-c-loop/7458516#7458516 I understood that it was necesary to (1) create the "child lists" and protecting them with PROTECT_WITH_INDEX, and (2) changing its size using SETLENGTH (Rf_lengthgets) and REPROTECT ing the lists in order to tell the GC that the vectors had change. THIRD: Once my two vectors are done ("id" and "lambda"), assign them to the i-th element of the "mother list" L1 using SET_VECTOR_ELT(VECTOR_ELT(L1,i), 0, duplicate(id))...

Hi list, I was using Sweave and was wondering if anyone has had any luck changing the font colors of the code chunks. For instance, in my .Rnw preample I tried including: === \usepackage[usenames]{colors} \definecolor{darkred}{rgb}{0.545,0,0} \definecolor{midnightblue}{rgb}{0.098,0.098,0.439} \DefineVerbatimEnvironment{Sinput}{Verbatim}{fontshape=sl,formatcom={\color{midnightblue}}}

Hi all I am preparing a document using Sweave; a really useful tool. But I am having a problem. Consider this toy example Sweave file: \documentclass{article} \begin{document} <<echo=TRUE,results=verbatim>>= options(width=40) # Set width to 40 characters hide <- capture.output(example(glm)) # Create an example of the problem, but hide the output summary(glm.D93) #

Hi the list, I am using Sweave. Between the Sinput and the Soutput, there is always an extra line: > 2+2 [1] 4 Is it possible to remove it ? > 2+2 [1] 4 Thanks Christophe

Ein eingebundener Text mit undefiniertem Zeichensatz wurde abgetrennt. Name: nicht verf?gbar URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20110714/db3a6d2c/attachment.pl>