[R] insert() function

[Dani Valverde]

Hello,
I still having problems with insert() from R.utils package. I provide a 
code with no error:
x <- seq(1:10909)
x1 <- c(13112-10909)
spect1 <- rnorm(10909)
interpol <- approx(x,spect1,xout=c(seq(from=1, by=((10909 - 1)/(x1 -1)), 
length.out=x1)))
pos <- round(interpol$x,0)
intensities <- interpol$y
str(spect1)
str(pos)
str(intensities)

Then, when I call:
library(R.utils)
spect2 <- insert(spect1,ats=pos,values=intensities)

I have this error:

Error in list("insert(spect1, ats = pos, values = intensities)" = 
<environment>,  :
 
[2008-02-21 13:27:49] Exception: Argument 'ats' and argument 'values' 
has different lengths: 2203 != 1
  at throw(Exception(...))
  at throw.default("Argument 'ats' and argument 'values' has different 
lengths: ", length(ats), " != ", length(values))
  at throw("Argument 'ats' and argument 'values' has different lengths: 
", length(ats), " != ", length(values))
  at insert.default(spect1, ats = pos, values = intensities)
  at insert(spect1, ats = pos, values = intensities)

You see that I still having the error, even calling the str() function 
before insert().
Here there is my sessionInfo():

R version 2.6.2 (2008-02-08)
i386-pc-mingw32

locale:
LC_COLLATE=Spanish_Spain.1252;LC_CTYPE=Spanish_Spain.1252;LC_MONETARY=Spanish_Spain.1252;LC_NUMERIC=C;LC_TIME=Spanish_Spain.1252

attached base packages:
[1] datasets  stats     graphics  grDevices tcltk     utils     
methods   base    

other attached packages:
 [1] R.utils_0.9.8        R.oo_1.4.1           R.methodsS3_1.0.0    
Hmisc_3.4-3          MASS_7.2-40          scatterplot3d_0.3-25 
NMRTools_1.0.2     
 [8] svSocket_0.9-5       svIO_0.9-5           R2HTML_1.58          
svMisc_0.9-5         svIDE_0.9-5        

loaded via a namespace (and not attached):
[1] cluster_1.11.9 grid_2.6.2     lattice_0.17-6 tools_2.6.2

Can you help?
Best,

Dani

Daniel Valverde Saubí

Grup de Biologia Molecular de Llevats
Facultat de Veterinària de la Universitat Autònoma de Barcelona
Edifici V, Campus UAB
08193 Cerdanyola del Vallès- SPAIN

Centro de Investigación Biomédica en Red
en Bioingeniería, Biomateriales y
Nanomedicina (CIBER-BBN)

Grup d'Aplicacions Biomèdiques de la RMN
Facultat de Biociències
Universitat Autònoma de Barcelona
Edifici Cs, Campus UAB
08193 Cerdanyola del Vallès- SPAIN
+34 93 5814126



En/na Henrik Bengtsson ha escrit:
> Hi.
>
> On Feb 20, 2008 2:38 AM, Dani Valverde <daniel.valverde at uab.cat> wrote:
>   
>> Hello,
>> I am trying to insert a certain number of points into a certain position
>> of a vector with this code:
>> x <- seq(1:10909)
>> x1 <- c(13112-10909)
>> spect1 <- rnorm(13112)
>> interpol <- approx(x,spect1,xout=c(seq(from=1, by=((10909 - 1)/(x1 -
>> 1)), length.out=x1)))
>> pos <- round(interpol$x,0)
>> intensities <- interpol$y
>>     
>
> Please provide reproducible code that does not give an error.
>
>   
>> spect2 <- insert(spect1,ats=pos,values=intensities)
>>     
>
> Is this the famous insert() in R.utils?   Please give your
> sessionInfo() to help others see what you are using.  I repeat, please
> provide us with sessionInfo().
>
>   
>> "interpol" object is the result of interpoling the missing x values with
>> respect to spect1. "pos" object is a vector with the indexes where the
>> values are to be placed (it is the rounded values of interpol$x) and
>> "intensities" is a vector with the values to be inserted. I try to
>> insert the values of "intensities" into the positions specified by "pos"
>> in the "x" vector using the insert() functions as shown in the code I
>> paste, but I get this error:
>>
>> Error in list("insert(spect1, ats = pos, values = intensities)" =
>> <environment>,  :
>>
>> [2008-02-20 11:36:28] Exception: Argument 'ats' and argument 'values'
>> has different lengths: 2203 != 1
>>   at throw(Exception(...))
>>   at throw.default("Argument 'ats' and argument 'values' has different
>> lengths: ", length(ats), " != ", length(values))
>>   at throw("Argument 'ats' and argument 'values' has different lengths:
>> ", length(ats), " != ", length(values))
>>   at insert.default(spect1, ats = pos, values = intensities)
>>   at insert(spect1, ats = pos, values = intensities)
>>
>> Can anyone help me on how can I solve it? I know that "pos" and
>> "intensities" have the same length, so I don't know why I get this
>> error. Any ideas will be welcome.
>>     
>
> I challenge that claim, because one of the first assertions insert()
> (of R.utils) does is:
>
>    if (length(ats) != length(values))
>        throw("Argument 'ats' and argument 'values' has different lengths: ",
>            length(ats), " != ", length(values))
>
> Do the following before you call insert() to troubleshoot your data:
>
> str(spect1)
> str(pos)
> str(intensities)
>
> /Henrik
>
>   
>> Best,
>>
>> Dani
>>
>> --
>> Daniel Valverde Saubí
>>
>> Grup de Biologia Molecular de Llevats
>> Facultat de Veterinària de la Universitat Autònoma de Barcelona
>> Edifici V, Campus UAB
>> 08193 Cerdanyola del Vallès- SPAIN
>>
>> Centro de Investigación Biomédica en Red
>> en Bioingeniería, Biomateriales y
>> Nanomedicina (CIBER-BBN)
>>
>> Grup d'Aplicacions Biomèdiques de la RMN
>> Facultat de Biociències
>> Universitat Autònoma de Barcelona
>> Edifici Cs, Campus UAB
>> 08193 Cerdanyola del Vallès- SPAIN
>> +34 93 5814126
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>     
>
>